打印？在线等

佳佳

Private Sub 打印信息表_Click()
On Error GoTo Err_打印信息表_Click

    Dim stDocName As String
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    DoCmd.OpenReport "信息表", acPreview, , "[ID]=" & [ID]
    stDocName = "信息表"
    DoCmd.OpenReport stDocName, acNormal

Exit_打印信息表_Click:
    Exit Sub

Err_打印信息表_Click:
    MsgBox Err.Description
    Resume Exit_打印信息表_Click



窗体按钮如何打印两份，并且不显示预览啊？?

[此贴子已经被作者于2003-6-11 19:22:08编辑过]