"save as" work differently in menue and batch

Question

If I save in Illustrator CS4 a EPS File from the menue with "save as" and then I place the file in InDesign CS4 and adjust it proportionally to the frame it works fine.
The object is shortly to the frame.
The same file with the batch option (New Action "Save as"...) works the same but after adjust, it looks like not the object but the drawing area is fit to the Indesign frame.
Any ideas to work around, i have to convert and save more then 1000 files
Example file attached
best regards

Answer 1

I have another methode.
In Visual Basic, I can print the file as EPS and can control all parameters!!
It is not so elegant but it works without user interaction for a lot of files.
Maybe it is the solution for your problems too
Sub Illu()
Dim fs As FileSystemObject
Dim MyPrintOptions As New PrintOptions
Dim MyPrintJobOptions As New PrintJobOptions
Dim SourceN, DestN As String
Dim fso, Folder, CFiles, fc
    Set fso = CreateObject("Scripting.FileSystemObject")
    SourceN = InputBox("Source Ordner eingeben", "Source") 'input source path of the files to convert
    DestN = InputBox("Dest Ordner eingeben", "Destination") 'input destination path of the files to convert
' or for fix path
    SourceN = "C:\Dokumente und Einstellungen\wgepsch\Desktop\Grafik fertig\"
    DestN = "C:\Dokumente und Einstellungen\wgepsch\Desktop\Grafik fertig\eps\"
    Set Folder = fso.GetFolder(SourceN)
    Set fc = Folder.Files
    For Each CFiles In fc   'for all files in source path
        Illustrator.Open SourceN & CFiles.Name 'open file in Illustrator
        MyPrintJobOptions.File = DestN & Left(CFiles.Name, Len(CFiles.Name) - 4) & ".EPS" 'set destination path and filename
        MyPrintJobOptions.PrintArea = aiArtworkBounds   'IMPORTEND this is the solution for the problem set the area to the artwork
'This parameters I dont need
        'MyPrintJobOptions.ArtboardRange
        'MyPrintJobOptions.BitmapResolution
        'MyPrintJobOptions.Collate
        'MyPrintJobOptions.Copies
        'MyPrintJobOptions.Designation
        'MyPrintJobOptions.File
        'MyPrintJobOptions.Name
        'MyPrintJobOptions.PrintAllArtboards
        'MyPrintJobOptions.PrintAsBitmap
        'MyPrintJobOptions.ReversePages
        MyPrintOptions.PrintPreset = "EPS" ' this is my printer preset name in Illustrator  where I stored alll other parameters
        MyPrintOptions.JobOptions = MyPrintJobOptions
       Illustrator.UserInteractionLevel = aiDontDisplayAlerts
            ActiveDocument.PrintOut MyPrintOptions 'output as EPS file with my parameter
        Illustrator.UserInteractionLevel = aiDisplayAlerts
        ActiveDocument.Close 2 'close the file without save
    Next
End Sub