Office中国论坛/Access中国论坛

标题: 请看看还是打印的毛病 [打印本页]

作者: dhlyh 时间: 2005-11-30 22:01
标题: 请看看还是打印的毛病
一点通版主你给我改的我看了为什么你改的就能用我把按钮换个样就不行了呢是那个多条打印点完输入开始序号又输入结束序号后为什么打印机没响应 [attach]14486[/attach]

作者: dhlyh 时间: 2005-11-30 22:11
还有打印前能不能提示打印多少份呢然后再打?

作者: 一点通 时间: 2005-11-30 22:28
可能是语句不全的原因吧,改为以下方式

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

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

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