Adding blanks to printed report

  • Thread starter Thread starter Sheldon Mopes
  • Start date Start date
S

Sheldon Mopes

I have a report that prints a sign-in sheet for all scheduled
employees, the name and scheduled hours are each printed within a box
to separate each name. I would like to have extra blank boxes print
out after all the scheduled names to add people who are not scheduled
to the sign in sheet, however the boxes only print on the records. Any
ideas how to force blanks to print right at the end of the report ?
thank you for any help.
 
You can print a fixed number of lines with code in the On Page event of the
report.

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 = 20
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