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
Last updated
Was this helpful?