Office中国论坛/Access中国论坛

标题: 打印？在线等 [打印本页]

作者: 佳佳 时间: 2003-6-12 03:18
标题: 打印？在线等
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

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

作者: hi-wzj 时间: 2003-6-12 07:39
应为：DoCmd.OpenReport stDocName, acViewPreview
打两份不会点两下？

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