Quick Print Macro that will work for both 2007 and 2010

[Tuckejam]

I need a macro that will let me use the quick print function x number of times and x being the value found is cell A39


For example this is what is working in Excel 2007
ActiveWindow.SelectedSheets.PrintOut Copies:=Sheets("Auto Tag").Range("A39").Value


And I assume this is the what would work in Excel 2010
ActiveWindow.SelectedSheets.PrintOut Copies: :=Sheets("Auto Tag").Range("A39").Value, Collate:=True, _
IgnorePrintAreas:=False

I am looking for something that will work for either version and have thought of using an IF THEN ELSE statement like this

If
Application.Version = "14.0"
Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Else
ActiveWindow.SelectedSheets.PrintOut Copies:=Sheets("Auto Tag").Range("A39").Value


also I am open to anyway of doing this that might be better


Thanks in advance for any help and for all the help I always get here.

 

[Andrew Poulsom]

Welcome to MrExcel.

As far as I can see, there is no difference in the PrintOut method between Excel 2007 and Excel 2010.