Use Code to specify report's Printer

[tyrdrannoy]

is there a way to use vba code to specify a report's printer before sending it to print? we don't want to save the report with "use specific printer" because we have many users that just hit the "print" button and we want that to go to their default printer.

--thanks in advance

 

[rstitzel]

Public Function setprinters()

Dim prt As Printer

' Get the Printer object for the selected printer.
Set prt = Application.Printers("\\COMPUTERNAME\PRINTERNAME")

' Set the selected printer as the default printer for this session.
Set Application.Printer = prt

End Function

In the ON OPEN event of the report call this function.