Page with blank lines

[quasar900]

Has anybody ever had a report print with with level breaks that might only have 2 or 3 lines of text with lines separating them on a page but THEN the rest of the page is used to print blank lines with lines separating them - to create lines to hand fill in as needed? I hope that makes sense. Thanks for anybody out there that can help

Peggy

 

[Rich]

http://www.access-programmers.co.uk/forums/showthread.php?t=31873

 

[quasar900]

Not working, but curious

I tried your solution but it isn't working for me. Perhaps with a bit more explanation than example. Does =count(*) stand for something? In other words, am I suppoed to supply something in place of the *. On your example the lines do not fill the page, so I am guessing there are guidlines involved.

 

[Rich]

=Count(*) returns the number of records on the Report, do you get any lines and if so how many?

 

[quasar900]

I do not get any lines but that explains a lot (I think). This report has level breaks so the # of records will depend on a sorting and level break. It would be great if it worked, but it won't kill the project to not have it. I am trying to please people by making it look like it used to (an excell sheet) when they could live without it.

Thanks,
Peg

 

[Rich]

There's different code to make a report look like a spreadsheet, should you want it

 

[quasar900]

A spreadsheet look is what they were going for. Is the code comlicated? Like I said - just doing it to satisfy people afraid of change.

Peg

 

[Rich]

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim CtlDetail As Control
Dim intLineMargin As Integer


intLineMargin = 60


For Each CtlDetail In Me.Section(acDetail).Controls
With CtlDetail

Me.Line ((.left + .Width + intLineMargin), 0)-(.left + .Width + _
intLineMargin, Me.Height)

End With
Next
With Me
Me.Line (0, 0)-Step(.Width, .Height), 0, B
End With

Set CtlDetail = Nothing

End Sub