印刷の倍率（拡大／縮小）（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 |
実行結果
関連記事
-
-
印刷時、シート内のエラーをどう扱うかを設定（PrintErrors プロパティ）
PageSetup.PrintErrors プロパティ PageSetup.Pr …
-
-
印刷設定を高速化（PrintCommunication プロパティ）
PrintCommunication プロパティ PrintCommunicat …
-
-
最近使用したファイル（RecentFile オブジェクト,RecentFiles コレクション）
最近使用したファイル（RecentFile オブジェクト,RecentFiles …
-
-
印刷：余白を設定 TopMargin,BottomMargin,LeftMargin,RightMargin,HeaderMargin,FooterMargin
余白を設定する 余白を設定する単位は、pt（ポイント：約 0.03528 cm） …
-
-
背景に画像を表示（SetBackgroundPicture メソッド）
SetBackgroundPicture メソッド SetBackgroundP …
-
-
ページ数に合わせて印刷（FitToPagesTall, FitToPagesWide）
PageSetup.FitToPagesTall プロパティ PageSetup …
-
-
スクロール範囲を限定（ScrollArea プロパティ）
ScrollArea プロパティ ScrollArea プロパティ にセル範囲を …
-
-
ファイル保存の既定の形式を取得・設定（DefaultSaveFormat プロパティ）
DefaultSaveFormat プロパティ DefaultSaveForma …
-
-
新しいウィンドウを開く（NewWindow メソッド）
NewWindow メソッド NewWindow メソッドで、任意のブックのコピ …
-
-
行列の見出しの表示・非表示（DisplayHeadings プロパティ）
DisplayHeadings プロパティ 行と列の見出しの表示・非表示を設定お …