Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

印刷品質を設定（PageSetup.PrintQuality プロパティ）

2015/10/13

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ソース

　
Sub Sample_PrintQuality()

    
    Dim w As Worksheet
    Set w = ActiveSheet
    
    '印刷品質を「標準印刷（高品質）」に設定
    w.PageSetup.PrintQuality = -4

    '※ 印刷品質：値
    '　標準印刷（高品質）：-4
    '　簡易印刷（中品質）：-3
    '　簡易印刷（低品質）：-2
    '　下書き印刷　　　　：-1


End Sub

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ソースを実行後に「ページ設定」の「ページ」タブを確認

- ブック・シートの操作 PageSetup プロパティ, PrintQuality プロパティ, VBA基本, Worksheet オブジェクト, エクセルVBA, ブック・シートの操作, 印刷

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 画面の上端・左端を設定（ScrollRow プロパティ、ScrollColumn プロパティ）

画面の上端・左端を設定 ScrollRow プロパティで、指定した行を画面上端に …

: ブックの変更が保存されているかを確認する（Saved プロパティ）

ブックの変更が保存されているかを確認する（Saved プロパティ） Saved …

: 印刷設定を高速化（PrintCommunication プロパティ）

PrintCommunication プロパティ PrintCommunicat …

: ワークシートのコピー・移動（Copy メソッド Move メソッド）

Copy メソッド Copy メソッドで、指定した位置にワークシートの複製を作成 …

: 印刷の倍率（拡大／縮小）（PageSetup.Zoom プロパティ）

PageSetup.Zoom プロパティ PageSetup.Zoom プロパテ …

: 印刷：余白を設定 TopMargin,BottomMargin,LeftMargin,RightMargin,HeaderMargin,FooterMargin

余白を設定する余白を設定する単位は、pt（ポイント：約 0.03528 cm） …

: 枠線の表示・非表示の設定（DisplayGridlines プロパティ）

枠線の表示・非表示の設定枠線の表示・非表示を設定するには、DisplayGri …

: 印刷のタイトル行、タイトル列を設定（PrintTitleRows,PrintTitleColumns）

PageSetup.PrintTitleRows プロパティ PageSetup …

: シート見出しの色を設定（Tab プロパティ）

シート見出しの色を設定 Tab オブジェクトの Color プロパティ、Colo …

: 印刷範囲の設定・解除（PageSetup.PrintArea プロパティ）

PageSetup.PrintArea プロパティ印刷範囲を設定するには、Pa …

PREV: 印刷の用紙サイズを設定（PageSetup.PaperSize プロパティ）
NEXT: 印刷：余白を設定 TopMargin,BottomMargin,LeftMargin,RightMargin,HeaderMargin,FooterMargin