Print settings with Macro - Speed

[j3andc]

I have a file where I am making multiple similiar sheets. I am using the following code to set the print settings of each page:

With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$10"
End With
ActiveSheet.PageSetup.PrintArea = "$A$1:$P$71"
With ActiveSheet.PageSetup
.LeftFooter = "&""Arial,Bold""&8Page &P of &N"
.RightFooter = "&""Arial,Bold""&8Printed on &D at &T"
.LeftMargin = Application.InchesToPoints(0.6)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0.4)
.BottomMargin = Application.InchesToPoints(0.5)
.HeaderMargin = Application.InchesToPoints(0.25)
.FooterMargin = Application.InchesToPoints(0)
.PrintQuality = 600
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlPortrait
.PaperSize = xlPaperLetter
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 92
.PrintErrors = xlPrintErrorsDisplayed

This is working very slow and since it has to be done for every sheet, it is taking way to long. I would appreciate any advice on how to increase the speed.

Thanks .

 

[Richard Schollar]

Hi Jim

See the following thread in particular the XLM4 suggestion at the end:

http://www.mrexcel.com/forum/showthread.php?t=312224&highlight=xlm4+print