Hallo,

ich habe ein Problem mit dem Makro.

Ich möchte nach dem Drucken als Worddokument das Dokument als PDF speichern

Sub Drucken_und_Ablegen_in_d3()
'
' Drucken_und_Ablegen_in_d3 Makro
'
'

    Dim Ablagepfad As String
    Dim Dateiname As String
    
    Ablagepfad = "C:\Users\" & (Environ("USERNAME")) & "\Desktop\d3Archiv\"
    Dateiname = ActiveDocument.Name
        

' Zuerst auf den Standarddrucker drucken
    ActiveDocument.PrintOut

'Danach Dateiblage im d3Archiv
    ChangeFileOpenDirectory Ablagepfad
    ActiveDocument.SaveAs FileName:=Dateiname, FileFormat:= _
        wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
        :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
        :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False
End Sub

Gruß Mitch