Office中国论坛/Access中国论坛

标题: 求助：在窗体上的打印问题 [打印本页]

作者: hljthzbc 时间: 2010-8-13 09:07
标题: 求助：在窗体上的打印问题
版主和大家好：
我在窗体上要实现报表的打印，可是有生产和销售两个报表。怎样可以按着编号分别打印，并每次只打印一个报表呢，（就是要打生产报表，就只能打生产报表呢）[attach]43092[/attach]

作者: tmtony 时间: 2010-8-13 09:56
使用dlookup 查询到这个编号的产销属性是生产还是销售,然后打印不同的报表

作者: hljthzbc 时间: 2010-8-13 10:22
我还是不会呀

作者: hljthzbc 时间: 2010-8-14 08:22
此贴问题没有解决,那位再来帮一下

作者: hljthzbc 时间: 2010-8-14 08:45
本帖最后由 hljthzbc 于 2010-8-14 08:47 编辑

我改的代码只能打生产-单表,销售表同时也打了多表,谁帮我改改,怎样实现用一个打印按钮打印分别打印

Private Sub Command14_Click()
'DoCmd.OpenReport "生产", , , "组合38=" & Me.组合38.Value

' 这段代码由“命令按钮向导”创建。
On Error GoTo Err_PrintInvoice_Click

Dim strDocName As String

strDocName = "生产"

DoCmd.OpenReport strDocName, acViewNormal, "组合39"

strDocName = "销售"

DoCmd.OpenReport strDocName, acViewNormal, "组合38"
Exit_PrintInvoice_Click:
Exit Sub

Err_PrintInvoice_Click:
' 如果用户取消操作，不显示错误消息。
Const conErrDoCmdCancelled = 2501
If (Err = conErrDoCmdCancelled) Then
      Resume Exit_PrintInvoice_Click
Else
      MsgBox Err.Description
      Resume Exit_PrintInvoice_Click
End If

End Sub

作者: hljthzbc 时间: 2010-8-14 09:18
本帖最后由 hljthzbc 于 2010-8-14 09:45 编辑

用两个按钮可实现打印,我想谁能帮我改成一个按钮
打印按钮无意碰到确会打印了多表.怎样解决在没有筛选的情况下不能打印.

Private Sub Command14_Click()
'DoCmd.OpenReport "生产", , , "组合38=" & Me.组合38.Value

' 这段代码由“命令按钮向导”创建。
On Error GoTo Err_PrintInvoice_Click

Dim strDocName As String

strDocName = "生产"

DoCmd.OpenReport strDocName, acViewNormal, "组合39"

Exit_PrintInvoice_Click:
Exit Sub

Err_PrintInvoice_Click:
' 如果用户取消操作，不显示错误消息。
Const conErrDoCmdCancelled = 2501
If (Err = conErrDoCmdCancelled) Then
      Resume Exit_PrintInvoice_Click
Else
      MsgBox Err.Description
      Resume Exit_PrintInvoice_Click
End If

End Sub
Private Sub Command15_Click()
'DoCmd.OpenReport "生产", , , "组合38=" & Me.组合38.Value

' 这段代码由“命令按钮向导”创建。
On Error GoTo Err_PrintInvoice_Click

Dim strDocName As String

strDocName = "销售"

DoCmd.OpenReport strDocName, acViewNormal, "组合38"
Exit_PrintInvoice_Click:
Exit Sub

Err_PrintInvoice_Click:
' 如果用户取消操作，不显示错误消息。
Const conErrDoCmdCancelled = 2501
If (Err = conErrDoCmdCancelled) Then
      Resume Exit_PrintInvoice_Click
Else
      MsgBox Err.Description
      Resume Exit_PrintInvoice_Click
End If

End Sub

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