Office中国论坛/Access中国论坛

标题: 咨询高手在窗体上增加了一个打印按钮，我想点一下连打3份，应该怎么编代码呢？ [打印本页]

作者: ahat1 时间: 2012-2-17 16:04
标题: 咨询高手在窗体上增加了一个打印按钮，我想点一下连打3份，应该怎么编代码呢？
现在我是这样编的
[班级代码] = "11"
DoCmd.OpenReport "体育测试用", acWindowNormal
DoCmd.OpenReport "体育测试用", acWindowNormal
DoCmd.OpenReport "体育测试用", acWindowNormal

呵呵，是不是比较弱智！

作者: JosephTan 时间: 2012-2-17 16:09
本帖最后由 JosephTan 于 2012-2-17 19:13 编辑

用Printout宏，可以连续打印
以下是我的宏转换成的代码：
Option Compare Database
Option Explicit

'------------------------------------------------------------
' PrintInvoice1
'
'------------------------------------------------------------
Function PrintInvoice1()
On Error GoTo PrintInvoice1_Err

With CodeContextObject
      DoCmd.SetParameter "单号", .单号
      DoCmd.OpenReport "Invoice", acViewReport, "", "", acNormal
      DoCmd.PrintOut acPrintAll, , , acHigh, 2, True ‘这里就是printout宏转换出来的语句2代表打印2次
      DoCmd.Close acReport, "Invoice"
End With

PrintInvoice1_Exit:
Exit Function

PrintInvoice1_Err:
MsgBox Error$
Resume PrintInvoice1_Exit

End Function

作者: yanghua1900363 时间: 2012-2-18 11:29
1、建立一个打印报表的宏
2、在窗体上创建一个按钮，调用已经建立好的宏。

也可以按照二楼的思路调用该函数

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)