ACC2000: How to Generate and Print a Report Without Saving It (203992)

MORE INFORMATION

Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements. The following sample code does the following:

• It creates and populates a simple array.
• It creates a simple report and creates event procedures.
• It prints the array to the report.
• It discards the report without saving it.

For the sake of simplicity, the data in this example will be supplied from a single dimension array and the output report will have just one data field.

1. Create a new database.
2. Create a module and type the following lines in the Declarations section if they are not already there:

   Option Compare Database
   Option Explicit
   Public arySampleData() As Variant
   Public strReportName As String
   					

3. Type the following procedure:

   Public Sub FillArray()
      Dim aryItem As Long
      For aryItem = 0 To 9
         ReDim Preserve arySampleData(aryItem)
         arySampleData(aryItem) = "Item " & aryItem
      Next aryItem
   End Sub
   					

4. Type the following procedure:

   Sub TempReport()
     Dim rpt As Report
     Dim mdl As Module
     Dim strCode As String
     Dim lngReturn As Long
     Dim ctlLabel1 As Control, ctlText1 As Control
     Dim intDataX As Integer, intDataY As Integer
     Dim intLineCount As Integer, intCounter As Integer
   
     ' Turn off the screen updating. Comment this line out during
     ' testing because it prevents user interaction if the code fails.
     Application.Echo False
   
     ' Create new report and store the name.
     Set rpt = CreateReport
     strReportName = rpt.Name
   
     ' Expose the report header.
     DoCmd.RunCommand acCmdReportHdrFtr
     Set mdl = rpt.Module
   
     intLineCount = mdl.CountOfLines
     strCode = "Dim intCounter as Integer"
     mdl.InsertLines intLineCount, strCode
   
     lngReturn = mdl.CreateEventProc("Print", rpt.Section(acHeader).Name)
     strCode = "intCounter=0" & vbCrLf & "FillArray"
     mdl.InsertLines lngReturn + 1, strCode
   
     lngReturn = mdl.CreateEventProc("Print", rpt.Section(acDetail).Name)
     strCode = "Me!txtTest.Value= arySampleData(intCounter)" & vbCrLf
     strCode = strCode & "Me!lblTest.Caption= ""Array Value""" & vbCrLf
     strCode = strCode & "If intCounter <> UBound(arySampleData)" _
        & "Then Me.nextrecord=False" & vbCrLf
     strCode = strCode & "intCounter=intCounter+1"
     mdl.InsertLines lngReturn + 1, strCode
   
     ' Set positioning values for report controls.
     ' Measurements are in twips.
     intDataX = 500
     intDataY = 50
   
     ' Create unbound default-size label and text box in detail section.
     rpt.Section(acDetail).Height = 400
     Set ctlLabel1 = CreateReportControl(reportname:=strReportName, _
        ControlType:=acLabel, Left:=intDataX, Top:=intDataY, _
        Width:=1440, Height:=240)
     ctlLabel1.Name = "lblTest"
     Set ctlText1 = CreateReportControl(reportname:=strReportName, _
        ControlType:=acTextBox, Left:=(intDataX + 1440), Top:=intDataY)
     ctlText1.Name = "txtTest"
   
     ' Turn the screen back on.
     Application.Echo True
   End Sub
   					

5. Type the following function:

   Function BuildReport()
     ' Call the TempReport procedure.
     TempReport
   
     ' Print the report without showing it in preview mode.
     DoCmd.OpenReport strReportName, acViewNormal
   
     ' Close the report without saving it.
     DoCmd.Close acReport, strReportName, acSaveNo
   End Function
   					

6. To test this function, type the following line in the Immediate window, and then press ENTER:

   ?BuildReport()
   					

Note that the report is printed, and then the report no longer exists. Also note that the variable, intCounter, is initialized and the function, FillArray, is called from the Print event of the ReportHeader section rather than from the Open event of the Report, which would cause the example to fail.