印刷プレビューの表示倍率を設定 : Excel(エクセル)

表示倍率をExcel VBAで変更するには、PageSetupオブジェクトのZoomプロパティを設定します。

印刷プレビューは、PrintPreview メソッドを実行します。

Excel Tipsメニューに戻る

スポンサーリンク





Excel実行画面

コンボボックスで表示倍率を選択し、「印刷プレビュー」ボタンをクリックすると、右の都道府県別の「人口」「面積」「人口密度」の一覧表を印刷します。
印刷表示サイズの設定シート

[表示倍率50%での印刷プレビュー画面]
50%で印刷表示

[表示倍率200%での印刷プレビュー画面]
200%で印刷表示

スポンサーリンク



Excel VBA実行コード

Option Explicit

Private Sub Workbook_Open()
    
    '表示倍率のコンボボックスのリストに追加
    Worksheets("Sheet1").ComboBox1.AddItem 50
    Worksheets("Sheet1").ComboBox1.AddItem 100
    Worksheets("Sheet1").ComboBox1.AddItem 150
    Worksheets("Sheet1").ComboBox1.AddItem 200
    Worksheets("Sheet1").ComboBox1.AddItem 250
    Worksheets("Sheet1").ComboBox1.AddItem 300

End Sub
Option Explicit


Private Sub CommandButton1_Click()
    
    If ComboBox1.Value = "" Then
        MsgBox "表示倍率を設定してください。"
        Exit Sub
    End If
    
On Error GoTo ErrExit:
    '表示倍率
    Worksheets("Sheet1").PageSetup.Zoom = Val(ComboBox1.Value)
    '印刷プレビュー
    Worksheets("Sheet1").PrintPreview
    Exit Sub

ErrExit:
    MsgBox "エラーが発生しました。処理を中止します。" & vbCrLf & Err.Description
End Sub

Excel Tipsメニューに戻る




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


Copyright (c) Excel-Excel ! All rights reserved