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

ahat1

现在我是这样编的
[班级代码] = "11"
DoCmd.OpenReport "体育测试用", acWindowNormal
DoCmd.OpenReport "体育测试用", acWindowNormal
DoCmd.OpenReport "体育测试用", acWindowNormal

呵呵，是不是比较弱智！

yanghua1900363

1、建立一个打印报表的宏
2、在窗体上创建一个按钮，调用已经建立好的宏。

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

JosephTan

用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