シート ページの詳細設定するPageSetup
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
| Sub ページの詳細設定する() '****************************** 'ページの詳細設定する '****************************** '＜コメント＞ '※1 この行の下の28行は必要なものだけ記入 '※２ $1:$10には行タイトルの上端と下端セル番号を記入 '※３ $A:$Eには列タイトルの左端と右端セル番号を記入 '※４ $A$1:$E$30には印刷範囲の左上と右下セル番号を記入 '※5 InchesToPointsをCentimetersToPointsに変えるとcm指定可能 '※６ PaperSizeプロパティの定数一覧表は こちら （Macintoshでは指定不可能） '※7 xlAutomatic: 自動 整数: その番号から '※８ xlDownThenOver または xlOverThenDown '※９ 10～400%以内で指定 False:しない '※10 FitToPagesWide、FitToPagesTallを指定する場合は Zoomを falseにする '※11 xlPrintErrorsDisplayed:そのまま、xlPrintErrorsBlank : 空白に、xlPrintErrorsDash : ダッシュに、xlPrintErrorsNA : #N/Aと With ActiveSheet.PageSetup '※１ .PrintTitleRows = "$1:$10" '行タイトル ※２ .PrintTitleColumns = "$A:$E" '列タイトル ※３ .PrintArea = "$A$1:$E$30" '印刷範囲 ※４ .LeftMargin = Application.InchesToPoints(0.787) '左余白（25.2mmに対する％）※５ .RightMargin = Application.InchesToPoints(0.787) '右 〃 .TopMargin = Application.InchesToPoints(0.984) '上 〃 .BottomMargin = Application.InchesToPoints(0.984) '下 〃 .HeaderMargin = Application.InchesToPoints(0.512) 'ヘッダー余白 .FooterMargin = Application.InchesToPoints(0.512) 'フッター 〃 .PrintHeadings = False '行列番号 True:印刷する False:しない .PrintGridlines = False 'セル枠線 True:印刷する False:しない .PrintNotes = False 'セルメモ True:印刷する False:しない .PrintQuality = 300 '印刷品質（ドライバ制約に注意） .CenterHorizontally = False '水平中央寄せ True:する False:しない .CenterVertically = False '垂直中央寄せ True:する False:しない .Orientation = xlPortrait '印刷の向き xlPortrait:縦 xlLandscape:横 .Draft = False '簡易印刷 True:する False:しない .PaperSize = xlPaperA4 '用紙サイズ xlPaperA4:A4 ※６ .FirstPageNumber = xlAutomatic '先頭ページ番号 ※７ .Order = xlDownThenOver 'ページ付番順 ※８ .BlackAndWhite = False '白黒印刷 True:する False:しない .Zoom = 100 '印刷倍率 ※９ .FitToPagesWide = 1 '横 1ページに印刷 ※10 .FitToPagesTall = 1 '縦 1 〃 ※10 ' .PrintErrors = xlPrintErrorsDisplayed 'セルのエラー ※11 End With End Sub |