This may do what you want:
Sub Print_()
Application.ActivePrinter = "HP LaserJet" ' put in printer name
Sheets("Sheet 2").PrintOut Copies:=1
Application.ActivePrinter = "Lexmark 615"
Sheets("Sheet 3").PrintOut Copies:=1
Sheets("Sheet 4").PrintOut Copies:=1
End Sub
On Sat, Nov 8, 2008 at 12:08 PM, JD <[EMAIL PROTECTED]> wrote:
>
> I would like to print sheet2 to one printer and sheet3 and 4 to a
> different printer. Using a macro how would I go about doing this? Can
> it be done with one macro or do I need to setup different macros.
> Neither of these printers are the default printer on the computer.
>
> >
>
--~--~---------~--~----~------------~-------~--~----~
Visit the blog to download Excel tutorials at
http://www.excel-macros.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/excel-macros?hl=en
Visit & Join Our Orkut Community at
http://www.orkut.com/Community.aspx?cmm=22913620
Visit the blog to download Excel tutorials at
http://www.excel-macros.blogspot.com
To Learn VBA Macros Please visit http://www.vbamacros.blogspot.com
To see the Daily Excel Tips, Go to:
http://exceldailytip.blogspot.com
-~----------~----~----~----~------~----~------~--~---
