PrintLines在最后一条记录中没有边框 [英] PrintLines without border in last record

问题描述

我正在使用PrintLines类，我的最后一页记录并没有

边框。

有人可以帮帮我吗？

谢谢，

米歇尔

Hi,

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

推荐答案

你的意思是每个页面的最后一条记录没有边框打印吗？

在你的报告背后设置PrintLines类的代码。


-


HTH

Stephen Lebans
http://www.lebans.com

访问代码，提示和技巧

请只回复新闻组，以便每个人都可以好处。

< mi ******** @ gmail.com写信息

新闻：11 ************ **********@m73g2000cwd.googlegr oups.com ...

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...

我正在使用PrintLines类，我的最后一页记录没有

边框。


有人可以帮帮我吗？


谢谢，

米歇尔

Hi,

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

Stephen，


我丢失了文件:(


但是，你会建议哪一堂课？如果可能，你会发送我的

电子邮件文件？我迫切需要它

谢谢，

米歇尔


Stephen Lebans escreveu：

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:

你的意思是每个页面的最后一条记录没有边框打印吗？

发布设置PrintLines类的报告背后的代码。


-


HTH

Stephen Lebans
http://www.lebans.com

访问代码，提示和技巧

请仅回复新闻组，以便每个人可以受益。


< mi ******** @ gmail.comwrote in message

news：11 ******* ***************@m73g2000cwd.googlegr oups.com ...

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...

我正在使用PrintLines类，我的最后一页记录没有

边框。

有人可以帮助我吗？ />
谢谢，

Michel

Hi,

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

Stephen，


我正在使用模块：modfMakeFit，modfMakeFont，modfTextMetric和

modTextHeightWidth。

但是，你会建议哪一堂课？如果可能，你会发送我的

电子邮件文件？我迫切需要它。


代码如下：


选项比较数据库

选项显式

''Stephen Lebans 1999

''Stephen @ lebans.com

'' www.lebans.com


Private Sub Detail_Print（取消为整数，PrintCount为整数）

Dim CtlDetail As Control

Dim intLineMargin As Integer


''这是

右边缘之间的间距''控制和垂直分离线

intLineMargin = 0

''确定让我们绘制一条垂直线来分隔每个区域

''对于每个控件的细节控制

''如果右边的最后一个控件没有结束在

部分的边缘

''你会得到第二条垂直线。如果你需要绕过这个

然后你

''可以跳过这几个

方式的最后一个垂直分隔线。

''我们将在这里使用控件名称方法。我们最正确的控制是

名为

''TestMemo。 IF当前控制是TestMemo - 不打印垂直线

每个CtlDetail在Me.Section（acDetail）。控制

用CtlDetail

' '如果CtlDetail.name<" TestMemo"然后

Me.Line（（.Left + .Width + intLineMargin），0） - （.Left + .Width +

_

intLineMargin，Me.Height）

''结束如果

结束

下一页


' '当我们在这里时，让我们在细节部分周围画一个方框

和我一起

Me.Line（0,0）-Step（.Width，.Height），0 ，B

结束


Set CtlDetail = Nothing


End Sub


Private Sub Report_Activate（）

DoCmd.Maximize

结束子


Stephen Lebans escreveu：

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:

你的意思是每个页面的最后一条记录没有边框打印吗？

在你的报告背后设置PrintLines类的代码。


-


HTH

Stephen Lebans
http://www.lebans.com

访问代码，提示和技巧

请回复只有新闻组才能让所有人受益。


< mi ******** @ gmail.comwrote in message

news：11 * *********************@m73g2000cwd.googlegr oups.com ...

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...

我正在使用PrintLines类，我的最后一页记录没有

边界。

有人可以帮帮我吗？

谢谢，

Michel

Hi,

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

这篇关于PrintLines在最后一条记录中没有边框的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！