PrintOut メソッド

文書をPDFファイルへプリントする。

Sub PrintOut(InFileName As String,
             OutFileName As String)

パラメータ

InFileName

絶対パスフォーマットの入力ファイル名。またはソースがHTMLの場合、有効なURL。

OutFileName

絶対パスフォーマットの出力PDFファイル名

戻り値

無し

注意点

ファイル変換が上手くいかなかった場合、エラーが起こります。一度エラーが発生したら、詳細情報を得ることが出来ます。

Note: ローカルドライブ上(例　"C:\input.htm")のHTMLファイルをプリントする場合、外部オブジェクトへの全てのリンク(画像やスタイルシート)は絶対パス(またはBASEタグ使用)で特定されなくてはなりません。 でなければ文書は正しくプリントされません。

使用例

On Error goto Function_Err

Set oPrinter = CreateObject("easyPDF.Printer.5")
Set oPrintJob = oPrinter.PrintJob
oPrintJob.PrintOut "C:\input.doc", "C:\output.pdf"

Function_End:
    Exit Function

Function_Err:
    ' エラーメッセージをGetします。
    MsgBox Err.Description

    ' エラー番号を確認します。
    If Err.Number = PRN_R_CONVERSION_FAILED Then
        ' エラーメッセージの詳細
        MsgBox "Conversion Result: " + oPrintJob.ConversionResultMessage

        ' エラーメッセージがプリンタドライバから来ているのかどうか確認します。
        nResult = oPrintJob.ConversionResult
        If nResult = PRN_CR_CONVERSION Or _
           nResult = PRN_CR_CONVERSION_INIT Or _
           nResult = PRN_CR_CONVERSION_PRINT Then
            ' プリンタドライバからのエラーメッセージ
            MsgBox "Printer Result: " + oPrintJob.PrinterResultMessage

            ' 更に結果を整数フォーマットでGetできます。
            nPrinterResult = oPrintJob.PrinterResult
        End If
    End If

    Resume Function_End