By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
424,662 Members | 1,790 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 424,662 IT Pros & Developers. It's quick & easy.

PrintLines without border in last record

P: n/a
Hi,

I'm using the class PrintLines and my last record of page aren't with
the borders.
Somebody can help me?
Thanks,
Michel

Sep 5 '06 #1
Share this Question
Share on Google+
17 Replies


P: n/a
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.
<mi********@gmail.comwrote in message
news:11**********************@m73g2000cwd.googlegr oups.com...
Hi,

I'm using the class PrintLines and my last record of page aren't with
the borders.
Somebody can help me?
Thanks,
Michel

Sep 6 '06 #2

P: n/a
Stephen,

I lost the files :(

But, which class you would advise? If possible, you would send in my
e-mail the files? I need it urgently
Thanks,
Michel

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.
<mi********@gmail.comwrote in message
news:11**********************@m73g2000cwd.googlegr oups.com...
Hi,

I'm using the class PrintLines and my last record of page aren't with
the borders.
Somebody can help me?
Thanks,
Michel
Sep 7 '06 #3

P: n/a
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.
<mi********@gmail.comwrote in message
news:11**********************@m73g2000cwd.googlegr oups.com...
Hi,

I'm using the class PrintLines and my last record of page aren't with
the borders.
Somebody can help me?
Thanks,
Michel
Sep 7 '06 #4

P: n/a
How could you possibly "lose the files"?

You stated in your original post that you are using my PrintLines class. I
asked you to reply with the code you are using in your report to use 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.
<mi********@gmail.comwrote in message
news:11*********************@p79g2000cwp.googlegro ups.com...
Stephen,

I lost the files :(

But, which class you would advise? If possible, you would send in my
e-mail the files? I need it urgently
Thanks,
Michel

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.
<mi********@gmail.comwrote in message
news:11**********************@m73g2000cwd.googleg roups.com...
Hi,

I'm using the class PrintLines and my last record of page aren't with
the borders.
Somebody can help me?
Thanks,
Michel

Sep 7 '06 #5

P: n/a
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.
<mi********@gmail.comwrote in message
news:11**********************@b28g2000cwb.googlegr oups.com...
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.
<mi********@gmail.comwrote in message
news:11**********************@m73g2000cwd.googleg roups.com...
Hi,

I'm using the class PrintLines and my last record of page aren't with
the borders.
Somebody can help me?
Thanks,
Michel

Sep 7 '06 #6

P: n/a
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.
<mi********@gmail.comwrote in message
news:11**********************@b28g2000cwb.googlegr oups.com...
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.
<mi********@gmail.comwrote in message
news:11**********************@m73g2000cwd.googlegr oups.com...
Hi,

I'm using the class PrintLines and my last record of page aren't with
the borders.
Somebody can help me?
Thanks,
Michel
Sep 7 '06 #7

P: n/a
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.
<mi********@gmail.comwrote in message
news:11********************@e3g2000cwe.googlegroup s.com...
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.
<mi********@gmail.comwrote in message
news:11**********************@b28g2000cwb.googleg roups.com...
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.
<mi********@gmail.comwrote in message
news:11**********************@m73g2000cwd.googleg roups.com...
Hi,

I'm using the class PrintLines and my last record of page aren't
with
the borders.
Somebody can help me?
Thanks,
Michel


Sep 8 '06 #8

P: n/a
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.
<mi********@gmail.comwrote in message
news:11********************@e3g2000cwe.googlegroup s.com...
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.
<mi********@gmail.comwrote in message
news:11**********************@b28g2000cwb.googlegr oups.com...
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.
<mi********@gmail.comwrote in message
news:11**********************@m73g2000cwd.googlegr oups.com...
Hi,

I'm using the class PrintLines and my last record of page aren't
with
the borders.
Somebody can help me?
Thanks,
Michel
Sep 8 '06 #9

P: n/a
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.
<mi********@gmail.comwrote in message
news:11**********************@i42g2000cwa.googlegr oups.com...
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.
<mi********@gmail.comwrote in message
news:11********************@e3g2000cwe.googlegrou ps.com...
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.
<mi********@gmail.comwrote in message
news:11**********************@b28g2000cwb.googleg roups.com...
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.
<mi********@gmail.comwrote in message
news:11**********************@m73g2000cwd.googleg roups.com...
Hi,

I'm using the class PrintLines and my last record of page aren't
with
the borders.
Somebody can help me?
Thanks,
Michel

Sep 9 '06 #10

P: n/a
Hi Stepen,

Thanks of help! I'm obtain the solution of my problem.
Regards,
Michel Ank

Stephen Lebans escreveu:
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.
<mi********@gmail.comwrote in message
news:11**********************@i42g2000cwa.googlegr oups.com...
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.
<mi********@gmail.comwrote in message
news:11********************@e3g2000cwe.googlegroup s.com...
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.
<mi********@gmail.comwrote in message
news:11**********************@b28g2000cwb.googlegr oups.com...
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.
<mi********@gmail.comwrote in message
news:11**********************@m73g2000cwd.googlegr oups.com...
Hi,

I'm using the class PrintLines and my last record of page aren't
with
the borders.
Somebody can help me?
Thanks,
Michel

Sep 11 '06 #11

P: n/a
Hi Stephen,

When the last line not fit in the page, I need that either in next,
because the line is being divided in two pages.

You can help-me?

Thanks
Michel Ank
Stephen Lebans escreveu:
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.
<mi********@gmail.comwrote in message
news:11**********************@i42g2000cwa.googlegr oups.com...
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.
<mi********@gmail.comwrote in message
news:11********************@e3g2000cwe.googlegroup s.com...
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.
<mi********@gmail.comwrote in message
news:11**********************@b28g2000cwb.googlegr oups.com...
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.
<mi********@gmail.comwrote in message
news:11**********************@m73g2000cwd.googlegr oups.com...
Hi,

I'm using the class PrintLines and my last record of page aren't
with
the borders.
Somebody can help me?
Thanks,
Michel

Sep 16 '06 #12

P: n/a
Michel I'm afraid I do not understand your request. I posted a solution that
fixes your issue. I cannot duplicate the behaviour you are describing where
the line is being split across two pages.

--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
"Michel Ank" <mi********@gmail.comwrote in message
news:11*********************@k70g2000cwa.googlegro ups.com...
Hi Stephen,

When the last line not fit in the page, I need that either in next,
because the line is being divided in two pages.

You can help-me?

Thanks
Michel Ank
Stephen Lebans escreveu:
>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.
<mi********@gmail.comwrote in message
news:11**********************@i42g2000cwa.googleg roups.com...
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.
<mi********@gmail.comwrote in message
news:11********************@e3g2000cwe.googlegrou ps.com...
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.
<mi********@gmail.comwrote in message
news:11**********************@b28g2000cwb.googleg roups.com...
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.
<mi********@gmail.comwrote in message
news:11**********************@m73g2000cwd.googleg roups.com...
Hi,

I'm using the class PrintLines and my last record of page
aren't
with
the borders.
Somebody can help me?
Thanks,
Michel


Sep 16 '06 #13

P: n/a
Hi Stephen,

Exactly.
I need that this line wasn't show in the First Page(of two pages that
the line split) and just secound page, because your height is greater
that limit of Page 1.

Thanks Stephen!
Regards,
Michel Ank
Stephen Lebans escreveu:
Michel I'm afraid I do not understand your request. I posted a solution that
fixes your issue. I cannot duplicate the behaviour you are describing where
the line is being split across two pages.

--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
"Michel Ank" <mi********@gmail.comwrote in message
news:11*********************@k70g2000cwa.googlegro ups.com...
Hi Stephen,

When the last line not fit in the page, I need that either in next,
because the line is being divided in two pages.

You can help-me?

Thanks
Michel Ank
Stephen Lebans escreveu:
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.
<mi********@gmail.comwrote in message
news:11**********************@i42g2000cwa.googlegr oups.com...
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.
<mi********@gmail.comwrote in message
news:11********************@e3g2000cwe.googlegroup s.com...
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.
<mi********@gmail.comwrote in message
news:11**********************@b28g2000cwb.googlegr oups.com...
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.
<mi********@gmail.comwrote in message
news:11**********************@m73g2000cwd.googlegr oups.com...
Hi,

I'm using the class PrintLines and my last record of page
aren't
with
the borders.
Somebody can help me?
Thanks,
Michel


Sep 16 '06 #14

P: n/a
Comment out the code to draw in the Section. Does your report still split
the last row on the page across the current and next 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" <mi********@gmail.comwrote in message
news:11*********************@e3g2000cwe.googlegrou ps.com...
Hi Stephen,

Exactly.
I need that this line wasn't show in the First Page(of two pages that
the line split) and just secound page, because your height is greater
that limit of Page 1.

Thanks Stephen!
Regards,
Michel Ank
Stephen Lebans escreveu:
>Michel I'm afraid I do not understand your request. I posted a solution
that
fixes your issue. I cannot duplicate the behaviour you are describing
where
the line is being split across two pages.

--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
"Michel Ank" <mi********@gmail.comwrote in message
news:11*********************@k70g2000cwa.googlegr oups.com...
Hi Stephen,

When the last line not fit in the page, I need that either in next,
because the line is being divided in two pages.

You can help-me?

Thanks
Michel Ank
Stephen Lebans escreveu:

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.
<mi********@gmail.comwrote in message
news:11**********************@i42g2000cwa.googleg roups.com...
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.
<mi********@gmail.comwrote in message
news:11********************@e3g2000cwe.googlegrou ps.com...
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.
<mi********@gmail.comwrote in message
news:11**********************@b28g2000cwb.googleg roups.com...
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.
<mi********@gmail.comwrote in message
news:11**********************@m73g2000cwd.googleg roups.com...
Hi,

I'm using the class PrintLines and my last record of page
aren't
with
the borders.
Somebody can help me?
Thanks,
Michel



Sep 17 '06 #15

P: n/a
What's comment?
This code that sent for you, fixed the bug of last record without
border, but appeared a new bug, that is the record in two page(current
and next page):

if(Me.Height>0) Then
....
End If
Thanks
Michel
Stephen Lebans escreveu:
Comment out the code to draw in the Section. Does your report still split
the last row on the page across the current and next 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" <mi********@gmail.comwrote in message
news:11*********************@e3g2000cwe.googlegrou ps.com...
Hi Stephen,

Exactly.
I need that this line wasn't show in the First Page(of two pages that
the line split) and just secound page, because your height is greater
that limit of Page 1.

Thanks Stephen!
Regards,
Michel Ank
Stephen Lebans escreveu:
Michel I'm afraid I do not understand your request. I posted a solution
that
fixes your issue. I cannot duplicate the behaviour you are describing
where
the line is being split across two pages.

--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
"Michel Ank" <mi********@gmail.comwrote in message
news:11*********************@k70g2000cwa.googlegro ups.com...
Hi Stephen,

When the last line not fit in the page, I need that either in next,
because the line is being divided in two pages.

You can help-me?

Thanks
Michel Ank
Stephen Lebans escreveu:

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.
<mi********@gmail.comwrote in message
news:11**********************@i42g2000cwa.googlegr oups.com...
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.
<mi********@gmail.comwrote in message
news:11********************@e3g2000cwe.googlegroup s.com...
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.
<mi********@gmail.comwrote in message
news:11**********************@b28g2000cwb.googlegr oups.com...
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.
<mi********@gmail.comwrote in message
news:11**********************@m73g2000cwd.googlegr oups.com...
Hi,

I'm using the class PrintLines and my last record of page
aren't
with
the borders.
Somebody can help me?
Thanks,
Michel

Sep 17 '06 #16

P: n/a
Comment out the source code in question.

--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
"Michel Ank" <mi********@gmail.comwrote in message
news:11**********************@m73g2000cwd.googlegr oups.com...
What's comment?
This code that sent for you, fixed the bug of last record without
border, but appeared a new bug, that is the record in two page(current
and next page):

if(Me.Height>0) Then
...
End If
Thanks
Michel
Stephen Lebans escreveu:
>Comment out the code to draw in the Section. Does your report still split
the last row on the page across the current and next 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" <mi********@gmail.comwrote in message
news:11*********************@e3g2000cwe.googlegro ups.com...
Hi Stephen,

Exactly.
I need that this line wasn't show in the First Page(of two pages that
the line split) and just secound page, because your height is greater
that limit of Page 1.

Thanks Stephen!
Regards,
Michel Ank
Stephen Lebans escreveu:

Michel I'm afraid I do not understand your request. I posted a
solution
that
fixes your issue. I cannot duplicate the behaviour you are describing
where
the line is being split across two pages.

--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
"Michel Ank" <mi********@gmail.comwrote in message
news:11*********************@k70g2000cwa.googlegr oups.com...
Hi Stephen,

When the last line not fit in the page, I need that either in next,
because the line is being divided in two pages.

You can help-me?

Thanks
Michel Ank
Stephen Lebans escreveu:

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.
<mi********@gmail.comwrote in message
news:11**********************@i42g2000cwa.googleg roups.com...
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.
<mi********@gmail.comwrote in message
news:11********************@e3g2000cwe.googlegrou ps.com...
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.
<mi********@gmail.comwrote in message
news:11**********************@b28g2000cwb.googleg roups.com...
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.
<mi********@gmail.comwrote in message
news:11**********************@m73g2000cwd.googleg roups.com...
Hi,

I'm using the class PrintLines and my last record of
page
aren't
with
the borders.
Somebody can help me?
Thanks,
Michel


Sep 17 '06 #17

P: n/a
See:

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
If Me.Height 0 Then
Dim CtlDetail As Control

For Each CtlDetail In Me.Section(acDetail).Controls
With CtlDetail
Me.Line ((.Left + .Width), 0)-(.Left + .Width, Me.Height)
End With
Next

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

Set CtlDetail = Nothing
End If
GeralPrevisto = GeralPrevisto +
Report_Controle_Geral_Contratos_Valores!totalPrevi sto
total.Value = GeralPrevisto
End Sub
Regards,
Michel Ank

Stephen Lebans escreveu:
Comment out the source code in question.

--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
"Michel Ank" <mi********@gmail.comwrote in message
news:11**********************@m73g2000cwd.googlegr oups.com...
What's comment?
This code that sent for you, fixed the bug of last record without
border, but appeared a new bug, that is the record in two page(current
and next page):

if(Me.Height>0) Then
...
End If
Thanks
Michel
Stephen Lebans escreveu:
Comment out the code to draw in the Section. Does your report still split
the last row on the page across the current and next 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" <mi********@gmail.comwrote in message
news:11*********************@e3g2000cwe.googlegrou ps.com...
Hi Stephen,

Exactly.
I need that this line wasn't show in the First Page(of two pages that
the line split) and just secound page, because your height is greater
that limit of Page 1.

Thanks Stephen!
Regards,
Michel Ank
Stephen Lebans escreveu:

Michel I'm afraid I do not understand your request. I posted a
solution
that
fixes your issue. I cannot duplicate the behaviour you are describing
where
the line is being split across two pages.

--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
"Michel Ank" <mi********@gmail.comwrote in message
news:11*********************@k70g2000cwa.googlegro ups.com...
Hi Stephen,

When the last line not fit in the page, I need that either in next,
because the line is being divided in two pages.

You can help-me?

Thanks
Michel Ank
Stephen Lebans escreveu:

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.
<mi********@gmail.comwrote in message
news:11**********************@i42g2000cwa.googlegr oups.com...
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.
<mi********@gmail.comwrote in message
news:11********************@e3g2000cwe.googlegroup s.com...
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.
<mi********@gmail.comwrote in message
news:11**********************@b28g2000cwb.googlegr oups.com...
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.
<mi********@gmail.comwrote in message
news:11**********************@m73g2000cwd.googlegr oups.com...
Hi,

I'm using the class PrintLines and my last record of
page
aren't
with
the borders.
Somebody can help me?
Thanks,
Michel


Sep 18 '06 #18

This discussion thread is closed

Replies have been disabled for this discussion.