Navigation:  DominoPDF > Sample Code > DominoPDF - Example Usage

To generate PDF output from a browser request a Notes agent can be used. The browser would reference a link to the agent which would create the PDF via DominoPDF and return the output.

(Declarations)

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

Sub Initialize

'Declararations...

Dim session As New NotesSession

Dim db As NotesDatabase

Dim oDoc As NotesDocument

Dim sDirectory, sFile, sFilePath As String

Dim iRet As Integer

Dim vEval As Variant

 

'Set values...

Set db = session.CurrentDatabase

Set oDoc = New NotesDocument( db )

 

'Error handler...

On Error Goto Error_Handler

 

'1. Create files in domino HTML directory...

sDirectory = session.GetEnvironmentString("Directory",True)

sDirectory = sDirectory & "\domino\html\"

 

'2. Create temporary file name...

vEval = Evaluate(|@Right(@Unique; "-") + ".PDF"|, oDoc)

sFile = vEval(0)

sFilePath = sDirectory & vEval(0)

 

'3. Convert to PDF...

iRet = DoPDF(|http://localhost/names.nsf/Home?OpenForm|, sFilePath, ||)

 

'4. Point browser to PDF...

Print |<Script>window.location='/| & sFile & |';</script>|

 

The_End:

Exit Sub

 

Error_Handler:

Print |Error in DominoPDF Interface: | & Error$

Resume The_End

End Sub