Specify a Printer

[AccessNub]

Heya,

Lookin for the VB code to program a button to send a Form to a specific Printer. I know that you can set it in the Print Settings, but I want it to the button directly.

Also, if its possible, I need to know how set the Print button to use a specific tray on the printer instead of the default one.

 

[rainman89]

Try

Dim stDocName
Dim strDefaultPrinter As String
DoCmd.OpenReport stDocName, acNormal

strDefaultPrinter = Application.Printer.DeviceName
Set Application.Printer = Application.Printers("Printer Name")
DoCmd.OpenReport stDocName, acNormal
Set Application.Printer = Application.Printers(strDefaultPrinter)