AVDoc

AcroExch.AVDoc： PrintPagesSilentEx メソッド

2017年9月6日管理人 6件のコメント

TOP > AcroExch.AVDoc > PrintPagesSilentEx [...]

説明

どんなダイアログボックスも表示しないで、指定された範囲のページを印刷します。

このメソッドはダイアログボックスを表示しないのを除いたAVDoc.PrintPagesExと同じです。

PrintPagesSilentExには、PrintPagesSilentより多くのパラメタがあります。

PrintPagesSilentExはいつもデフォルトプリンタ設定を使用します。（変更可能。備考参照）

形式

VARIANT_BOOL PrintPagesSilentEx(
                 long nFirstPage,
                 long nLastPage,
                 long nPSLevel,
                 long bBinaryOk,
                 long bShrinkToFit,
                 long bReverse,
                 long bFarEastFontOpt,
                 long bEmitHalftones,
                 long iPageOption);

引数

第１引数(long nFirstPage) ：
印刷を開始する頁番号。１頁目は０を指定する。
第２引数(long nLastPage) ：
印刷の終了頁。第１引数に注意。
第３引数(long nPSLevel) ：
ポストレベルを指定する。（2又は3）
第４引数(long bBinaryOk) ：
0以外の数値ならバイナリーデータ。
0は7-bit ASCIIデータ。
第５引数(long bShrinkToFit) ：
用紙の印刷可能領域に収まる様に縮小印刷指定する。
0（false）＝縮小印刷する
0以外（true）＝縮小しない
第６引数(long bReverse) ：
(ポストスクリプト印刷専用)
正の数：逆順に印刷
正の数で無い：昇順に印刷
第７引数(long bFarEastFontOpt) ：
(ポストスクリプト印刷専用)
目的のプリンタに「マルチ-バイト」字体があるなら、正の数にセット。
でなければ、0にセット。
第８引数(long bEmitHalftones) ：
(ポストスクリプト印刷専用)
０以外の正の数：ドキュメントで指定されたハーフトーン
０：以外。
第９引数(long iPageOption) ：
印刷範囲のオプション。以下のどれかを指定する。
※IAC.BASのモジュールから
PDAllPages(-3) ：範囲内の全てのページ
PDEvenPagesOnly(-5) ：偶数ページのみ
PDOddPagesOnly(-4) ：奇数ページのみ

戻り値

０：成功。
-1 ： PDFドキュメントがオープンされてないか、他で印刷中の場合。

動作するバージョン

Version	Adobe Acrobat	備考
4	-	Acrobat 4.0 ※Windows 98SE + Excel 2000
5	-	Acrobat 5.0.5
6	-	Acrobat 6.0.3 Pro
7	-	Acrobat 7.0.9 Pro Acrobat 7.1.4 Pro
8	OK	Acrobat 8.1.2 Pro
9	-	Acrobat 9.3.2 Extended
10	-	Acrobat X (10.1.8) Extended
11	-	Acrobat XI (11.0.04) Extended

OK = 動作する。
NO = 動作しない。戻り値が0を返す。
- = 未確認。

サンプル：ExcelのVBA

説明：どんなダイアログボックスも表示しないで、指定された範囲のページを印刷します。

F8キーでステップ実行しながら動作確認する。
事前に参照設定をする。
※IAC.BASが標準モジュールで別途必要です。

001 Private Sub Test_AVDoc_PrintPagesSilentEx()
002 
003     Dim objAcroApp As New Acrobat.AcroApp
004     Dim objAcroAVDoc As New Acrobat.AcroAVDoc
005     Dim lRet As Long
006 
007     'Acrobatアプリケーションを起動する。
008     lRet = objAcroApp.Show
009     'PDFファイルを開いて表示する。
010     lRet = objAcroAVDoc.Open("E:\Test01.pdf", "")
011 
012     'PDFファイルの頁を指定して印刷する。
013     lRet = objAcroAVDoc.PrintPagesSilentEx(1, 2, 2, 0, 0, _
014                                 0, 0, 0, PDAllPages)
015 
016    'PDFファイルを閉じます。
017     lRet = objAcroAVDoc.Close(1)
018 
019     'Acrobatアプリケーションを終了する。
020     lRet = objAcroApp.Hide
021     lRet = objAcroApp.Exit
022 
023     'オブジェクトを強制解放する
024     Set objAcroAVDoc = Nothing
025     Set objAcroApp = Nothing
026 
027 End Sub
028

　Highlight：プログラミング言語のソースコードを構文で色分け (GUI編)
　

補足

正直、第７引数、第８引数の詳細な使用方法が不明です。
印刷先のデフォルトプリンタを変更する事が出来ます。
「デフォルトプリンタを一時的に変更する方法」を参照して下さい。

参照

印刷の問題点を解決

動作確認環境

WindowsXP Pro(+ SP3) +
Acrobat 8.1.2 Pro + Office 2003 + MicrosoftUpdate

＜戻る＞

ブラウザ画面の文字サイズを変更するショートカットキー

[ CTRL ] + [ + ] : 文字を大きく
[ CTRL ] + [ - ] : 文字を小さく

Shortcut Keys

[ CTRL ] + [ + ] : Up the font size
[ CTRL ] + [ - ] : Down the font size