Can setting Application.Printer point to the right printer

[FuzMic]

Dear friends

I use the following

Application.Printer = Application.Printers("newPrtr”) followed by
DoCmd.OpenReport "MyReport", acViewPreview
While IsOpen("MyReport", acReport)
DoEvents
Wend

Then at the Print.PreView the printer shown is not NewPrtr but the default printer. How can I make it point to the NewPrtr without another user interaction.

 

[Gasman]

This link http://www.exceltip.com/printing-in-vba/change-the-default-printer-using-vba-in-microsoft-excel.html shows you need to use Application.ActivePrinter

 

[FuzMic]

Thank Gasman, i am sure the link can help.

But meanwhile i found that i should not set the printer in the report to "Specific". If i set printer to "default", this issue will not occur, ie Application.Printer do point correctly.