Printing a Workbook with a push Button functionality

Hi Experts,

I have question regarding printing with a push Button.
I have a workbook with 3 differents sheets. Each Sheet Has a table and a chart.
I would like:
1. to add to each sheet a push button to print that sheet with the selcted area. How to do it?
2. I would also like to have the possibility to print (Push Button) the whole workbook (3 Sheets) with page number 1-3.

How to realise that?

Thank you in advance for your input.

Cheers

Pat

Clicking Developer tab, assuming you have enabled it, add a button to the page. Link the button to this:

Sub printbutton()
Set tbl = ActiveCell.CurrentRegion
ActiveSheet.PageSetup.PrintArea = tbl.Address
ActiveSheet.PageSetup.Zoom = 75
ActiveSheet.PageSetup.PrintTitleRows = "$2:$2"

CopiesCount = Application.InputBox("How many copies to print?", Type:=1)

If CopiesCount > 0 Then
ActiveSheet.PrintOut Copies:=CopiesCount, Collate:=True
Else
End If
End Sub

This prints the print area of the page, adding row 2 as a title, and reducing to 75%. Also adds how many copies you want; if 0, then cancels the print.

Originally Posted by mhuston

Clicking Developer tab, assuming you have enabled it, add a button to the page. Link the button to this:

Sub printbutton()
Set tbl = ActiveCell.CurrentRegion
ActiveSheet.PageSetup.PrintArea = tbl.Address
ActiveSheet.PageSetup.Zoom = 75
ActiveSheet.PageSetup.PrintTitleRows = "$2:$2"

CopiesCount = Application.InputBox("How many copies to print?", Type:=1)

If CopiesCount > 0 Then
ActiveSheet.PrintOut Copies:=CopiesCount, Collate:=True
Else
End If
End Sub

This prints the print area of the page, adding row 2 as a title, and reducing to 75%. Also adds how many copies you want; if 0, then cancels the print.

Hi
huston,

thank you for your Input.
I am a newbi in VBA.
Could you please explain it step by step?
Where is the developper button to be found?

Cheers

Pat