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

secowu

在打印按鈕的代碼里寫的是：

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

能上传文件吗？

secowu

看这里http://www.office-cn.net/forum.php?mod=viewthread&tid=33512

secowu

呵呵，发现原来是那里错了。