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 プロパティで、指定した行を画面上端に …

: 枠線を含めて印刷（PageSetup.PrintGridlines プロパティ）

PageSetup.PrintGridlines プロパティ PageSetup …

: スクロールバーの表示・非表示（DisplayHorizontalScrollBar,DisplayVerticalScrollBar）

スクロールバーの表示・非表示の設定 Windows オブジェクトの Displ …

: 印刷の用紙サイズを設定（PageSetup.PaperSize プロパティ）

PageSetup.PaperSize プロパティ PageSetup.Pape …

: 別のブックのマクロを実行（Run メソッド）

別のブックのマクロを実行別のブックのマクロを実行するには、Run メソッドを …

: ブックの表示を変更（View プロパティ）

ブックの表示を変更（View プロパティ） View プロパティで、ブックの表 …

: 簡易印刷（PageSetup.Draft プロパティ）

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

: 最近使用したファイル（RecentFile オブジェクト,RecentFiles コレクション）

最近使用したファイル（RecentFile オブジェクト,RecentFiles …

: 再計算（Calculation, EnableCalculation, Calculate）

ワークブックやシートの再計算通常、Excel では、自動的に再計算が行われる設 …

: 印刷時のページの番号付けの方向を設定（PageSetup.Order プロパティ）

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

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