|
こんにちは
印刷範囲をここに組むと遅くなりますのでしかたないと思います。
下記のコードで必要ないところを削除してどでだけUpできるかはさだかでありませんが?
With Sheets(s1)
With .PageSetup
.PrintArea = "$A$8:$L$21"
.PrintTitleRows = "$1:$8"
.RightHeader = "出力日時:&D &T"
.RightFooter = "&P& / &""/,標準""&N"
.Zoom = 95
.PrintErrors = xlPrintErrorsDisplayed
End With
End With
尚、下記の部分ですが固定値と考えて削除しました
>.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)
|
|