印刷の倍率（拡大／縮小）（PageSetup.Zoom プロパティ）
PageSetup.Zoom プロパティ
PageSetup.Zoom プロパティを使用して、印刷の倍率を設定します。取得および設定が可能です。バリアント型（Variant）の値を使用します。
＜取得＞
object.PageSetup.Zoom
＜設定＞
object.PageSetup.Zoom = variant
引数・戻り値
- object ・・・ 対象となる Worksheet オブジェクト を指定します。
- variant ・・・ 印刷の倍率（拡大率または縮小率）を、10 ～ 400 の範囲の値（単位は％）、または、False を指定します。
PageSetup.Zoom プロパティ に、10 未満の値や 400 より大きい値を指定するとエラーになります。
PageSetup.Zoom プロパティ に、False を指定した場合、拡大縮小する方法は、FitToPagesWide プロパティ、FitToPagesTall プロパティ の設定により決定します。
PageSetup.Zoom プロパティ 使用例
サンプルVBAソース
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Sub Sample_Zoom() Dim w As Worksheet Set w = ActiveSheet '印刷の縮小率を50％に設定 w.PageSetup.Zoom = 50 '印刷プレビューを表示 w.PrintPreview End Sub |
実行結果
関連記事
-
-
ワークシートのコピー・移動（Copy メソッド Move メソッド）
Copy メソッド Copy メソッドで、指定した位置にワークシートの複製を作成 …
-
-
ブックを開く（Open メソッド）
ブックを開く（Open メソッド） ブックを開くには、Workbooks コレク …
-
-
印刷：余白を設定 TopMargin,BottomMargin,LeftMargin,RightMargin,HeaderMargin,FooterMargin
余白を設定する 余白を設定する単位は、pt（ポイント：約 0.03528 cm） …
-
-
アウトライン記号の表示・非表示（DisplayOutline プロパティ）
アウトライン記号の表示・非表示（DisplayOutline プロパティ） Di …
-
-
印刷実行前に総ページ数を取得（ExecuteExcel4Macro メソッド）
印刷の総ページ数を取得（ExecuteExcel4Macro メソッド） Exc …
-
-
印刷設定（フッターに文字列を指定）LeftFooter,CenterFooter,RightFooter
PageSetup.LeftFooter プロパティ PageSetup.Lef …
-
-
ワークシートにクリップボードの内容を貼り付ける（Paste メソッド）
Paste メソッド 指定したワークシート上にクリップボードのデータを貼り付けま …
-
-
ブックの表示を変更（View プロパティ）
ブックの表示を変更（View プロパティ） View プロパティ で、ブックの表 …
-
-
最近使用したファイル（RecentFile オブジェクト,RecentFiles コレクション）
最近使用したファイル（RecentFile オブジェクト,RecentFiles …
-
-
印刷設定（偶数ページのヘッダー・フッターを設定）OddAndEvenPagesHeaderFooter, EvenPage
偶数ページに別のヘッダーおよびフッターを設定 偶数ページのヘッダーおよびフッター …