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
>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
[quoted text clipped - 20 lines]
>
> Many thanks
Addy - 21 Aug 2006 10:34 GMT
You are fantastic !! Many thanks
> Hi Addy,
>
[quoted text clipped - 36 lines]
> >
> > Many thanks