ACC: Report Vertical Lines Don't Grow with Section

• Microsoft Access versions 7.0, 97

SYMPTOMS

Moderate: Requires basic macro, coding, and interoperability skills.

Vertical Line controls don't increase in height when placed in a report section whose CanGrow property is set to Yes.

NOTE: This article explains a technique demonstrated in the sample files, RptSampl.exe (for Microsoft Access for Windows 95 version 7.0) and RptSmp97.exe (for Microsoft Access 97). For information about how to obtain these sample files, please see the following articles in the Microsoft Knowledge Base:

   ARTICLE-ID: Q145777
   TITLE     : ACC95: Microsoft Access Sample Reports Available on MSL

   ARTICLE-ID: Q175072
   TITLE     : ACC97: Microsoft Access 97 Sample Reports Available on MSL

RESOLUTION

You can use the Line method to prevent unbroken lines even if the report section grows. The following example uses the sample database Northwind.mdb to demonstrate how to use the Line method.

1. Open the sample database Northwind.mdb.

2. Create a new report based on the Employees table using the AutoReport: Columnar Wizard.

3. Set the report's OnOpen property to the following event procedure:

         Private Sub Report_Open(Cancel as Integer)
            DoCmd.Maximize
         End Sub
   
   

4. Set the report's OnClose property to the following event procedure:

         Private Sub Report_Close()
            DoCmd.Restore
         End Sub
   
   

5. Set the report's OnPage property to the following event procedure:

         Private Sub Report_Page()
            Me.ScaleMode = 1
            Me.ForeColor = 0
            ' Repeat the following line of code for each vertical line.
            ' 1 * 1440 represents 1 inch.
            Me.Line (0 * 1440, 0) - (0 * 1440, 14400)    ' Draws line at Left
                                                         ' Margin.
            Me.Line (1 * 1440, 0) - (1 * 1440, 14400)    ' Draws line at 1
                                                         ' inch.
            Me.Line (1.9 * 1440, 0) - (1.9 * 1440, 14400)' Draws line at 2 in.
            Me.Line (5.5 * 1440, 0) - (5.5 * 1440, 14400)' Draws line at 3 in.
   
            ' The 14400 is an arbitrary number to increase the line to the max
            ' of a section.
         End Sub
   
   

6. Set the detail section's OnPrint property to the following event procedure:

         Private Sub Detail_Print(Cancel as Integer, PrintCount as Integer)
            Me.ScaleMode = 1
            Me.ForeColor = 0
            ' Repeat the following line of code for each vertical line
            ' 1 * 1440 represents 1 inch.
            Me.Line (0 * 1440, 0) - (0 * 1440, 14400)
            Me.Line (1 * 1440, 0) - (1 * 1440, 14400)
            Me.Line (1.9 * 1440, 0) - (1.9 * 1440, 14400)
            Me.Line (5.5 * 1440, 0) - (5.5 * 1440, 14400)
   
            ' The 14400 is an arbitrary number to increase the line
            ' to the max of a section.
         End Sub
   
   

REFERENCES

For more information about the Circle Method, please see the following article in the Microsoft Knowledge Base:

   ARTICLE-ID: Q116501
   TITLE     : ACC: How to use the Circle Method on a Report

Keywords          : FmrProb kbusage
Version           : 7.0 97
Platform          : WINDOWS
Hardware          : x86
Issue type        : kbprb
Solution Type     : kbcode