Option Public

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

Sub Initialize	
	Dim oSession As New NotesSession
	Dim oDB As NotesDatabase
	Dim sOptions As String
	
	Set oDB = oSession.CurrentDatabase
	
	sOptions = "Database=" & oDB.FileName & ";"
	sOptions = sOptions & "AutoLaunch=True;"
	sOptions = sOptions & "LeftMargin=10;"
	sOptions = sOptions & "RightMargin=10;"
	sOptions = sOptions & "TopMargin=10;"
	sOptions = sOptions & "BottomMargin=10;"
	sOptions = sOptions & "PageSize=Letter;"
	sOptions = sOptions & "Orientation=Portrait;"
	sOptions = sOptions & "HTMLHeader=<center><strong>" & oDB.Title & "</strong></center><br/>;"
	sOptions = sOptions & "HTMLFooter=<center>Page {$PAGE} of {$PAGECOUNT}</center><br/>;"
	sOptions = sOptions & "ForceSectionExpand=True;"
	sOptions = sOptions & "ForceOutlineExpand=True;"
	sOptions = sOptions & "RowAtATimeTableAlt=True;"	
	
	Call DoPDF(|Select Form = "Memo"|, "memo.pdf", sOptions)	
End Sub