印刷品質を設定(PageSetup.PrintQuality プロパティ)
PageSetup.PrintQuality プロパティ
PageSetup.PrintQuality プロパティを使用して、印刷品質を表す値を設定および取得することができます。設定する値は、解像度や品質を表す バリアント型(Variant)の値を指定しますが、使用するプリンタによって異なるので注意が必要です。
<取得>
object.PageSetup.PrintQuality ( index )
<設定>
object.PageSetup.PrintQuality ( index ) = variant
引数・戻り値
- object ・・・ 対象となる Worksheet オブジェクト を指定します。
- variant(index) ・・・ 水平方向の印刷品質(index = 1)または垂直方向の印刷品質(index = 2)を指定します。プリンターによっては、垂直方向の印刷品質をサポートしていない場合があります。この引数を省略すると、水平および垂直の両方向の印刷品質を含む 2 つの要素の配列を返します。
(例)水平の解像度 240dpi、垂直の解像度 140dpi を設定
Activesheet.PageSetup.PrintQuality = Array( 240, 140 )
(例)水平・垂直の解像度 300dpi を設定
Activesheet.PageSetup.PrintQuality = 300
PageSetup.PrintQuality プロパティ 使用例
サンプルVBAソース
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
Sub Sample_PrintQuality() Dim w As Worksheet Set w = ActiveSheet '印刷品質を「標準印刷(高品質)」に設定 w.PageSetup.PrintQuality = -4 '※ 印刷品質:値 ' 標準印刷(高品質):-4 ' 簡易印刷(中品質):-3 ' 簡易印刷(低品質):-2 ' 下書き印刷 :-1 End Sub |
実行結果
サンプルVBAソースを実行後に「ページ設定」の「ページ」タブを確認
関連記事
-
-
アウトライン記号の表示・非表示(DisplayOutline プロパティ)
アウトライン記号の表示・非表示(DisplayOutline プロパティ) Di …
-
-
ウィンドウの状態を取得・設定(WindowState プロパティ)
ウィンドウの状態を取得・設定(WindowState プロパティ) Window …
-
-
ウィンドウの分割(Split プロパティ,SplitColumn プロパティ,SplitRow プロパティ)
ウィンドウの分割と解除 ウィンドウ(ワークシート画面)を分割するには、Split …
-
-
ワークシートの数を数える(Count プロパティ)
Count プロパティ 指定したWorksheets コレクションやSheets …
-
-
印刷のタイトル行、タイトル列を設定(PrintTitleRows,PrintTitleColumns)
PageSetup.PrintTitleRows プロパティ PageSetup …
-
-
シート見出しの色を設定(Tab プロパティ)
シート見出しの色を設定 Tab オブジェクトの Color プロパティ、Colo …
-
-
シートが保護されているか確認(ProtectContents プロパティ)
ProtectContents プロパティ ワークシートが保護されているかどうか …
-
-
アクティブシートを参照する(ActiveSheet プロパティ)
アクティブなワークシートを参照する ActiveSheet プロパティを使用する …
-
-
イベントの発生・無効をコントロール(EnableEvents プロパティ)
EnableEvents プロパティ EnableEvents プロパティに T …
-
-
ワークシートにクリップボードの内容を貼り付ける(Paste メソッド)
Paste メソッド 指定したワークシート上にクリップボードのデータを貼り付けま …