• Home
 · 
• Miscellaneous
 · 
• Change selected printer

Change selected printer

Temporarily change the currently selected (default) printer within your VB program

Assumes
This doesn't save the change to the registry - which needs to be done for a permanent change of default printer.

API Declarations
n/a

Rate Change selected printer

• 1
• 2
• 3
• 4
• 5

(11(11 Vote))

Public Function SetDefaultPrinter(ByVal DeviceName As String) As Boolean
Dim prThis As Printer
If Printers.Count > 0 Then
  '\\ Iterate through all the installed printers
  For Each prThis In Printers
    '\\ If the desired one is found
    If prThis.DeviceName = DeviceName Then
      Set Printer = prThis
      SetDefaultPrinter = True
      '\\ Stop searching
      Exit For
    End If
  Next prThis
End If
End Function