|
お手数ですが、ご教授願います
複数シートのページ設定→オプション設定で印刷可能領域を最大に
しようとしましたが、1シートごとにしか設定できないようで
それならばと
自動記録を利用して下の様なマクロとしましたがシート1のみで
後は設定が出来ません。EPSONプリンタです。
ネットにて色々探したのですが該当する記載が見当たらないので
もしかするとそもそも、できないのでしようか
宜しくお願いいたします。ちなみに下記40シートは全て同じデザイン
です。
Dim i As Long
For i = 1 To 40
Sheets(i).Select
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftMargin = Application.InchesToPoints(0.47244094488189)
.RightMargin = Application.InchesToPoints(0.275590551181102)
.TopMargin = Application.InchesToPoints(0.590551181102362)
.BottomMargin = Application.InchesToPoints(0.196850393700787)
.HeaderMargin = Application.InchesToPoints(0.31496062992126)
.FooterMargin = Application.InchesToPoints(0)
.PrintHeadings = False
.PrintGridlines = False
End With
Next i
End Sub
|
|