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 |
実行結果
