Do more with
Docmd.OpenReport "YourReportName", acViewNormal '< --- Normal view is the default, and sends the report to the defaut printer.
Open in new window
Dim strHoldDefPrinter as string
' Remember the current default printer.
strHoldDefPrinter = Application.Printer.DeviceName & ""
' Change the default printer
Set Application.Printer = Application.Printers("Some other Printer")
'Print to that specific printer
DoCmd.OpenReport "YourReport", acViewNormal
' Ensure that you return to the original default printer
Set Application.Printer = Application.Printers(strHoldDefPrinter)
IT issues often require a personalized solution. With Ask the Experts™, submit your questions to our certified professionals and receive unlimited, customized solutions that work for you.