シート ページの詳細設定するPageSetup

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][シート ページの詳細設定するPageSetup]
Sub ページの詳細設定する()
'******************************
'ページの詳細設定する
'******************************
'<コメント>
'※1 この行の下の28行は必要なものだけ記入
'※2 $1:$10には行タイトルの上端と下端セル番号を記入
'※3 $A:$Eには列タイトルの左端と右端セル番号を記入
'※4 $A$1:$E$30には印刷範囲の左上と右下セル番号を記入
'※5 InchesToPointsをCentimetersToPointsに変えるとcm指定可能
'※6 PaperSizeプロパティの定数一覧表は こちら (Macintoshでは指定不可能)
'※7 xlAutomatic: 自動 整数: その番号から
'※8 xlDownThenOver または xlOverThenDown
'※9 10〜400%以内で指定 False:しない
'※10 FitToPagesWide、FitToPagesTallを指定する場合は Zoomを falseにする
'※11 xlPrintErrorsDisplayed:そのまま、xlPrintErrorsBlank : 空白に、xlPrintErrorsDash : ダッシュに、xlPrintErrorsNA : #N/Aと

    With ActiveSheet.PageSetup                  '※1
        .PrintTitleRows = "$1:$10"              '行タイトル ※2
        .PrintTitleColumns = "$A:$E"            '列タイトル ※3
        .PrintArea = "$A$1:$E$30"               '印刷範囲 ※4
        .LeftMargin = Application.InchesToPoints(0.787)   '左余白(25.2mmに対する%)※5
        .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 ※6
        .FirstPageNumber = xlAutomatic          '先頭ページ番号 ※7
        .Order = xlDownThenOver                 'ページ付番順 ※8
        .BlackAndWhite = False                  '白黒印刷 True:する  False:しない
        .Zoom = 100                             '印刷倍率 ※9
        .FitToPagesWide = 1                     '横 1ページに印刷 ※10
        .FitToPagesTall = 1                     '縦 1   〃   ※10
'        .PrintErrors = xlPrintErrorsDisplayed   'セルのエラー ※11
    End With
End Sub





Production Japan Import Application. Since 1998