指定ページ以内に印刷が入るように設定 : Excel(エクセル)

FitToPagesWide と FitToPagesTall を有効にするには、拡大縮小印刷(Zoom)を無効にしておきます。

横方向が指定ページ内に入るようにするには、FitToPagesWide = ページ数 と設定します。
縦方向が指定ページ内に入るようにするには、FitToPagesTall = ページ数 と設定します。

Excel Tipsメニューに戻る

スポンサーリンク



Excel実行画面

通常の印刷プレビュー画面
下に「1/2ページ」と表示され、全ページ数が2ページなのが分かります。
印刷ページを設定しない場合のプレビュー画面

スポンサーリンク



印刷ページを1ページに設定した印刷プレビュー画面
下に「1/1ページ」と表示され、全ページ数が1ページなのが分かります。
縮小され1ページになったプレビュー画面

Excel VBA 実行コード

Option Explicit

Private Sub CommandButton1_Click()
    
    'ズームを無効にする
    Worksheets("Sheet1").PageSetup.Zoom = False
    
    '横が1ページ内に入るようにする
    Worksheets("Sheet1").PageSetup.FitToPagesWide = 1
    
    '縦が1ページ内に入るようにする
    Worksheets("Sheet1").PageSetup.FitToPagesTall = 1
    
    '印刷プレビュー
    Worksheets("Sheet1").PrintPreview
    
End Sub

Excel Tipsメニューに戻る

スポンサーリンク





■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved