印刷プレビューを行う【PrintPreviewメソッド】

構文
引数
コードサンプル
注意点
関連記事

構文

object.PrintPreview( EnableChanges )

引数

引数	説明	引数を省略した場合
object	対象となるオブジェクトを指定	省略不可
	・Windowオブジェクト
	・Workbook オブジェクト
	・Worksheet オブジェクト
	・Range オブジェクト
EnableChanges	ユーザーにページ設定オプションを設定させる→True 設定させない→False	TRUE

コードサンプル

Public Sub sample()

    '■ActiveSheetを印刷プレビュー表示
    ActiveSheet.PrintPreview
    '■ActiveSheetを印刷プレビュー表示(ページ設定、余白表示が無効)
    ActiveSheet.PrintPreview , False
    
    '■指定範囲を印刷プレビュー表示
    Dim ws As Worksheet: Set ws = ThisWorkbook.Worksheets("Sheet1")
    ws.Range("A1:D50").PrintPreview
    
    '■ブック全体(シート全て)をまとめて印刷プレビュー表示
    ActiveWorkbook.PrintPreview
 
End Sub