Per VBA drucken - Adobe PDF on ne0x

Sub PrintAll()
Dim wsPS As Worksheet
Dim FileName As String, Dim strPfad As String
Dim distiller As ACRODISTXLib.PdfDistiller
Set distiller = New ACRODISTXLib.PdfDistiller
Application.ActivePrinter = "Adobe PDF on Ne04:" 'HIER MUSS DER PORT AUTOMATISCH REIN
strPfad = ThisWorkbook.Path & "\..\xx\"
Set wsPS = ThisWorkbook.Worksheets("xy")
FileName = wsPS.Range("B1").Value
wsPS.PrintOut , printtofile:=True, Collate:=True, PrToFileName:=(strPfad & FileName & ". _
ps")
distiller.FileToPDF strPfad & FileName & ".ps", strPfad & FileName & ".pdf ", ""
Kill strPfad & FileName & ".ps"
Kill strPfad & "*.log" 'Löscht erstellte .log Dateien
Set distiller = Nothing
End Sub

Bin um jede Hilfe dankbar, habe bisher nichts zu dem Thema gefunden...
Gruß, Boris