pagesetup is slow

[288enzo]

HI all,

I have a short macro that runs quick, when I added in the below it hangs and almost looks like it's going into a "not responding" mode. Is there something in the code that is causing this, or is this normal?

Thank you

    myRange = Range("A1:E" & lr).Address

    ActiveSheet.PageSetup.PrintArea = myRange

    With ActiveSheet.PageSetup
    .PrintTitleRows = ""
    .PrintTitleColumns = ""
    .LeftMargin = Application.InchesToPoints(0.2)
    .RightMargin = Application.InchesToPoints(0.2)
    .TopMargin = Application.InchesToPoints(0.2)
    .BottomMargin = Application.InchesToPoints(0.2)
    .HeaderMargin = Application.InchesToPoints(0)
    .FooterMargin = Application.InchesToPoints(0)
    .CenterHorizontally = True
    .PaperSize = xlPaperLetter
    .Orientation = xlPortrait
    .Zoom = False
    .FitToPagesWide = 1
    .FitToPagesTall = 1
    End With

 

[Micron]

Try from post 2 here

VBA Page Setup Code taking too long

Morning I have the following VBA code to set the margins and footers of my page. The trouble is, each . step is taking 3 seconds to execute, meaning the whole snippet takes over a minute to run. It's part of a bigger macro which executes in under 5 seconds so this whole section is causing the...

www.mrexcel.com

 

[288enzo]

Try from post 2 here

VBA Page Setup Code taking too long

Morning I have the following VBA code to set the margins and footers of my page. The trouble is, each . step is taking 3 seconds to execute, meaning the whole snippet takes over a minute to run. It's part of a bigger macro which executes in under 5 seconds so this whole section is causing the...

www.mrexcel.com

So much better, thank you for pointing me in the right direction.

 

[Micron]

Glad I could help. Thanks for the recognition.