Add a print button in an excel sheet...

T

The Greek

Hi,

I dont have any experience with macro. It would be great if anyone can
help me to (or guide me) as where can i get a macro that doest the
printing.

What I need excatly is a button in the first sheet of the workbook and
once pressed will give the option to print a range of sheets, or
specific, or all. Also to be able to figure out what printers are
availble.

Thanx
 
M

mike_vr

Try this:

Sub PrintSheets()

Application.ScreenUpdating = False
Sheets(Array("Sheet1", "Sheet2", "etc")).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("Sheet1").Select
Application.ScreenUpdating = True
End Sub

Substitute the name of the sheets in for Sheet1, sheet2, etc.

HTH

Mike
 
Top