以下代码系想达到在批量打印中,根据项目多少选择不同报表打..

54.℡80後2oO　发表于：2008-09-13 23:12:37 　

以下代码系想达到在批量打印中,根据记录项目多少选择不同报表(一张是半张纸的,,另一张是一张纸的)进行打印,,,好像只有一个记录时能正确选择格式打印,,但当有二条以上记录时,,,好像并不能进行循环判断,,,只判断一次,,,也即第一条记录,,,,但就是达不到效果,,,烦请高手,,,进行修改指正,,,,修改后如果能实现要求,,,如何做到,,,两个半张纸的记录合并为一张纸打印,,,(注,,,不是把记录合并为一条记录),,,,,在这先谢谢了,,,,

详细情形,,,见附件,,,资料输入窗口的批量打印,,,,,希高手给调试修改,,,,,谢谢,,,,

点击下载此附件

找不到解答？

请查看 10 个与本帖内容相关的技术文章或帖子列表，确认对您的问题的解答是否会是列表中的其中一个解答。

Top

小ビビ2UのB8 发表于：2008-09-13 23:54:41

自己先顶一下,,,

Top

小ビビ2UのB8 发表于：2008-09-14 12:37:59

请高手们不要吝惜你们的手啊,,,,动动你们的手指,,,,帮帮我啊,...帮忙修改下啊,,,不胜感激,,,,

Top

小ビビ2UのB8 发表于：2008-09-14 18:03:30

怎么就没人应呢/?

是没人会/?

我想不至于吧/?

是不愿说吗/?

不要吧/?

唉...

Top

trynew 发表于：2008-09-17 10:23:56

下面这段语句可以根据记录内容调整版面大小，不过控件的位置就要自己用代码设置了：

Private Sub 主体_Format(Cancel As Integer, FormatCount As Integer)
If Nz(Me.项目十四, "") <> "" Then
Me.主体.Height = 15000
Me.项目十四.Top = 8500
Me.项目十四.Visible = True
Me.单位十四.Top = 12500
Me.单位十四.Visible = True
Label265.Top = 13000
Else
Me.项目十四.Top = 0
Me.项目十四.Visible = False
Me.单位十四.Top = 0
Me.单位十四.Visible = False
Label265.Top = 7260
Me.主体.Height = 7653
End If
'Debug.Print Label265.Top
End Sub

Top

小ビビ2UのB8 发表于：2008-09-17 14:41:39

非常非常感谢。。。

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

以下代码系想达到在批量打印中,根据项目多少选择不同报表打..

找不到解答？