Need button "PRINT"

[sporitus]

Dear Experts:

Fot our girls I need to have the button "PRINT".
When someone press it, whole document is printing.

Please advice, ho to do this button on Excel table.

thanks

 

[VoG]

Try

Sub prt()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
    ws.PrintOut
Next ws
End Sub

 

[Datsmart]

By "whole document is printing" do you mean all worksheets in the workbook or just all pages of the active worksheet?

This will print all pages of the active worksheet:

ActiveSheet.Printout

This will print all worksheets in the workbook:

ActiveWorkbook.Printout

 

[sporitus]

Hi VoG:

where i have to put this code ?

Thanks

 

[sporitus]

Hi Datsmart;

Thanks for advice.
Where i can put this code ?

thanks

 

[VoG]

Press ALT + F11 to open the Visual Basic Editor, Insert > Module and paste the code into the white space on the right.

Press ALT + F11 to return to your sheet, add a button from the Forms toolbar and assign it to the macro.

 

[sporitus]

VoG;

Thanks a lot. it looks like work.

Could you advice how to make some sheets unprintable when i push print whole workbook ?

 

[VoG]

What are the names of the sheets that you don't want to print?

 

[sporitus]

VoG;

I do not want to print 3 pages, named as a years:

2007
2008
2009

 

[VoG]

Try this

Sub prt()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
    If ws.Name <> "2007" And ws.Name <> "2008" And ws.Name <> "2009" Then ws.PrintOut
Next ws
End Sub