Microsoft Access

The following example shows the basic code to open and print an Access report to Win2PDF.  This example uses SaveSetting to set the PDF file name and will suppress the Win2PDF File Save dialog.

Private Sub cmd_PrintToWin2PDF_Click()

'This code assumes that Win2PDF is set as the default printer.

On Error GoTo Err_cmd_PrintToWin2PDF_Click

   Dim stDocName As String

   'set the output file name

   SaveSetting "Dane Prairie Systems", "Win2PDF", "PDFFileName", "c:\AccessTest.pdf"

   stDocName = "Report to be converted"

   DoCmd.OpenReport stDocName, acNormal

Exit_cmd_PrintToWin2PDF_Click:

   Exit Sub

Err_cmd_PrintToWin2PDF_Click:

   MsgBox Err.Description

   Resume Exit_cmd_PrintToWin2PDF_Click

End Sub

The following example shows how to merge two Access reports into a single PDF file:

  'This sample assumes that Win2PDF is set as the default printer.

  'create first PDF file from report rpt_OriginalReport

  SaveSetting "Dane Prairie Systems", "Win2PDF", "PDFFileName", "c:\tempReport.pdf"

  DoCmd.OpenReport "rpt_OriginalReport", acNormal

  'Set registry to append 2nd report to PDF file just created

  SaveSetting "Dane Prairie Systems", "Win2PDF", "PDFFileName", "c:\MergedReports.pdf"

  SaveSetting "Dane Prairie Systems", "Win2PDF", "PDFPrependFile", "c:\tempReport.pdf"

  'print second report, rpt_ReportToAppend

  DoCmd.OpenReport "rpt_ReportToAppend", acNormal

The following sample shows how to email without user interaction using the Win2PDF Mail Helper application. You need to install and configure the Win2PDF Mail Helper application before running this code.

The SaveWin2PDFDword routine used in this example is listed in Using the Printer object.

  'This sample assumes that Win2PDF is set as the default printer.

  Dim stDocName As String

  'enable sending the PDF file with no user interaction

  SaveWin2PDFDword "file options", &H420

  'set the output file name

  SaveSetting "Dane Prairie Systems", "Win2PDF", "PDFFileName", txt_PDFFileName

  SaveSetting "Dane Prairie Systems", "Win2PDF", "PDFMailRecipients", txt_emailaddress

  SaveSetting "Dane Prairie Systems", "Win2PDF", "PDFMailSubject", txt_EmailSubject

  SaveSetting "Dane Prairie Systems", "Win2PDF", "PDFMailNote", txt_emailmessage

  stDocName = "rpt_Report_to_EMail"

  DoCmd.OpenReport stDocName, acNormal