printing defaults

[Addy]

I have done lots of printing macros which print to our laser printer, canon
photocopier and colour canon photocopier. The problem I have is that once
printing has been done on the canon photocopiers (colour or black and
white) it keeps to that printer even though I have put in the code :-

With Dialogs(wdDialogFilePrintSetup)
..Printer = "\\rother\CanonMF13"
..DoNotSetAsSysDefault = True
..Execute
End With

In printers and faxes it is still defaulted to the laser printer LEX1340
but when you do file, print it is set at Canon MF13/Canon (photocopiers).
I don't want to have to change the default back to LEX1340 at the end of
the code as we have 2 laser printers in our dept LEX1340 and LEX1435 and I
have put our legal.dot template (which contains all my macros) on our
shared drive and pointed everyone to that so that every time I make
changes they get updated. Any ideas please?

Many thanks

 

[Dave Lett]

Hi Addy,

Does the following solve your issue?

Dim sPrinter As String
sPrinter = Application.ActivePrinter
With Dialogs(wdDialogFilePrintSetup)
..Printer = "\\rother\CanonMF13"
..DoNotSetAsSysDefault = True
..Execute
End With
Application.ActivePrinter = sPrinter


HTH,
Dave

 

[Addy]

You are fantastic !! Many thanks

Hi Addy,

Does the following solve your issue?

Dim sPrinter As String
sPrinter = Application.ActivePrinter
With Dialogs(wdDialogFilePrintSetup)
..Printer = "\\rother\CanonMF13"
..DoNotSetAsSysDefault = True
..Execute
End With
Application.ActivePrinter = sPrinter


HTH,
Dave