エクセルのVBAで印刷の設定をするには"PageSetup"オブジェクトを使います。 With Activesheet.PageSetup 'プリント範囲の設定 .PrintArea = ("A1:K30") '用紙サイズ xlPaperSizeクラスの定数を指定 .PaperSize = xlPaperA4 'A4用紙 '用紙の向き .Orientation = xlLandscape '=横 xlPortrait=縦 '拡大率 10~400%で指定 .Zoom = 110 '印刷範囲を指定したページ数に収める 'Zoomが設定されていると無効 .FitToPagesTall = 1 '縦 .FitToPagesWide = 1 '横 'マージン .LeftMargin = Application.CentimetersToPoints(1.5) .RightMargin = App
![Excel VBA 印刷の設定 (ページ設定):Keep It Simple, Stupid:So-netブログ](https://cdn-ak-scissors.b.st-hatena.com/image/square/9e8c09ea9460f3808b77c6e2c7f8494dd977be03/height=288;version=1;width=512/https%3A%2F%2Fblog.so-net.ne.jp%2F_common%2Fimg%2Fsonet_logo_l.png)