add blank lines to report

[Barry A&P]

I am looking for help mimicking a form that was previously created with
excel. i want to create a block in a report wich may possibly be a sub
report that will stay the same size and add blank lines to any additional
space below the data being displayed so that users can Hand write additional
entries once the form is printed..
I would like the access populated rows to "Grow" and Wrap text to fit the
reports width. but the following blank lines to be something like 20pt or 1/4"

Any help would be greatly appreciated

Thanks
Barry

 

[Barry A&P]

Steve

Thanks for your reply.. i didnt think of a union query to add blank lines.
Your response talks about code and a text box to count the number of rows to
add from the second table.. do i just do a Dcount with the same criteria as
your first WHERE clause? as the number for the second WHERE?? what do i do
about "CAN GROW" on the first set of records returning a bad count for
remaining rows to fill ??

Ill start researching for more details. thank you so much for getting me on
track

Barry

 

[Barry A&P]

Steve

I have read alot about the infamous "Steve" ??

I truely appreciate the help..

Barry

 

[John Spencer]

Since the poster wants the detail sections to grow, I am not sure this
solution would work very well.

If all the poster wants is to add blank lines across the last page until the
bottom of the last page is reached, then that is possible. I have seen it
done, but I would need to do some research in order to do this. I think Duane
Hookom may have posted a solution to this in the past.

If the poster wants labels to print plus the lines, this also could be done.
It would be a bit trickier and again, I would need to research the solution
since I don't have an example available.

John Spencer
Access MVP 2002-2005, 2007-2009
The Hilltop Institute
University of Maryland Baltimore County

 

[Gina Whipp]

Barry,

Here are two potential solutions...

From Marsh MVP

http://www.eggheadcafe.com/conversation.aspx?messageid=29530730&threadid=29526322


OR


You might want to remove the borders from all controls and use code to
drawthe boxes. The following code in the On Page event of the report might
work
for you.

Private Sub Report_Page()

Dim intNumLines As Integer

Dim intLineNumber As Integer

Dim intTopMargin As Integer

Dim ctl As Control

Dim intLineHeight As Integer

intNumLines = 12

intTopMargin = Me.Section(3).Height

intLineHeight = Me.Section(0).Height

For Each ctl In Me.Section(0).Controls

For intLineNumber = 0 To intNumLines - 1

Me.Line (ctl.Left, intTopMargin + _

(intLineNumber * intLineHeight)) _

-Step(ctl.Width, intLineHeight), , B

Next

Next

End Sub

--

Duane Hookom

Microsoft Access MVP


--
Gina Whipp

"I feel I have been denied critical, need to know, information!" - Tremors
II

http://www.regina-whipp.com/index_files/TipList.htm