Reset to default printer

[Wes]

I have a user that occasionally needs to send a print job somewhere other
than the default printer. At that point Word remembers his last used printer
but he does not and he ends up "losing" his print jobs by sending them to the
wrong printer.

Is there any way to force Word to always select the default printer when the
Print dialog is open, even if the last print job went to a different printer?

I'm hoping that there is a Print event that can be triggered with every
print request to reset the selected printer to the default. This would need
to happen whether the Print...(Ctrl+P) command was used or the Print button
on the toolbar was clicked. Regardless of how, it needs to be pretty much
invisible to the user.

Thanks,

 

[Jean-Guy Marcil]

I have a user that occasionally needs to send a print job somewhere other
than the default printer. At that point Word remembers his last used printer
but he does not and he ends up "losing" his print jobs by sending them to the
wrong printer.

Is there any way to force Word to always select the default printer when the
Print dialog is open, even if the last print job went to a different printer?

I'm hoping that there is a Print event that can be triggered with every
print request to reset the selected printer to the default. This would need
to happen whether the Print...(Ctrl+P) command was used or the Print button
on the toolbar was clicked. Regardless of how, it needs to be pretty much
invisible to the user.

Normally, you create a Sub called FilePrint that will run whenever users do
CTRL-P or File > Print. In this case, you do not need the sub
FilePrintDefault that runs when users click on the Printer icon on the
standard toolbar. You do not need it becasue if the other sub resets the
printer when it is used, this last sub will always use the correct printer.

This sub will allow users to interact with the print dialog as they wish,
but it will reset the printer to the one that was active when they got to the
dialog.



Sub FilePrint()

Dim strPrinter As String

strPrinter = Application.ActivePrinter

Dialogs(wdDialogFilePrint).Show

With Dialogs(wdDialogFilePrintSetup)
.Printer = strPrinter
.DoNotSetAsSysDefault = True
.Execute
End With


End Sub