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