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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

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

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

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

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

: ブックの表示・非表示（Visible プロパティ）

ブック表示・非表示（Visible プロパティ）ブック（ウィンドウ）が表示され …

: スクロール（LargeScroll メソッド、Smallscroll メソッド）

ワークシートをスクロールするワークシートをスクロールするには、LargeScr …

: シートが保護されているか確認（ProtectContents プロパティ）

ProtectContents プロパティワークシートが保護されているかどうか …

: 新規ブック作成（Add メソッド）

新規にワークブックを作成する Workbooks コレクションの Add メソッ …

: ワークシートをファイルに保存する（SaveAs メソッド）

SaveAs メソッドワークシートを名前を付けてファイルに保存します。Work …

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

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

: PDF または XPS 形式で出力（ExportAsFixedFormat メソッド）

ExportAsFixedFormat メソッドブックやシートの内容を PDF …

: 前後のワークシートを参照する（Previous プロパティ,Next プロパティ)

Previous プロパティ指定したシートの前（左側）のシートを参照します。 …

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