Automated printing

G

Guest

I have workbook with ten tabs, I would like to link check boxes on the first
page to printing. Is it possible to set a macro linked to a button to look at
the check boxes, then only print tabs for which the check boxes relate to.
 
G

Guest

Sheets("Cover").Select
Application.Dialogs(xlDialogPrint).Show
'Sheets("Cover").PrintOut Copies:=1
Sheets("Frame").Select
If Range("L51") > 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
Sheets("Truss").Select
If Range("H18") > 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("Truss Materials").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
this is part of a mcro i recorded and modified to print only te tabs i have
used and so need to print out
Hope it helps
 
G

Guest

Thank you its perfect

paul said:
Sheets("Cover").Select
Application.Dialogs(xlDialogPrint).Show
'Sheets("Cover").PrintOut Copies:=1
Sheets("Frame").Select
If Range("L51") > 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
Sheets("Truss").Select
If Range("H18") > 0 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("Truss Materials").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If
this is part of a mcro i recorded and modified to print only te tabs i have
used and so need to print out
Hope it helps
Click to expand...
 

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

Printing Selected Sheet Tabs 1
Partial printing of entire worksheet (1st or 2nd pages only) 4
sum of check boxes that have been checked 2
Oversensitive touchpad on modern laptops 0
print on both sides problem 2
Not printing the entire workbook 2
VBA to change duplex setting? 3
Convert to Values 2

Top