根据条件将MS Access报告导出为PDF

JT2013

有什么方法可以根据报告中的特定条件/字段在MS Access中将报告导出为PDF?

我已经在MS Access中创建了一份生产力报告。除了将50页导出为1个PDF之外,还有没有一种方法可以根据经理的姓名进行导出?经理姓名字段包含在实际报告中。

VBlades

您可以采用这个想法并加以实践。将此插入模块

Option Explicit

Dim g_ManagerReportFilterEnabled As Boolean
Dim g_ManagerReportFilter As String

Public Function IsManagerReportFilterEnabled() As Boolean
    IsManagerReportFilterEnabled = g_ManagerReportFilterEnabled
End Function

Public Function GetManagerReportFilter() As String
    GetManagerReportFilter = g_ManagerReportFilter
End Function

Public Sub ExportFilteredManagerReportToPDF(strManagerName As String)
On Error GoTo ExportFilteredManagerReportToPDF_ErrorHandler

    g_ManagerReportFilterEnabled = True
    g_ManagerReportFilter = "[MyManagerNameField] = " & Chr(34) & strManagerName & Chr(34)
    DoCmd.OutputTo acOutputReport, "MyReportName", acFormatPDF, "MyPath:\MyFileName.PDF", False

    GoTo ExitMe

ExportFilteredManagerReportToPDF_ErrorHandler:
    Debug.Print err.Number & ": " & err.Description
ExitMe:
    g_ManagerReportFilterEnabled = False
    Exit Sub

End Sub

并查看您需要替换的变量。并将其放入您的报告的Report_Open中:

Private Sub Report_Open(Cancel As Integer)

    If IsManagerReportFilterEnabled = True Then
        Me.Filter = GetManagerReportFilter
        Me.FilterOn = True
    End If

End Sub

因此,此代码尝试解决的问题是我们要使用DoCmd.OutputTo输出我们的PDF,但它不使用Filter参数。因此,我们通过设置两个全局变量(我知道...)来解决此问题,该变量使我们知道是否应使用Manager过滤器以及该过滤器是什么。当我们运行ExportFilteredManagerReportToPDF并传递名称时,该子项会将报告输出为PDF。由于报告附带了代码,因此在运行OutputTo时,报告将检测是否启用了过滤器,如果已启用,则应用它。然后OutputTo完成其工作并输出PDF。

例如,要为经理John Smith运行此程序,可以从调试窗口运行此程序:

 ExportFilteredManagerReportToPDF "John Smith"

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

从Python将SSRS报告导出为PDF

来自分类Dev

如何将JIRA报告导出为PDF?

来自分类Dev

将报告导出为PDF时,更改字体

来自分类Dev

在横向模式下将.rdlc报告导出为pdf

来自分类Dev

如何限制BIRT报告工具将报告导出为仅PDF格式

来自分类Dev

如何限制BIRT报告工具将报告导出为仅PDF格式

来自分类Dev

将网格导出为pdf

来自分类Dev

Kendo将多个图表导出为pdf

来自分类Dev

将Attlassian Confluence Wiki导出为PDF

来自分类Dev

UserControl将GridView导出为PDF

来自分类Dev

将div的内容导出为PDF

来自分类Dev

使用POI将DOC导出为PDF

来自分类Dev

将div的内容导出为PDF

来自分类Dev

将文本从网站导出为pdf

来自分类Dev

将Attlassian Confluence Wiki导出为PDF

来自分类Dev

将treetable primefaces导出为pdf

来自分类Dev

将 xtable 导出为 pdf 文件

来自分类Dev

将 html 导出为 pdf 横向模式

来自分类Dev

将多页的 html 导出为 pdf

来自分类Dev

MS Access:根据记录级条件对字段进行计数

来自分类Dev

将报告导出为HTML时,如何给报告元素赋予ID?

来自分类Dev

根据具有if条件的多个文本框表达式值将值分配给表单上的文本框-MS ACCESS

来自分类Dev

将Excel导出为PDF 0显示为(?)

来自分类Dev

SSRS 2008:将报告导出到PDF后,PDF中的奇怪字符

来自分类Dev

Mac OSX上的MS OneNote:是否可以将整个笔记本导出为PDF?

来自分类Dev

MS PowerPoint导出为PDF使线条变粗(Mac)

来自分类Dev

如何从MS Access将表结构和数据导出为txt文件

来自分类Dev

将 matlab 数据导出到 MS Access

来自分类Dev

将具有大量列的html表导出为PDF