Inserting empty lines into a report

  • Thread starter Thread starter jaworski_m
  • Start date Start date
J

jaworski_m

Hello,
I would like to insert empty lines to a report to make 15 lines on a page.
For example:
If there 5 records on a page, insert 10 lines to make 15 lines all together.


Thank you for suggestions.

Access 2003
Win XP
 
What do you mean by 'empty' lines? If nothing is displayed what is the

Report generated by Access should look the same as its "paper" equivalent
which always has 15 line (empty or not). Each line is numbered.
 
You can use the Line method in the On Page event of your report to draw all
15 lines. Your exact code would depend a little on whether you are displaying
page, report, and group header sections.

Private Sub Report_Page()
Dim intNumLines As Integer
Dim intLineNumber As Integer
Dim intTopMargin As Integer
Dim ctl As Control
Dim intLineHeight As Integer
Dim intLineLeft As Integer
Dim intLineWidth As Integer
intNumLines = 15
intLineLeft = 720 '1/2 inch from left margin
intLineWidth = 1440 * 5 '5 inches
intTopMargin = Me.Section(3).Height
intLineHeight = Me.Section(0).Height
For intLineNumber = 0 To intNumLines - 1
Me.Line (intLineLeft, intTopMargin + _
(intLineNumber * intLineHeight)) _
-Step(intLineWidth, 0)
Next
End Sub
 
Back
Top