File um File öffnen
13.02.2004 16:07:41
helena
ich muss in einem Ordner X-Files in PDF umwandeln
diesn Code habe ich für 1 File, aber wenn ich alle Manuell
durchgehen muss gibt das viel Schweiss
Sub PDF_erstellen()
Application.ActivePrinter = "Acrobat PDFWriter auf LPT1:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Acrobat PDFWriter auf LPT1:"
Application.ActivePrinter = "\\pc003\b01 auf Ne02:"
End Sub
Laufwerk/Ordner ist fix zB. D:\Daten\Rechnungen\
Files 1-xxx
Abarbeitung Stück für Stück öffen Code ausführen schliessen, next File
bis alle durch
habt Ihe eine Idee ???
gruss helena