Navigation:  DominoPDF > Sample Code > DominoPDF - Create PDF From View Example

DominoPDF accepts URL's pointing to Notes data and design elements. Typically these URL's are known in advance but there are occasions when URL's need to be calculated. A LotusScript example of calculating URL's is provided below.

(Declarations)

Declare Function DoPDF Lib "DOMINOPDF.DLL" (Byval szInput As String, Byval szOutput As String, szOptions as String) As Long

Sub Initialize

'Declarations

Dim session As New NotesSession

Dim db As NotesDatabase

Dim server As String, serverpath As String, unid As String, URL As String, PDF As String

Dim view As NotesView

Dim doc As NotesDocument

 

'Error handler

On Error Goto Error_Handler

 

'Set values

Set db = session.CurrentDatabase

Dim ServerName As New NotesName(db.server)

 

server = ServerName.Common

serverpath = server & "/" & db.filepath

 

Set view = db.GetView("AllDocuments")

Set doc = view.GetFirstDocument

unid = doc.UniversalID

 

URL = |http://| & serverpath & |/vAll/| & unid & |?Open|

PDF = |c:\test.pdf|

 

'Create PDF with DominoPDF

Call DoPDF(URL, PDF, "")

 

The_End:

Exit Sub

 

Error_Handler:

Print Error$

Resume The_End

 

End Sub