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=
" & oDB.Title & "

;" sOptions = sOptions & "HTMLFooter=
Page {$PAGE} of {$PAGECOUNT}

;" sOptions = sOptions & "ForceSectionExpand=True;" sOptions = sOptions & "ForceOutlineExpand=True;" sOptions = sOptions & "RowAtATimeTableAlt=True;" Call DoPDF(|Select Form = "Memo"|, "memo.pdf", sOptions) End Sub