Microsoft Access

Top  Previous  Next

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 Sub



   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