ich möchte einen Bericht, den ich in Excel verfasst habe, über einen Makro gesteuert als PDF speichern.
Das geht im Grunde über die Druckfunktion,
jedoch kann ich so nicht den Pfad
und den zu speichernden Dateinamen festlegen.
oder Du installierst Dir Latex und Ghostscpript.
Gruß
Micha
ich gehe mal davon aus, dass Du eine PDF-Datei mit immer demselben Namen in immer demselben Verzeichnis abspeichern kannst.
Dann hänge an das Makro noch ein paar Zeilen an, mit denen die Datei umbenannt und kopiert werden kann.
Gruss OttoH
VBA-Code:
'für das löschen der entstehenden Dummy-Datei
Set WasWeg = CreateObject("Scripting.FileSystemObject")
'Variable
Drucker = Application.ActivePrinter 'genauer Wortlaut
NewFN = "xyz" 'beliebiger neuer Dateiname ohne ".pdf"
'Aktion
If Left(Drucker, 17) = "Acrobat PDFWriter" Then 'now Action
NewFN = ActiveWorkbook.Path & "\" & NewFN 'ohne ".pdf"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=False, _
ActivePrinter:=Drucker, PrintToFile:=True, _
PrToFilename:=NewFN
WasWeg.deletefile NewFilename 'dummy löschen
es muss ja nicht unbedingt der Writer von Acrobat sein; nimm den PDF995, der kostet nix.
Gruss OttoH
ActivePrinter:=Drucker, PrintToFile:=True, _
PrToFilename:=NewFN
mal so:
ActivePrinter:=Drucker, PrintToFile:=True, PrToFilename:=NewFN
Bye
Nike