Application.ActivePrinter Macro

L

Larry

I have two printers connected to my computer. The default printer is a
network printer, the other is named "HP PhotoSmart P1100 Series". I need
help on the syntax in this macro to tell the computer to print the worksheet
"Winner Poster" on the HP PhotoSmart P1100 Series.

Application.EnableEvents = True
Application.Calculate

If MsgBox("Do you want to Preview prior to printing?", vbYesNo) = vbYes Then
Worksheets("Winner Poster").PrintPreview
Else

Worksheets("Winner Poster").PrintOut
End If

End Sub

Bernie was kind enough to help me get this far. The syntax above causes the
worksheet to print out on the default network printer (wrong printer). I
would appreciate any advice you may have to offer.

Larry
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Active Printer Application 1
Excel Gives my printer an error 1
Format merged cells to receive JPEG 0
Printing to pdf 3
select printer macro 1
unable to print from word, excel, outlook 2007 or pdf files in vis 1
Printer Names on a Network 5
Formatting macro runs real slow due to network printer - best workaround? 2

Top