Pdf-Dokument erzeugen
Snewi
folgenden Code habe ich geschrieben um mit dem PDF-Creator ein PDF Dokument automatisch zu erzeugen! Irgendwie klappt es aber nicht ganz, denn ich muss im PDF-Creator Menü trotzdem noch immer den NAmen manuell eingeben!
Wie mache ich es richtig?
Sub PDFDruck()
Dim Datum As Date
'Datum setzen
Datum = Range("Zeitdaten!D2").Value
'Drucken
Application.ActivePrinter = "PDFCreator auf Ne00:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"PDFCreator auf Ne00:", Collate:=True
DoEvents
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "T:\06_Leistung_Zeiten\Leistung_Zeiten_" _
& Format(Datum, "mmyy") & ".pdf"
Application.DisplayAlerts = True
End Sub
Anzeige