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 |