打印PDF输出

jutazhu　发表于：2014-03-08 15:42:48 　

大家好，

以下这个代码放在窗体中是可以使用的，但我有3个这样的窗体，都需要使用这段代码。我想把这个代码放在公共模块，怎么去读取当前窗体上得数据。如“变量 = Me![RepairNumber]”这句话在公共模块无效。请大家帮帮忙。

R20_RepairReport为我的报表名称。RepairNumber是窗体上得一个文本框名称，3个窗体上都有这个文本框。

Private Sub Command281_Click()
Dim 变量 As String
On Error Resume Next
    FormName = Screen.ActiveForm.Name
    Link = "[RepairNumber]=[Forms]!" + FormName + "![RepairNumber]"
    变量 = Me![RepairNumber]
    DoCmd.OpenReport "R20_RepairReport", acPreview, "", Link
    DoCmd.OutputTo acOutputReport, "R20_RepairReport", acFormatPDF, "" & 变量 & ".pdf", True
    DoCmd.Close acReport, "R20_RepairReport"
End Sub

Top

落尘_小新发表于：2014-03-08 18:45:34

在标准模块中写上如下函数:

Public Function aaa(A As Form)

Dim 变量 As String
On Error Resume Next
FormName = Screen.ActiveForm.Name
Link = "[RepairNumber]=[Forms]!" + FormName + "![RepairNumber]"
变量 = A![RepairNumber]
DoCmd.OpenReport "R20_RepairReport", acPreview, "", Link
DoCmd.OutputTo acOutputReport, "R20_RepairReport", acFormatPDF, "" & 变量 & ".pdf", True
DoCmd.Close acReport, "R20_RepairReport"
End Function

然后在窗体中调用该函数即可:

如:

Call aaa(Me)

Top

jutazhu 发表于：2014-03-09 12:21:16

谢谢楼上的帮助，问题已经解决。

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

打印PDF输出