Format Issue - Lines to fill a page

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have a report that lists participants and numbers them on the page. There
are boxes around each field. If I want to show 1 to 10 on the page,
regardless if there are enough names to fill the page, how do I still show
the numbers and lines/boxes?

Name Amount
1. Joe Smith 20.00
2. John Doe 30.00
3. Jane Doe 25.00
4.
5.
6.
7.
8.
9.
10.

Total 75.00

Any ideas?? Thanks,
J
 
One solution is to use the Print and Line methods of the report in the On
Page event.

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 = 10
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.CurrentX = intLineLeft
Me.CurrentY = intTopMargin + _
(intLineNumber * intLineHeight)
Me.Print intLineNumber + 1
Me.Line (intLineLeft, intTopMargin + _
(intLineNumber * intLineHeight)) _
-Step(intLineWidth, 0)
Next
End Sub
 
Thanks Duane!

Duane Hookom said:
One solution is to use the Print and Line methods of the report in the On
Page event.

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 = 10
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.CurrentX = intLineLeft
Me.CurrentY = intTopMargin + _
(intLineNumber * intLineHeight)
Me.Print intLineNumber + 1
Me.Line (intLineLeft, intTopMargin + _
(intLineNumber * intLineHeight)) _
-Step(intLineWidth, 0)
Next
End Sub
Click to expand...
 
Back
Top