Excel -> Word -> PDF per Makro
volker
aus einer EXCEL Datei kann ich hervorragend ein Worddokument erstellen, die eine Zusammenstellung der Daten als handliche Datei pro Fall ausgibt.
Mir ist nun daran gelegen diese Ausgaben unveränderbar zu halten. Also am liebsten das Worddokument noch im Makro in eine PDF umzuwnadeln.
Hat da jemand eine Idee?
Bisher scheitere ich sowohl mit einer solchen Konstruktion:
Application.ActivePrinter = "Adobe PDF auf Ne03:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Adobe PDF auf Ne03:", Collate:=True
(Was klar ist, ich will ja kein Tabellenblatt konvertieren!)
wie auch mit dem Word-Makroeditorbefehl
fragebogen.Application.PrintOut Filename:=SpeicherName, Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
Wobei fragebogen das erstellte WordDokument darstellt, definiert am Anfang des Codes über:
Dim W As Word.Application
Dim fragebogen As Word.Document
Gibt es vielleicht auch eine Möglichkeit gleich als pdf zu schreiben?
Viele Grüße,
Volker