Office中国论坛/Access中国论坛

标题: 打印报表时出现一闪一闪的提示框，怎样去掉？ [打印本页]

作者: wssf 时间: 2007-9-5 08:27
标题: 打印报表时出现一闪一闪的提示框，怎样去掉？
各位老师们：下面一段打印代码是一个窗体上打印按钮的代码：如是"A"字开头的编号，打印报表1；如是"B"字开头的编号，打印报表2的第一张。。。。。。
问题：1每次在窗体按打印钮后，出现一闪一闪的提示框，如何叫它不出现。  2 打印报表2时，不但出现一闪一闪的提示框，还会短暂打开报表2，一闪后再回到窗体。怎样克服（要求按打印钮后直接打印，不需要提示或显示报表）？代码有什么问题？请指教！谢谢！

Private Sub 打印_Click()
On Error GoTo Err_打印_Click

Dim stDocName As String
  If left([编号],1)="A"  Then
   stDocName = "报表1"
   DoCmd.OpenReport stDocName, acNormal
   End If

If left([编号],1)="B"  Then
   stDocName = "报表2"
   DoCmd.OpenReport stDocName, acPreview
   DoCmd.PrintOut acPages, 1, 1
   DoCmd.Close acReport, "报表2"
   End If

Exit_打印_Click:
Exit Sub
Err_打印_Click:
MsgBox Err.Description
Resume Exit_打印_Click

End Sub

作者: wssf 时间: 2007-9-5 10:12
自己顶一下！请高人指点！谢谢！

作者: andymark 时间: 2007-9-5 10:27
2 打印报表2时，不但出现一闪一闪的提示框，还会短暂打开报表2，一闪后再回到窗体。怎样克服（要求按打印钮后直接打印，不需要提示或显示报表）？代码有什么

If left([编号],1)="B"  Then
   stDocName = "报表2"
   DoCmd.OpenReport stDocName, acPreview
   DoCmd.PrintOut acPages, 1, 1
   DoCmd.Close acReport, "报表2"
   End If

认真检查一下自已的代码

作者: rjacky 时间: 2007-9-5 10:46
Private Sub 打印_Click()
On Error GoTo Err_打印_Click

Dim stDocName As String
  If left([编号],1)="A"  Then stDocName = "报表1"
  If left([编号],1)="B"  Then stDocName = "报表2"
   DoCmd.OpenReport stDocName

Exit_打印_Click:
Exit Sub
Err_打印_Click:
MsgBox Err.Description
Resume Exit_打印_Click

End Sub

作者: wssf 时间: 2007-9-5 11:05
谢谢 AndyMark老师，你的帖子代码找不出和一楼有什么不同啊？请再指点！
谢谢rjacky老师，你改动的代码简洁的多，但If left([编号],1)="B" Then stDocName = "报表2"要求只打印首页，该怎样改动？谢谢！

[ 本帖最后由 wssf 于 2007-9-5 14:17 编辑 ]

作者: Henry D. Sy 时间: 2007-9-5 11:34
谢谢一点通老师，你的帖子代码找不出和一楼有什么不同啊？请再指点！
一点通和 AndyMark 有什么不同？

作者: wssf 时间: 2007-9-5 14:19
谢谢六弟老师的指点，笔误了，见笑！六弟有何高见，也请赐教！谢谢！

作者: andymark 时间: 2007-9-5 14:45
2 打印报表2时，不但出现一闪一闪的提示框，还会短暂打开报表2，一闪后再回到窗体。
  是因为你打开打表后又关闭, try:

If Left([编号], 1) = "B" Then
   Stdocname = "报表2"
   DoCmd.SelectObject acReport, Stdocname
   DoCmd.PrintOut acPages, 1, 1
End If

作者: wssf 时间: 2007-9-5 16:34
谢谢andymark版主热心解答。短暂打开表2的现象没有了，但一闪一闪打开"打印第几。。。。。"的提示框还是闪现两下，不过可以忍受了。不知可否全部清除。谢谢您！

作者: 一点通 时间: 2007-9-5 17:08
上传例子方便查出问题所在

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