Add blank lines to report to printed report

[Jaron]

Hi,
I have a report based on a query that prints out a list of addresses. I will be handing hard copies of this report out to various people and I want them to be able to handwrite more information on blank lines below the query results. The number of query results may vary each time I print the report but I want the blank lines to continue only to the bottom of the page regardless. I don't want the blank lines to reflect actual blank entries in the query or its table though.
I borrowed a bit of code from somewhere online and have the basic idea working. My question now though is, how do I set the formatting of these lines to match the query generated lines above them? Right now they are just basic black lines, but I'd like to make them alternating white and shaded fields. Here is what I have right now:

Private LinePos As Long
Option Compare Database
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
     LinePos = Me.Top + 1.3 * Me.Section(0).Height
End Sub

Private Sub Report_Page()
    For LinePos = LinePos To 7.5 * 1440 _
                                        Step Me.Section(0).Height
         Me.Line (0, LinePos)-(Me.Width, LinePos)
    Next LinePos
End Sub

I appreciate any help you can give me.

[Dal Jeanis]

Here's a page with the properties in Access of the Line method of the Report object
http://msdn.microsoft.com/en-us/libr...ffice.14).aspx

Apparently, the format of the call is

expression.Line(Step(x1, y1) – Step(x2, y2), color, BF)

Look at that page, and figure out what you need to do to set (or toggle) that BF (background/foreground) parameter.

[Jaron]

Here's a page with the properties in Access of the Line method of the Report object
http://msdn.microsoft.com/en-us/libr...ffice.14).aspx

Apparently, the format of the call is

expression.Line(Step(x1, y1) – Step(x2, y2), color, BF)

Look at that page, and figure out what you need to do to set (or toggle) that BF (background/foreground) parameter.

Ok. I'll spend some time with that and see if I can figure it out. I'm new to Access reports as I've been using Excel for a lot of things, so if you have any suggestions on how to use this information to modify the code I've already got, please let me know.

Thank you.

[Dal Jeanis]

My use of reports is pretty basic. Play with this until you get what you want.

Private Sub Report_Page()
Dim bolWhite as Boolean
Dim LineBot AS Long
Dim colGrey AS Long
Const BoxPercent = 0.95
    
    bolWhite = False
    colgrey = RGB(200,200,200)

    For LinePos = LinePos To 7.5 * 1440 _
                                        Step Me.Section(0).Height

         LineBot = LinePos + (BoxPercent * Me.Section(0).Height)
         bolWhite = Not (bolWhite)            
         If bolWhite Then 
             Me.Line (0, LinePos)-(Me.Width, LinePos)
         Else
             Me.Line (0, LinePos)-(Me.Width, LineBot), colGrey, BF
         End If
    Next LinePos

End Sub

bolWhite will alternate between true and false, turning dark or light by turns.
colgrey you can adjust until the color of the dark boxes is what you want.
Boxpercent can be adjusted if needed, to resize the dark area.

[Jaron]

My use of reports is pretty basic. Play with this until you get what you want.

Private Sub Report_Page()
Dim bolWhite as Boolean
Dim LineBot AS Long
Dim colGrey AS Long
Const BoxPercent = 0.95
    
    bolWhite = False
    colgrey = RGB(200,200,200)

    For LinePos = LinePos To 7.5 * 1440 _
                                        Step Me.Section(0).Height

         LineBot = LinePos + (BoxPercent * Me.Section(0).Height)
         bolWhite = Not (bolWhite)            
         If bolWhite Then 
             Me.Line (0, LinePos)-(Me.Width, LinePos)
         Else
             Me.Line (0, LinePos)-(Me.Width, LineBot), colGrey, BF
         End If
    Next LinePos

End Sub

bolWhite will alternate between true and false, turning dark or light by turns.
colgrey you can adjust until the color of the dark boxes is what you want.
Boxpercent can be adjusted if needed, to resize the dark area.

Thank you! That's what I needed. I've tweaked the numbers a little and I believe it's where I want it. I appreciate the help.

[Dal Jeanis]

You're welcome. Please mark thread "solved". top of page, under "thread options"