アクセス上位ページ
 
最近の更新内容
(7)-m.Delete メソッド ⇐ [PREV]
[NEXT] ⇒ (7)-o.PrintOut メソッド

Excel VBA ≫ 1.基礎編 - ワークシート(7)-n.PrintPreview メソッド

PrintPreview メソッド

ワークシートの印刷プレビューを表示したい場合は PrintPreview メソッドを使用します。 複数のシートを選択状態にした後、PrintPreview メソッドを使用することで複数シートの印刷プレビューを表示することもできます。

PrintPreview メソッドではプレビュー表示のページ指定はできません。 この場合は PrintOut メソッドのページ指定オプションとプレビューオプションを使用することで、ページ指定した印刷プレビューを表示することができます。



  • 【構文】
    object.PrintPreview ( [EnableChanges] )
  • ※objectはworksheetオブジェクトを表す変数

    引数名 省略 定数/データ型 説明
    EnableChanges ブール型
    (Boolean)
    余白など、印刷プレビューで設定可能なページ設定オプションをユーザーが変更すること可能にする場合は True を設定します。(既定値)


  • PrintPreview メソッドの使用例1
  • 印刷ヘッダーや、用紙サイズなどの設定してからプレビュー表示する例です。
    Sub sample_eb07e_01()
        With Worksheets("2016年度")
            '印刷ヘッダー設定(太字、18pt、シート名表示)
            .PageSetup.CenterHeader = "&B&18&A 売上一覧表"
            '日付表示
            .PageSetup.RightHeader = "印刷日 : &D"
    
            '用紙サイズ、方向
            .PageSetup.PaperSize = xlPaperA4
            .PageSetup.Orientation = xlPortrait
    
            '印刷プレビュー表示
            .PrintPreview
        End With
    End Sub
    
    ⇒ サンプルマクロ集 へ


    <ブック内のシート>
    年度毎の売上一覧表シートが複数存在します。 ブック内のシート <sample_eb07e_01 実行後> sample_eb07e_01 実行後
  • 参考
  • PrintPreview メソッドの引数に False を指定すると、印刷プレビューリボンからページ設定ができなくなります。
    Sub test_eb07e_01()
        ActiveSheet.PrintPreview False
    End Sub
    
    印刷プレビューリボン

  • PrintPreview メソッドの使用例2
  • ブック内全シートの印刷プレビューを表示する例です。
    Sub sample_eb07e_02()
        'ブック内全シートの印刷プレビュー表示
        Worksheets.PrintPreview
    End Sub
    
    ⇒ サンプルマクロ集 へ


  • PrintPreview メソッドの使用例3
  • ブック内複数シートの印刷プレビューを表示する例です。
    Sub sample_eb07e_03()
        Dim varSheets As Variant
    
        '印刷プレビューで表示したいシート名の配列
        varSheets = Array("2014年度", "2016年度")
    
        'シート選択
        Worksheets(varSheets).Select
    
        '選択シートのプレビューを表示
        ActiveWindow.SelectedSheets.PrintPreview
    End Sub
    
    ⇒ サンプルマクロ集 へ


カテゴリ内ページ



Page
Top