Office: PDF erzeugen - Makro mit Speicherpfad (ConvertWIZ)

Hallo Zusammen,

ich möchte ein Makro schreiben um ein Excel-File zum einen an einem bestimmten Pfad separat abzuspeichern und ebenfalls an dem gleichen Pfad ein PDF der Datei zu erzeugen.

Der mir zur Verfügung stehende PDF drucker heißt ConvertWIZ.

Das Makro funktioniert bis jetzt so weit, dass ich die Datei unter dem gewünschten Namen als XLS abspeichern kann und auch das drucken der Datei funktioniert. Aber leider kann ich den PFAD für das PDF nicht schon im Makro vorgeben. Kennt ihr eine Lösung wie ich dem PDF drucker den Pfad übergeben kann???

Hier mein aktuelles Makro

Code:

Sub Planung_archivieren()
'
Dim BEZEICHNUNG As String, DATEINAME_XLS As String, DATEINAME_PDF As String, ANFANG As String, ENDE_XLS As String, ENDE_PDF As String

BEZEICHNUNG = Sheets("Bericht").Range("B6").Value
ANFANG = C:\Testarchiv\Planung_"
ENDE_XLS = ".xls"
ENDE_PDF = ".pdf"
DATEINAME_XLS = ANFANG + BEZEICHNUNG + ENDE_XLS
DATEINAME_PDF = ANFANG + BEZEICHNUNG + ENDE_PDF


    Windows("Planung.xls").Activate
    
    Sheets("Bericht").Activate
    ActiveSheet.Copy
        ActiveWorkbook.SaveAs DATEINAME_XLS, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
    
    
    Application.ActivePrinter = "ConvertWIZ auf CVW1:"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
        "ConvertWIZ auf CVW1:", Collate:=True  

   'PrToFileName:=DATEINAME_PDF --> habe ich schon ausprobiert. ohne erfolg
        
End Sub

Ich hoffe ihr könnt damit etwas anfangen. Vielen Dank für Eure Hilfe