サンプル

・c:\test\test.pdf を修正する

    Dim result

    result = PDFJPatchInitialize()
    result = DoPDFJPatch("c:\test\test.pdf")

・c:\test\in.pdf を修正して、c:\test\out.pdf に保存する

    Dim result

    result = PDFJPatchInitialize()
    result = DoPDFJPatch("c:\test\in.pdf", "c:\test\out.pdf")

・エラー処理の実装

    Dim error
    Dim result

    result = PDFJPatchInitialize()
    if result Then
        error = String(256, vbNullChar)
        result = DoPDFJPatch("c:\test\test.pdf", , error)
        If result <> 0 Then
            MsgBox(error)
        End If
    End If

・ActiveReportsとの連携

    Dim pdf As New ActiveReportsPDFExport.ARExportPDF
    Dim fileName As String
    Dim isSave As Boolean
    Dim result

    isSave = VBGetSaveFileName(fileName, "", True, _
        "PDF(*.PDF)| *.PDF", , , _
        "PDFエクスポート", "*.PDF", Me.hWnd, OFN_EXPLORER Or OFN_HIDEREADONLY Or OFN_LONGNAMES)
    If Not isSave Then
        Exit Sub
    End If

    pdf.FileName = fileName
    pdf.Export arv.Pages

    result = PDFJPatchInitialize()
    result = DoPDFJPatch(fileName)

    Set pdf = Nothing

ホーム

2000-2001 Simple Systems Co., Ltd.