G
Guest
I have a database that is split FE/BE and when I do any development on the FE
and copy it over to our production and redistribute it to the desktops I have
a problem where when a person goes to print the first time they get a message
stating the print is set to my default printer not theirs. So will the
following code work to set the app to their default printer and would I put
it in a public function or public sub to run from my autoexec macro.
Dim strDefaultPrinter As String
' get current default printer.
strDefaultPrinter = Application.Printer.DeviceName
'switch to printer of your choice:
'Set Application.Printer = Application.Printers("HP LaserJet Series II")
Set Application.Printer = Application.Printers(strDefaultPrinter)
Thanks
Jim
and copy it over to our production and redistribute it to the desktops I have
a problem where when a person goes to print the first time they get a message
stating the print is set to my default printer not theirs. So will the
following code work to set the app to their default printer and would I put
it in a public function or public sub to run from my autoexec macro.
Dim strDefaultPrinter As String
' get current default printer.
strDefaultPrinter = Application.Printer.DeviceName
'switch to printer of your choice:
'Set Application.Printer = Application.Printers("HP LaserJet Series II")
Set Application.Printer = Application.Printers(strDefaultPrinter)
Thanks
Jim