Article ID: 151543 - Last Review: January 19, 2007 - Revision: 3.1

ACC: Report Vertical Lines Do Not Grow with Section

View products that this article applies to.

This article was previously published under Q151543

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

SYMPTOMS

Vertical Line controls do not increase in height when you place them 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:

145777 (http://support.microsoft.com/kb/145777/EN-US/ ) ACC95: Microsoft Access Sample Reports Available in Download Center

175072 (http://support.microsoft.com/kb/175072/EN-US/ ) ACC97: Microsoft Access 97 Sample Reports Available in Download Center

Back to the top

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.

Open the sample database Northwind.mdb.
Use the AutoReport: Columnar Wizard to create a new report based on the Employees table.

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

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

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

      Private Sub Report_Close()
         DoCmd.Restore
      End Sub

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

      Private Sub Report_Page()

         If Me.Page <> 1 then

              Me.ScaleMode = 1
              Me.ForeColor = 0
              ' Repeat the following line of code for each vertical line.
              ' 1 * 1440 represents 1 inch.
              ' Draws line at Left Margin.
              Me.Line (0 * 1440, 0) - (0 * 1440, 14400)
              ' Draws line at 1 inch.
              Me.Line (1 * 1440, 0) - (1 * 1440, 14400)
              ' Draws line at 2 in.
              Me.Line (1.9 * 1440, 0) - (1.9 * 1440, 14400)
              ' Draws line at 3 in.
              Me.Line (5.5 * 1440, 0) - (5.5 * 1440, 14400)

         End If

         ' The 14400 is an arbitrary number to increase the line to the max
         ' of a section.
      End Sub

If Me.Page <> 1 Then...(Line code)...End If.

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

Print Preview the report. Note that the lines go from the top to the bottom of the page.

Back to the top

REFERENCES

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

116501 (http://support.microsoft.com/kb/116501/EN-US/ ) ACC: How to use the Circle Method on a Report

For more information about the Line method, search on the phrase "Line method" using the Microsoft Access 97 Help Index.

Back to the top

APPLIES TO

Microsoft Access 95 Standard Edition
Microsoft Access 97 Standard Edition

Back to the top

kbprb kbusage KB151543

Back to the top

Retired KB Content Disclaimer

This article was written about products for which Microsoft no longer offers support. Therefore, this article is offered "as is" and will no longer be updated.

Back to the top

ACC: Report Vertical Lines Do Not Grow with Section

SYMPTOMS

RESOLUTION

REFERENCES

APPLIES TO

Keywords:

Get Help Now

Article Translations

Page Tools

Get Help Now