印刷設定を高速化(PrintCommunication プロパティ)
PrintCommunication プロパティ
PrintCommunication プロパティに、False を指定することで、プリンターとの通信を無効化し、True を指定することで有効化することができます。
印刷の各種設定(PageSetup オブジェクト を使用する動作)は、時間がかかる場合があります。その時は、Excel とプリンタとの通信を一時的に遮断することで、PageSetup オブジェクト の動作を高速化することができます。(※ Excel 2010 以降のバージョンでのみ使用できます。)
<取得>
object.PrintCommunication
<設定>
object.PrintCommunication = boolean
引数・戻り値
- object ・・・ 対象となる Application オブジェクト を指定します。
- boolean ・・・ プリンタとの通信を有効にする場合は、True、無効にするには、False を指定します。
PrintCommunication プロパティ 使用例
サンプルVBAソース
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
Sub Sample_PrintCommunication() Dim w As Worksheet Set w = ActiveSheet 'プリンタとの通信を遮断(印刷設定を高速化) Application.PrintCommunication = False '印刷の設定 With w.PageSetup .Zoom = 50 '印刷の拡大縮小率を 50 % に設定 .CenterHorizontally = True '印刷を水平方向中央に設定 End With 'プリンタとの通信を再開 Application.PrintCommunication = True 'プレビュー表示 w.PrintPreview End Sub |
実行結果
関連記事
-
-
並べて比較(CompareSideBySideWith,SyncScrollingSideBySide,BreakSideBySide)
並べて比較(CompareSideBySideWith メソッド) Compar …
-
-
アウトライン記号の表示・非表示(DisplayOutline プロパティ)
アウトライン記号の表示・非表示(DisplayOutline プロパティ) Di …
-
-
前後のワークシートを参照する(Previous プロパティ,Next プロパティ)
Previous プロパティ 指定したシートの前(左側)のシートを参照します。 …
-
-
枠線を含めて印刷(PageSetup.PrintGridlines プロパティ)
PageSetup.PrintGridlines プロパティ PageSetup …
-
-
ウィンドウ枠の固定(FreezePanes プロパティ、SplitColumn プロパティ,SplitRow プロパティ)
ウィンドウ枠の固定と解除 ウィンドウ枠を固定するには FreezePanes プ …
-
-
ブックを参照(Workbooks プロパティ,Windows プロパティ)
アクティブなワークブックを参照 現在使用中のワークブック、複数ある場合は一番手前 …
-
-
印刷実行前に総ページ数を取得(ExecuteExcel4Macro メソッド)
印刷の総ページ数を取得(ExecuteExcel4Macro メソッド) Exc …
-
-
新しいウィンドウを開く(NewWindow メソッド)
NewWindow メソッド NewWindow メソッドで、任意のブックのコピ …
-
-
ユーザー設定のビュー(CustomViews プロパティ)
ユーザー設定のビュー CustomViews コレクションは、ユーザー設定ビュー …
-
-
ワークシートの数を数える(Count プロパティ)
Count プロパティ 指定したWorksheets コレクションやSheets …
