一、
请教一个问题：
Private Sub Command109_Click()
If IsNull([开始日期]) Or IsNull([结束日期]) Then
MsgBox "开始日期和结束日期不能为空"
DoCmd.GoToControl "结束日期"
Exit Sub
Else
If [开始日期] > [结束日期] Then
MsgBox "结束日期不能比开始日期早"
DoCmd.GoToControl "结束日期"
Exit Sub
End If
End If
If IsNull([姓名]) Or IsNull([凭证号]) Then
MsgBox "姓名和凭证号不能为空值，如您选择的是所有姓名和凭证号，请您在查询框中输入*号"
DoCmd.GoToControl "姓名"
Exit Sub
End If
If MsgBox("温馨提示:您正在执行批量打印,请选择正确的记账姓名,避免纸张浪费.确定,点击'是'取消,点击'否'!", vbYesNo) = vbNo Then End
DoCmd.OpenReport "Attachmentpd", acViewReport
DoCmd.PrintOut
DoCmd.Close acReport, "Attachmentpd"
End Sub
上面这段是打印批量（也就是自动分组后进行批量打印）有问题，请高手帮助。
为何有时打印正常，有时不行，有时就是不打印，直接跳到了打印预览界面不打印了。碰到过好几次，不知道是什么原因？，能否帮助看看，优化一下，我需要直接默认机器上当前默认的打印机，直接打印，请高手！
二、
下面这段，这段是打印单张的一直都没有出过这样的问题，请高手帮助
Private Sub Command83_Click()
If IsNull([开始日期]) Or IsNull([结束日期]) Then
MsgBox "开始日期和结束日期不能为空"
DoCmd.GoToControl "结束日期"
Exit Sub
Else
If [开始日期] > [结束日期] Then
MsgBox "结束日期不能比开始日期早"
DoCmd.GoToControl "结束日期"
Exit Sub
End If
End If
If IsNull([姓名]) Or IsNull([凭证号]) Then
MsgBox "姓名和凭证号不能为空值，如您选择的是所有姓名和凭证号，请您在查询框中输入*号"
DoCmd.GoToControl "姓名"
Exit Sub
End If
DoCmd.OpenReport "Attachment", acViewReport
DoCmd.PrintOut
DoCmd.Close acReport, "Attachment"
End Sub
