问将默认打印机设置为Microsoft Print to PDF

EN

?ActivePrinter
Foxit Reader PDF Printer on Ne02:

DefaultPtr =Application.ActivePrinter
Application.ActivePrinter = "Foxit Reader PDF Printer on Ne02:"
'***Do your printing here***
Application.ActivePrinter = DefalutPtr

Option Explicit

Dim Printers() As String

Private Sub UserForm_Initialize()

    Dim iSelPtr As Integer
    Dim lCntr   As Long
    Dim zCurPtr As String
    
    zCurPtr = Application.ActivePrinter
    
    Printers = GetPrinterFullNames()
    
    For lCntr = LBound(Printers) To UBound(Printers)
    
      '*** Fix for: "Send to OneNote 2016" printer that
      '***          that prints to nul: port which is dropped
      '***          by GetPrinterFullNames() routine.
        If InStr(Printers(lCntr), ":") = 0 Then
          Printers(lCntr) = Printers(lCntr) & "nul:"
        End If
      '*** END of Fix ***
        
      '*** Find current printer in the list and adjust the
      '*** index for the zero based listbox.
      
      If Printers(lCntr) = zCurPtr Then iSelPtr = lCntr - 1
    
    Next lCntr
    
  '*** Populate the List Box ***
  Me.lboxSelectPrinter.List = Printers()
  
  '*** Highlight the current Active Printer ***
  Me.lboxSelectPrinter.Selected(iSelPtr) = True
  
End Sub

Private Sub CBCancel_Click()
   Unload Me
End Sub

Private Sub CBOk_Click()

   Dim iSelected As Integer
   iSelected = Me.lboxSelectPrinter.ListIndex + 1 '***Zero Based***
'   Debug.Print Printers(iSelected)
   Application.ActivePrinter = Printers(iSelected)
   Unload Me
   
End Sub