[求助]如何按条件生成快照报表？

zhong9148579

想通过在窗体中选择条件，对报表基于的查询进行控制，有条件地生成快照报表文件，用DoCmd.OutputTo acReport,不能设定条件，不知有没有好的办法？

fan0217

导出报表快照 (Snapshot Viewer)


[url=mkMSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbaac10.chm::/html/acmthSendObjectAndOutputToSS.htm#example][/url]


本主题中的部分内容可能不适用于某些语言。


有两种编程方式可以从 Microsoft Access 数据库中导出报表快照对象。

• 可以用 [url=mkMSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbaac10.chm::/html/acmthactSendObject.htm]SendObject[/url] 方法将报表快照嵌入到邮件消息中。
  
  
• 可以用 [url=mkMSITStore:C:\Program%20Files\Microsoft%20Office\OFFICE11\2052\vbaac10.chm::/html/acmthactOutputTo.htm]OutputTo[/url] 方法将报表快照保存到磁盘上。

下表包含有关用于在邮件消息中发送报表快照的 SendObject 方法的前三个参数的信息。请注意，这里只讨论 SendObject 方法的前三个参数，因为这些参数确定了将报表指定为快照文件的方式。有关 SendObject 方法的其他参数的信息，请参阅 Microsoft Access 联机帮助中的该主题。











参数


说明





Object Type


常量，代表要发送对象的类型。对于报表快照，该常量为 acSendReport。





Object Name


字符串值，代表要包含在邮件消息中作为快照文件的报表的名称。





Output Format


若要输出报表快照，请将该参数设为字符串值："Snapshot Format"。



下表包含有关用于将报表快照保存为磁盘上的快照文件的 OutputTo 方法的前四个参数的信息。请注意，这里只讨论 OutputTo 方法的前四个参数，因为这些参数确定了将报表保存为磁盘上快照文件的方式。有关 OutputTo 方法的其他参数的信息，请参阅 Microsoft Access 联机帮助中的该主题。











参数


说明





Object Type


常量，代表要保存到磁盘上的对象的类型。对于报表快照，该常量为 acOutputReport。





Object Name


字符串值，代表要保存到磁盘上的报表的名称。





Output Format


若要保存报表快照，请将该参数设为字符串值："Snapshot Format"。





Output File


字符串值，代表要保存到磁盘上的快照文件的完整路径和文件名。例如："c:\my documents\mysnapshot.snp"。

chanchen

Private Sub 打印发货单_Click()
If IsNull(Me.List20) Or Me.List20 = "" Then                   '例行检查
MsgBox "请先选择订单!", vbOKOnly + vbInformation, SoftName
Exit Sub
End If


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

    Dim strDocName As String
   
    strDocName = "制造单"
    ' 打印“发货单”报表，打印当前订单的发货单。
    Dim Q$
    Q$ = """"
    DoCmd.OpenReport strDocName, acPreview, , Q$ + "订单ID" + Q$ + "=" + CStr(Me.List20.Column(1))

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



抄示例的!自己改了一下!