Print macro runs slowly
Posted by Mike H on January 21, 2002 6:44 AM
Sorry, I put this question on the Bulletin Board a few hours ago but no one posted a reply! Can anyone help?
I use a macro, code shown below, when printing, that puts the full filepath and filename and inserts page numbers into the footers of the prints.
The macro works perfectly but the problem is that it runs very slowly. It can take over 20 seconds for a workbook with a lot of sheets.
I wondered if anyone could see why it runs slowly and suggest improvements that would speed it up.
' Macro to format the footers in excel
Dim Filepath As String, Wks As Worksheet
Filepath = ActiveWorkbook.FullName
For Each Wks In Worksheets
.LeftFooter = "&A" & Chr(10) & "&8" & Filepath
.CenterFooter = "Page &P of &N" & Chr(10) & " "
.RightFooter = "Printed at & &T" & Chr(10) & "Printed on &D"