2.3.01. Button on Form

In this, most basic example, we will add "Convert to PDF" button on the form. Clicking the button will convert opened document to PDF and save it to "c:\temp\test.pdf".

Use "SwPDFMain"
Sub Click(Source As Button)
    Dim w As New NotesUIWorkspace, doc As NotesDocument
    Dim swPDF As New SwPDFCreator, swPDFDoc As SwPDFDocument

    ' Get currently opened Notes document
    Set doc = w.CurrentDocument.Document

    ' Initialize PDF creation process; license key is required
    If swPDF.Init("<YOUR LICENSE KEY GOES HERE>") Then
        ' Convert doc to PDF
        Set swPDFDoc = swPDF.ProcessDocument(doc)

         ' Finally, save generated PDF to a file on disk
        Call swPDFDoc.SaveToFile("c:\temp\test.pdf")
        Msgbox "PDF successfully created."
    Else
        ' There was an error in PDF initialization Chapter
        Dim pdfErr As SwPDFError

        Set pdfErr = swPDF.GetError()
        Msgbox "An error occurred: (" & pdfErr.Code & ") " & pdfErr.Message & " - line " & pdfErr.Position
    End If
End Sub
Comments