PDA

View Full Version : Printing single job to multiple local printers at same time



jatherton
10-28-2004, 08:23 PM
I have several documents that I print one color copy (logo in color), on a HP OfficeJet 6110 All-in-One, to send to member and then another copy using my HP LasterJet 6/6MP for a black & white copy that is for my records. Is it possible to create a button that will do this automatically with one click?

Jacob Hilderbrand
10-28-2004, 11:20 PM
Try this:

ActivePrinter = "MyPrinter1"
ActiveDocument.PrintOut
ActivePrinter = "MyPrinter2"
ActiveDocument.PrintOut

Record a macro and print to each of your printers to get the actual name.

mdmackillop
11-14-2004, 06:05 AM
Hi Jatherton,
I posted a KB entry here
http://www.vbaexpress.com/kb/getarticle.php?kb_id=240&PHPSESSID=440f870bd137c0a8be851c3e209acfae
which allows for easy selection of printers. By changing the option boxes to check boxes, a multiple print option could readikly be created.
MD