macro to print a sheet if a cell is a certain value

J

John Davies

I have set up the following macro to print certain sheets and it works ok,
however I only want it to print sheet named 'Handback' if cell A1 in that
sheet is greater than 1. How can I incorporate that in the macro?

Thanks in advance of any help.

Regards

John


Sub newprint()
'
' newprint Macro
' Macro recorded 08/02/2006 by
'

'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Customer Profile").Select
Range("b15") = "NEW VEHICLE ENQUIRY"
Sheets("DAN").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Customer Profile").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Checklist").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Handback").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("New").Select
Range("M46") = "CUSTOMER COPY"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("M46").Select
Selection.ClearContents
Sheets("DAN").Select
Range("Z70") = "CUSTOMER COPY"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("Z70").Select
Selection.ClearContents
Sheets("Disclosure").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("AA Cars").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("New").Select
Range("G10").Select
 
T

Tom Ogilvy

Sheets("Handback").Select
if Range("A1") > 1 then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End if
 

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

Top