Page setup too slow

M

Mathieu

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

Mathieu

Thank you!
--
Mathieu


Don Guillett said:
ONLY change what is necessary and do it ONLY once (if you can)

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(e-mail address removed)
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top