ページ設定 ページ設定[PageSetup]内容全て設定する

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

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][ページ設定 ページ設定[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 





Production Japan Import Application. Since 1998