Microsoft KB Archive/120842

= ACC2: How to Print Blank Line Every Nth Line in a Report =

Article ID: 120842

Article Last Modified on 7/5/2002

-

APPLIES TO


 * Microsoft Access 2.0 Standard Edition

-



This article was previously published under Q120842



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



SUMMARY
This article describes how you can add blank lines between the printed lines on a report. You can use this method to add a blank line after a set number of lines. For example, you could use this method to add a blank line after every five lines of data in your report.



MORE INFORMATION
The following example demonstrates how to add a blank line after every five lines in a report:

 Open the sample database NWIND.MDB and create a new report based on the Employees table. Choose the Report Wizards button, and then follow these steps:

 In the "Which Wizard do you want?" screen, select Tabular and then choose the OK button. In the Available Fields box, select Employee ID and then choose the ">" button. Repeat for Last Name, First Name, and Birth Date, and then choose the Next button. In the Available Fields box, select Birth Date and then choose the ">" button. Choose the Next button. In the "What style do you want for your report?" screen, choose the Next button. In the "What title do you want for your report?" screen, type Employee Birthdays, and then choose the Finish button.</li></ol> </li> View the new report in Design view.</li> From the View menu, choose Code.</li>  Enter the following code in the module:

<pre class="fixed_text">     Option Compare Database Dim cLines As Integer Const cMaxLine=5

This code declares the cLines variable as an integer, and the cMaxLine constant as five. You can set the cMaxLine constant to insert a blank line after as many lines as you want. For example, to add a blank line after every eight lines in the report, set cMaxLine=8. </li>  In the Object box on the toolbar, select Report. In the Procedure box on the toolbar, select Open. Enter the following code in the module:

Sub Report_Open (Cancel As Integer) cLines = 0 End Sub

This code initializes the cLines variable to zero. </li>  In the Object box, select Detail1. In the Procedure box, select Format. Enter the following code in the module:

Sub Detail1_Format (Cancel As Integer, FormatCount As Integer) If cLines Mod (cMaxLine+1) = 0 Then Me.NextRecord = False Me.PrintSection = False End If        cLines = cLines + 1 End Sub

This code adds a blank line by setting the NextRecord and PrintSection properties. </li> Close the module, and then preview the report. Note that there is a blank line in the report after every five lines.</li></ol>

<div class="references_section">