layout-question - pagehigh frames regardless of number of records

  • Thread starter Thread starter Glenn
  • Start date Start date
G

Glenn

hi,

I'm currently creating a report destined to print out invoices.
the layout preferred by the customer consists of a header frame followed
by juxtaposed columns containing articlecodes, quantities, unitprices
and such.

the columns are to have indivual vertical borders continuing to the end
of the page, where totals are to be printed.

This I don't know how to obtain in Access reports:

I cannot border the fields of individual records > which would lead to
horizontal lines. And evenso, they would not go to the bottom of page.

Including a pagehigh frame would only work for invoices consisting one
article. following articles would be printed on sepearate pages.

I'll try to illustrate for one column using ascii (sure to be horrible)

goal:

if only 1 article is part of this invoice
-----------
| ArtCode |
-----------
| 35 |
| |
| |
| |
| |
....
| |
----------- < bottom of page

if 3 articles were part of this invoice
-----------
| ArtCode |
-----------
| 35 |
| 23 |
| 123 |
| |
| |
....
| |
----------- < bottom of page

the columns in both cases would have the same height.

Best regards
glenn
 
hi,

I'm currently creating a report destined to print out invoices.
the layout preferred by the customer consists of a header frame followed
by juxtaposed columns containing articlecodes, quantities, unitprices
and such.

the columns are to have indivual vertical borders continuing to the end
of the page, where totals are to be printed.
Click to expand...
8<

as happens occasionally, 2 seconds after finally asking the question,
the answer just jumps up out of nowhere:

I found other usenet-messages suggesting to use the on_page event of a
report

thanks to Mr. Duane Hookum, I found some code to get me further:

Private Sub Report_Page()
Dim lngX As Long
Dim lngY As Long
Dim lngHeight As Long
lngHeight = 1440 * 10 ' 10 inches
For lngX = 0 To Me.Width Step 360
Me.Line (lngX, 0)-(lngX, lngHeight)
Next
For lngY = 0 To lngHeight Step 360
Me.Line (0, lngY)-(Me.Width, lngY)
Next
End Sub

regards
glenn
 
Back
Top