Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...

MS Office Forum / Word / Programming / August 2006

Tip: Looking for answers? Try searching our database.

printing defaults

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
Addy - 17 Aug 2006 16:52 GMT
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 - 17 Aug 2006 18:09 GMT
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
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.