Office中国论坛/Access中国论坛

标题: [求助]非常急！這個打印怎麼會將全部記錄打印出來？ [打印本页]

作者: secowu 时间: 2005-11-15 18:12
标题: [求助]非常急！這個打印怎麼會將全部記錄打印出來？
在打印按鈕的代碼里寫的是：

Private Sub 打印_Click()

On Error GoTo Err_打印_Click

If IsNull(Me.版式) = False Then

Me.Visible = False

DoCmd.OpenReport Me.版式, acViewPreview, , , , "[工作单号]='" & Me.工作单号 & " '"

DoCmd.RunCommand acCmdPrint

Reports(Me!版式).Visible = False

DoCmd.Close acReport, Me.版式

Me.版式 = Null

Else

MsgBox "并且重要提醒阁下:" & vbCr & "" & vbCr & "如果您没有填写完整的工作单," & vbCr & "" & vbCr & "将无法打印出正确效果！", vbCritical, "重要提示:阁下必须选择打印版式"

Me.版式.SetFocus

End If

Exit_打印_Click:

Exit Sub

Err_打印_Click:

MsgBox err.Description

Resume Exit_打印_Click

在報表里這樣寫的：

Private Sub Report_Close()

Forms!A制单界面.Visible = True

End Sub

現在，一點打印，能出現選擇打印機的對話框，但進行打印時，會將全部記錄打出來

[此贴子已经被作者于2005-11-15 10:12:40编辑过]

作者: gaoqiwen 时间: 2005-11-15 19:23
能上传文件吗？

作者: secowu 时间: 2005-11-15 23:08
看这里http://www.office-cn.net/forum.php?mod=viewthread&tid=33512

作者: secowu 时间: 2005-11-15 23:33
呵呵，发现原来是那里错了。

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