Printer Selection in VBA code

[trevor40]

Hi is there an easy way to select the printer to be used? I'm hoping that I can use the printer name from windows.

[orange]

Here's some code that went through one of the forums recently. Some of it might be helpful.
Its purpose was to change the default printer.

'
MVP MCC: Content Creator - "HansV MVP"
'You should be able to do something like this:

 Sub SwitchPrinter()
     Dim prt As Printer
     ' Get current default printer
     Set prt = Application.Printer
     Debug.Print "Current default " & prt.devicename
     ' Set default printer
     Application.Printer = Application.Printers("OtherPrinter")
      ' Print something, e.g.
     DoCmd.PrintOut  AnySmallTableName here
     Debug.print "Switched to " &  Application.Printer.deviceName
     ' Restore original printer
     Set Application.Printer = prt
     debug.print "Restored to " &  prt.devicename
 End Sub

'where OtherPrinter is the name of the required printer. 
'
'To list the names of available printers, run the following code:


Sub ListPrinters()
     Dim prt As Printer
     For Each prt In Printers
         Debug.Print prt.DeviceName
     Next prt
 End Sub

'The printer names will be listed in the Immediate window (press Ctrl+G to
activate this window).

[trevor40]

Yhanks for that I'll see how I can adapt it and continue.