Note: For a quick introduction to using alternate forms in PDF Converter, check this article. This example converts a document collection into a single PDF document. Use "SwPDFMain" Sub Click(Source As Button) Dim w As New NotesUIWorkspace, s As New NotesSession, dc As NotesDocumentCollection Dim swPDF As New SwPDFCreator, swPDFDoc As SwPDFDocument, pdfErr As SwPDFError Dim DestFilePath As Variant ' Get documents selection from view Set dc = s.CurrentDatabase.UnprocessedDocuments If dc.Count > 0 Then ' Get destination file path DestFilePath = w.SaveFileDialog(False, "Save document", "PDF Files (*.pdf)|*.pdf", "", "test.pdf") If Not Isempty(DestFilePath)Then If Dir$(DestFilePath(0)) <> "" Then dialogRes = Messagebox(DestFilePath(0) & " already exists." & Chr$(13) & Chr$(10) & "Do you want to replace it?", 4, "Save document") If dialogRes = 7 Then Exit Sub Else Kill DestFilePath(0) End If End If ' Procceed with PDF conversion ' Initialize PDF creation process; license key is required If swPDF.Init("<YOUR LICENSE KEY GOES HERE>") Then If dc.Count = 1 Then ' Convert doc to PDF Set swPDFDoc = swPDF.ProcessDocument(dc.GetFirstDocument) Else ' Set alternate forms Dim temp (2) As String temp(0)= "TestForm1|altTestForm1" temp(1) = "TestForm2|altTestForm2" swPDF.PDFSettings.AlternateFormsCol = temp Set swPDFDoc = swPDF.ProcessDocCollection(dc, w.CurrentView.ViewName) End If If Not swPDFDoc Is Nothing Then ' Finally, save generated PDF to a file on disk Call swPDFDoc.SaveToFile(DestFilePath(0)) Msgbox "PDF successfully created in " & DestFilePath(0) Else ' There was an error in PDF conversion Set pdfErr = swPDF.GetError() Msgbox pdfErr.Message, 0+16, "ERROR" End If Else ' There was an error in PDF initialization Set pdfErr = swPDF.GetError() Msgbox pdfErr.Message, 0+16, "ERROR" End If End If Else Msgbox "You must select at least one document.", 0+48, "WARNING" End If End Sub |
PDF Converter for Notes > 3. How to... >