|
Guten Tag,
Ich habe ein Problem mit dem Erstellen einer PDF Datei über VBA. Beim Anklicken des Buttons wird folgender Code aktiviert:
Sub Makro1()
ActiveDocument.CommandButton1.Select
Selection.Delete
ActivePrinter = "Microsoft Print to PDF"
Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
ActiveDocument.SaveAs2 FileName:="F:\EINZIEHUNG\Vorlagen BG\Archiv erstellte Dokumente\" & "BGBrief" & Format(Now, "YYMMDD_HHMMSS") & ".doc"
ActiveDocument.ExportAsFixedFormat _
outputfilename:="F:\EINZIEHUNG\Sendhybrid - LZ und Mahnungen\" & "BGBrief" & Format(Now, "YYMMDD_HHMMSS") & ".pdf", exportformat:=wdExportFormatPDF
Application.Quit savechanges:=False
End Sub
Die Datei lässt sich ohne Probleme in den voreingestellten Pfad speichern (als Word und als PDF Dokument - "grün").
Beim Auswählen des Speicherpfades wird zwar die PDF Datei erstellt, aber mit 0 KB und beim Öffnen die Fehlermeldung "Beschädigtes Dokument"
Kann mir bitte jemand weiterhelfen - Vielen herzlichen Dank!
Manuel
|