判断是否打印，记录报表打印次数

扇子　发表于：2010-12-10 14:22:45 　

请问老师，怎样“判断是否打印，记录报表打印次数”

煮江品茶发表于：2010-12-10 14:40:34

Dim i As Long, n As Long
If MsgBox("打印吗(Yes/No)？", vbYesNo) = vbYes Then
    n = InputBox("打印几份？", , 1)
    For i = 1 To n
        DoCmd.OpenReport "XX报表"
    Next
Else
    DoCmd.OpenReport "XX报表", acViewPreview
End If

Top

xiaowuo 发表于：2010-12-10 15:03:46

老师上面的代码能指定打印份数吗？好像最后第二行代码处没有引用打印份数

Top

煮江品茶发表于：2010-12-10 15:15:04

xiaowuo同志：可以试试。不是不知道，一试吓一跳。

Top

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

Access交流中心

判断是否打印，记录报表打印次数