Reset to default printer

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Wes - 28 Feb 2008 15:14 GMT

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,

Reply to this Message

Jean-Guy Marcil - 28 Feb 2008 16:01 GMT

> 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
[quoted text clipped - 9 lines]
> 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

Reply to this Message