Re: PrintLines without border in last record

Yes, the issue has to do with a CanGrow situation across page boundaries.

Add a logic check before the current code is called to draw any lines. In a
quick check, it would appear that Me.Height(the current CanGrow height of
this section) will be equal to ZERO when we should NOT draw into the
section.

If Me.Height > 0 Then
' draw vert and horiz lines
' Place your current code here
End if

Works for me here on your Report. Let me know how you make out. I should add
this to the PrintLines Web page.
--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.


<michel.ank@xxxxxxxxx> wrote in message
news:1157688632.961680.269130@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Hi Stephen,

I sent in your email the example with problem in report.


Thanks,
Michel


Stephen Lebans escreveu:

The only thing I can think of is that the last record of each page does
not
completely fit onto the page and a CanGrow situation across a page
boundary
occurs. The code is then called at the top of the next page but will not
output any visible lines as the coordinates for the TextBox controls are
not
directly addressable in this situation. It's been so many years since I
created this code that I cannot remember the details of this issue.

Can you send me your MDB containing this exact report? If not please
create
a report that exhibits the exact issue you describe. I won't be able to
look
at it until the start of next week.

Alternatively, if I remember correctly, the PrintLines class solution on
my
site handles this issue correctly.

Finally, if you just want a quick solution, simply slightly decrease the
Height of your existing Page Footer section.

--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.


<michel.ank@xxxxxxxxx> wrote in message
news:1157665980.024160.7360@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Hi Stephen,

First, thanks me of the help.

I'm Brazilian and not speak in english right, ok? Therefore you aren't
understand me perfectly. :(
How do to use the your class? Which of these below?

Reports
PrintLines
DownloadFiles/PrintLinesClassA97.zip
DownloadFiles/PrintLinesClass2K.ZIP
DownloadFiles/printlines.zip

My problem is with a unique record that sometimes not is shown with
border, please see in link:
http://www.lafanet.com.br/report.gif

Please help-me, I'm waiting a reply.

Thanks,
Michel




Stephen Lebans escreveu:

You stated in your original post that you were using my PrintLines
class.
Now you tell me you are using 4 of my code modules that have
absolutely
nothing to do with my PrintLines class.

The report Detail Print code you posted would have absolutely nothing
to
do
with the last record of each page not printing.

Obviously we have a communication issue here.
Finally, I do not offer Email consulting services.

--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.


<michel.ank@xxxxxxxxx> wrote in message
news:1157598326.192526.220820@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Stephen,

I'm using the modules: modfMakeFit, modfMakeFont, modfTextMetric and
modTextHeightWidth.
But, which class you would advise? If possible, you would send in my
e-mail the files? I need it urgently.

The code is below:

Option Compare Database
Option Explicit
' Stephen Lebans 1999
' Stephen@ lebans.com
' www.lebans.com

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

' This is the spacing between the right edge of the
' control and the Vertical Seperation Line
intLineMargin = 0

' OK lets draw a vertical line to seperate each field
' for each control in details control
' If your last control on the right does not end on the edge of the
section
' you will get a second vertical line. If you need to get around
this
then you
' can skip drawing this last Vertical Seperation Line in a couple of
ways.
' We'll use the control name method Here. Our right most control is
named
' TestMemo. IF current control is TestMemo - Do not print Vertical
Line
For Each CtlDetail In Me.Section(acDetail).Controls
With CtlDetail
'If CtlDetail.name <> "TestMemo" Then
Me.Line ((.Left + .Width + intLineMargin), 0)-(.Left + .Width
+
_
intLineMargin, Me.Height)
'End If
End With
Next

'While we are here lets draw a box around the Detail section
With Me
Me.Line (0, 0)-Step(.Width, .Height), 0, B
End With

Set CtlDetail = Nothing

End Sub

Private Sub Report_Activate()
DoCmd.Maximize
End Sub




Stephen Lebans escreveu:

Do you mean the last record of each page prints without a border?
Post the code behind your report that sets up the PrintLines class.

--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.


<michel.ank@xxxxxxxxx> wrote in message
news:1157492315.346159.245430@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Hi,

I'm using the class PrintLines and my last record of page aren't
with
the borders.


Somebody can help me?


Thanks,
Michel






.

Relevant Pages

  • Re: HELP PLEASE...with Lebans RTF2 Richtext Control
    ... Access Code, Tips and Tricks ... The control workd great on my entry form...it is just the report I am ... "Stephen Lebans" wrote: ... It works great with the sample data and sample report. ...
    (microsoft.public.access.reports)
  • Re: PrintLines without border in last record
    ... Stephen Lebans escreveu: ... I sent in your email the example with problem in report. ... Alternatively, if I remember correctly, the PrintLines class solution on ... Dim CtlDetail As Control ...
    (comp.databases.ms-access)
  • Re: PrintLines without border in last record
    ... Stephen Lebans escreveu: ... I sent in your email the example with problem in report. ... Alternatively, if I remember correctly, the PrintLines class solution ... Dim CtlDetail As Control ...
    (comp.databases.ms-access)
  • Re: PrintLines without border in last record
    ... Stephen Lebans escreveu: ... I sent in your email the example with problem in report. ... Alternatively, if I remember correctly, the PrintLines class solution ... Dim CtlDetail As Control ...
    (comp.databases.ms-access)
  • Re: PrintLines without border in last record
    ... Stephen Lebans escreveu: ... Add a logic check before the current code is called to draw any lines. ... Dim CtlDetail As Control ...
    (comp.databases.ms-access)