TOP > AcroExch.AVDoc > PrintPagesSilent      [...]

説明

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

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

PrintPagesSilentはいつもデフォルトプリンタ設定を使用します。

形式

VARIANT_BOOL PrintPagesSilent(
               long nFirstPage,
               long nLastPage,
               long nPSLevel,
               long bBinaryOk,
               long bShrinkToFit);

引数

1. 第１引数(long nFirstPage) ：
   印刷を開始する頁番号。１頁目は０を指定する。
2. 第２引数(long nLastPage) ：
   印刷の終了頁。第１引数に注意。
3. 第３引数(long nPSLevel) ：
   ポストレベルを指定する。（2又は3）
4. 第４引数(long bBinaryOk) ：
     0以外の数値ならバイナリーデータ。
     0は7-bit ASCIIデータ。
5. 第５引数(long bShrinkToFit) ：
   用紙の印刷可能領域に収まる様に縮小印刷指定する。
     0（false）＝縮小印刷する
     0以外（true）＝縮小しない  

戻り値

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

動作するバージョン

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

サンプル：ExcelのVBA

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

• F8キーでステップ実行しながら動作確認する。
• 事前に参照設定をする。

Sub AcroExch_AVDoc_PrintPagesSilent()

    Dim objAcroApp As New Acrobat.AcroApp
    Dim objAcroAVDoc As New Acrobat.AcroAVDoc
    Dim lRet As Long

    'Acrobatアプリケーションを起動する。
    lRet = objAcroApp.Show
    'PDFファイルを開いて表示する。
    lRet = objAcroAVDoc.Open("E:¥Test01.pdf", "")

   'PDFファイルの頁を指定して印刷する。
    lRet = objAcroAVDoc.PrintPagesSilent(1, 2, 2, 0, 0)

   'PDFファイルを閉じます。
    lRet = objAcroAVDoc.Close(1)

    'Acrobatアプリケーションを終了する。
    lRet = objAcroApp.Hide
    lRet = objAcroApp.Exit

   'オブジェクトを強制解放する
   Set objAcroAVDoc = Nothing
   Set objAcroApp = Nothing

End Sub 

補足

• 印刷先のデフォルトプリンタを変更する事が出来ます。
  「デフォルトプリンタを一時的に変更する方法」 を参照して下さい。  

参照

• 印刷の問題点を解決

動作確認環境

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

＜ 戻る ＞