Dim oldPrinter as VB.Printer
Set oldPrinter = Printer
Dim p as VB.Printer
For Each p In VB.Printers
    If p.DeviceName = "PDF Printer Name" Then
        Set Printer = p
    End If
Next
' Print Document Here '
Set Printer = oldPrinter