🚀 go-pugleaf

Witam!
Szukam rozwiązania problemu wolnego wykonywania sekwencji kodu jak niżej:
Wykonanie każdej linijki zajmuje parę sekund.
Szukałem rozwiązania, które wyłącza czasowo odświeżanie i które po ponownym 
włączeniu pozwoli na równoczesne ustawienie wszystkich właściwości.
Czas wykonania poniższych instrukcji najgorszy jest dla drukarki sieciowej 
ustawionej jako domyślnej, a najlepszy dla drukarki lokalnej (PDFCreator).
Ustawienie Application.ScreenUpdating w niczym nie pomogło.
Pozdrawiam

Romek

    With ActiveSheet.PageSetup
        .PrintTitleRows = "$5:$6"
        .PrintTitleColumns = ""
        .LeftHeader = ""
        .CenterHeader = Application.ActiveSheet.Name
        .RightHeader = "Strona &P"
        .LeftMargin = Application.InchesToPoints(0.393700787401575)
        .RightMargin = Application.InchesToPoints(0.196850393700787)
        .TopMargin = Application.InchesToPoints(0.33)
        .BottomMargin = Application.InchesToPoints(0.236220472440945)
        .HeaderMargin = Application.InchesToPoints(0.196850393700787)
        .FooterMargin = Application.InchesToPoints(0.236220472440945)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait 'xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 6
    End With