ページ設定 ページ設定［PageSetup］内容全て設定する

※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。

※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。


Sub ページ設定()
'
' ページ設定［PageSetup］
'
    
    With ActiveSheet.PageSetup
    
    
        '’●ページ
        '’ページ（印刷の向き）（参考：横）
        .Orientation = xlLandscape
        '’ページ（印刷の向き）（参考：縦）
        '’.Orientation = xlPortrait
        '’ページ（拡大縮小印刷）（拡大/縮小）
        .Zoom = 100
        '’ページ（拡大縮小印刷）（横）
        .FitToPagesWide = 8
        '’ページ（拡大縮小印刷）（縦）
        .FitToPagesTall = 9
        '’ページ（用紙サイズ）
        .PaperSize = xlPaperA4
        '’ページ（印刷品質）
        .PrintQuality = 300
        '’ページ（先頭ページ番号）
        .FirstPageNumber = xlAutomatic
        '’ページの方向（参考：左から右）
        .Order = xlDownThenOver
        '’ページの方向（参考：上から下）
        '’.Order = xlOverThenDown
        
        
        '’●余白
        '’余白（余白左）
        .LeftMargin = Application.InchesToPoints(0.984251968503937)
        '’余白（余白右）
        .RightMargin = Application.InchesToPoints(0.590551181102362)
        '’余白（余白上）
        .TopMargin = Application.InchesToPoints(0.984251968503937)
        '’余白（余白下）
        .BottomMargin = Application.InchesToPoints(0.78740157480315)
        '’余白（ヘッダーの余白）
        .HeaderMargin = Application.InchesToPoints(0.511811023622047)
        '’余白（フッターの余白）
        .FooterMargin = Application.InchesToPoints(0.511811023622047)
        '’余白（ページ中央）水平
        .CenterHorizontally = True
        '’余白（ページ中央）垂直
        .CenterVertically = False
        

        '’●ヘッダーフッター
        '’ヘッダーフッター（ヘッダーの編集）左
        .LeftHeader = ""
        '’ヘッダーフッター（ヘッダーの編集）中
        .CenterHeader = ""
        '’ヘッダーフッター（ヘッダーの編集）右
        .RightHeader = "&""TT-JTC古印体,Light""&10‐御見積仕様書‐"
        '’ヘッダーフッター（フッターの編集）左
        .LeftFooter = ""
        '’ヘッダーフッター（フッターの編集）中（参考：シート名）
        .CenterFooter = "&A"
        '’ヘッダーフッター（フッターの編集）中（参考：ページ/ページ）
        '’.CenterFooter = "Page &P/&N"
        '’ヘッダーフッター（フッターの編集）右
        .RightFooter = "&""Harlow Solid Italic,斜体""&14Aiei"
        
        
        '’●シート
        '’シート（印刷範囲）
        .PageSetup.PrintArea = "$A$1:$BO$46"
        '’シート（行のタイトル範囲）
        .PrintTitleRows = ""
        '’シート（列のタイトル範囲）
        .PrintTitleColumns = "$A:$E"
        '’シート（印刷）（枠線）
        .PrintGridlines = False
        '’シート（印刷）（白黒印刷）
        .BlackAndWhite = False
        '’シート（印刷）（簡易印刷）
        .Draft = False
        '’シート（印刷）（行列番号）
        .PrintHeadings = True
        '’シート（印刷）（コメント）
        .PrintComments = xlPrintNoComments
        
        
    End With
    
    '’プレビュー
    ActiveWindow.SelectedSheets.PrintPreview
    
End Sub 

 

2000年01月01日|[VBサンプルコード]:[ページ設定]