请看看还是打印的毛病

dhlyh

一点通版主 你给我改的我看了 为什么你改的就能用 我把按钮换个样就不行了呢 是那个多条打印 点完输入开始序号 又输入结束序号后为什么打印机没响应

dhlyh

还有打印前能不能提示打印多少份呢 然后再打?

一点通

可能是语句不全的原因吧,改为以下方式

Private Sub 命令42_Click()
On Error GoTo Err_命令42_Click

    Dim stDocName As String

    stDocName = "在用锅炉压力容器安全阀检验报告书"
    DoCmd.OpenReport stDocName, acNormal

Exit_命令42_Click:
    Exit Sub

Err_命令42_Click:
    MsgBox Err.Description
    Resume Exit_命令42_Click
   
End Sub

如果想知道要打几页,最好新建一个打印向导窗体,建两个文本框,一个是开始页码,另一个是结束页码,将两个控件值相减就是要打印的页数了,但报表的起止页码要引用这两个文本框的值