Hi,

I have made a program which help me a lot and is fast. However, the portion
of code below is so slow, comparing to the rest.

Does anybody know how to make it faster?

Thanks!

Mathieu


With ActiveSheet.PageSetup
.CenterHeader = "&""Calibri,Gras""&20Suivi des factures bloquées"
.RightHeader = "&D"
.LeftMargin = Application.InchesToPoints(0.2)
.RightMargin = Application.InchesToPoints(0.2)
.TopMargin = Application.InchesToPoints(0.51)
.BottomMargin = Application.InchesToPoints(0.33)
.HeaderMargin = Application.InchesToPoints(0.25)
.FooterMargin = Application.InchesToPoints(0.16)
.PrintQuality = 600
.PrintTitleRows = "$1:$1"
.PrintTitleColumns = ""
.Orientation = xlLandscape
.PaperSize = xlPaperLegal
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 85
.PrintErrors = xlPrintErrorsDisplayed
End With
--