|
いつもお世話になっています。
印刷範囲とヘッダー&フッターなどを設定して印刷するvbaを
作ったのですが、速度がかなり遅いのです。
シートが10枚ほどあり、それぞれ印刷範囲を変更して設定するつもりなのですが
下記、プログラムに無駄な動きはありますでしょうか?
※PrintAreaは固定値にしてますが、シートごとにかえるプログラムにする予定です。
なにか良い方法があればご教授願います。
’--------------------------------
Sheets(s1).Select
ActiveSheet.PageSetup.PrintArea = "$A$8:$L$21"
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$8"
.PrintTitleColumns = ""
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = "出力日時:&D &T"
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = "&P& / &""/,標準""&N"
.LeftMargin = Application.InchesToPoints(0.71)
.RightMargin = Application.InchesToPoints(0.19)
.TopMargin = Application.InchesToPoints(0.6)
.BottomMargin = Application.InchesToPoints(0.4)
.HeaderMargin = Application.InchesToPoints(0.2)
.FooterMargin = Application.InchesToPoints(0.1)
.Zoom = 95
.PrintErrors = xlPrintErrorsDisplayed
End With
|
|