打印报表时出现一闪一闪的提示框，怎样去掉？

wssf

各位老师们：下面一段打印代码是一个窗体上打印按钮的代码：如是"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

自己顶一下！请高人指点！谢谢！

andymark

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

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

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

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

Henry D. Sy

谢谢一点通老师，你的帖子代码找不出和一楼有什么不同啊？请再指点！
一点通 和 AndyMark 有什么不同？

wssf

谢谢六弟老师的指点，笔误了，见笑！六弟有何高见，也请赐教！谢谢！

andymark

2 打印报表2时，不但出现一闪一闪的提示框，还会短暂打开报表2，一闪后再回到窗体。
  是因为你打开打表后又关闭,    try:

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

wssf

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

一点通

上传例子方便查出问题所在