印刷品質を設定(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ソースを実行後に「ページ設定」の「ページ」タブを確認
関連記事
-
-
スクロールバーの表示・非表示(DisplayHorizontalScrollBar,DisplayVerticalScrollBar)
スクロールバーの表示・非表示の設定 Windows オブジェクト の Displ …
-
-
印刷:余白を設定 TopMargin,BottomMargin,LeftMargin,RightMargin,HeaderMargin,FooterMargin
余白を設定する 余白を設定する単位は、pt(ポイント:約 0.03528 cm) …
-
-
簡易印刷(PageSetup.Draft プロパティ)
PageSetup.Draft プロパティ PageSetup.Draft プロ …
-
-
ワークシートのコピー・移動(Copy メソッド Move メソッド)
Copy メソッド Copy メソッドで、指定した位置にワークシートの複製を作成 …
-
-
新規ブック作成(Add メソッド)
新規にワークブックを作成する Workbooks コレクションの Add メソッ …
-
-
ブックのプロパティ(BuiltinDocumentProperties プロパティ)
BuiltinDocumentProperties プロパティ ブックのプロパテ …
-
-
再計算(Calculation, EnableCalculation, Calculate)
ワークブックやシートの再計算 通常、Excel では、自動的に再計算が行われる設 …
-
-
印刷範囲の設定・解除(PageSetup.PrintArea プロパティ)
PageSetup.PrintArea プロパティ 印刷範囲を設定するには、Pa …
-
-
印刷時、シート内のエラーをどう扱うかを設定(PrintErrors プロパティ)
PageSetup.PrintErrors プロパティ PageSetup.Pr …
-
-
枠線の表示・非表示の設定(DisplayGridlines プロパティ)
枠線の表示・非表示の設定 枠線の表示・非表示を設定するには、DisplayGri …
