Page setup too slow
 

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
--

Page setup too slow
 

ONLY change what is necessary and do it ONLY once (if you can)

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Mathieu" wrote in message
...
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
--

Page setup too slow
 

Thank you!
--
Mathieu


"Don Guillett" wrote:

ONLY change what is necessary and do it ONLY once (if you can)

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Mathieu" wrote in message
...
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
--