Druckereinstellungen nach Druckerauswahl per VBA

Sub ListAllPrinters()
Dim WshNetwork As Object, oPrinters As Object, i%
Set WshNetwork = CreateObject("WScript.Network")
Set oPrinters = WshNetwork.EnumPrinterConnections
For i = 0 To oPrinters.Count - 1 Step 2
Debug.Print oPrinters.Item(i + 1) & " an " & oPrinters.Item(i)
Next
Set WshNetwork = Nothing
End Sub

'Oben werden die installierten Drucker gesucht.

Function ChangePrinter(ByVal strPrinter As String) As Boolean   'Drucker wechseln
Dim WshNetwork As Object, oPrinters As Object, i%
ChangePrinter = False
Set WshNetwork = CreateObject("WScript.Network")
Set oPrinters = WshNetwork.EnumPrinterConnections
For i = 1 To oPrinters.Count Step 2
If oPrinters.Item(i) Like strPrinter Then
WshNetwork.SetDefaultPrinter oPrinters.Item(i)
ChangePrinter = True
Exit For
End If
Next
Set WshNetwork = Nothing
End Function

Sub pdf_konvertieren ()
Dim drucker As String
ChangePrinter "FreePDF XP"             'So kann ich ohne Portangabe den Drucker wechseln
'So weit so gut aber jetzt kommt das eigentliche Problem, die Einstellung des Druckers
With Application
.SendKeys ("%e")
.SendKeys ("%u")
.SendKeys ("%o")
.SendKeys (spb)
.SendKeys ("{Enter}")
.SendKeys ("{Enter}")
End With
Application.Dialogs(xlDialogPrint).Show
Worksheets("Auswahl-Blatt").Select
ChangePrinter drucker
End Sub

Wenn ich den Drucker per application.ActivePrinter auswähle funktioniert die Druckereinstellung über Sendkeys. Bei der Auswahl über ChangePrinter erfolgt der Druck mit Standardeinstellungen.
Ich hoffe, dass jemand eine Idee hat wie ich das Problem lösen kann.
Viele Grüße HansKurz