Fullfill the remain blank area on bottom of page

  • Thread starter Thread starter Albert
  • Start date Start date
A

Albert

I print detail section with box of data visible, That is border line color
of text box is black. But if in a page, if I have only 5 records, the remain
of this page is blank. How can I fill the remain blank area. I want to
fullfill it with the same box size as in detail section. As a result, Page
will look like the pre-printed form which contain a table and there are 5
records of data on top.

TIA
 
Here is some sample code that prints horizontal lines on a report regardless
of the number of records on a page.
Private Sub Report_Page()
Dim intRows As Integer
Dim intLoop As Integer
Dim intTopMargin As Integer
intRows = 24
intDetailHeight = Me.Section(0).Height
intTopMargin = 360
For intLoop = 0 To intRows
Me.CurrentX = 20
Me.CurrentY = intLoop * intDetailHeight + intTopMargin
Me.Print intLoop + 1
Me.Line (0, intLoop * intDetailHeight + intTopMargin)-Step(Me.Width,
0)
Next
End Sub
 
Back
Top