[已解决]报表转pdf源码

rtmx01

请问：
能在vba代码或宏中实现报表转换成pdf吗？
我有一个报表，要下发给多个单位，由于每个单位的内容各不相同（也即要针对每个单位生成一个pdf文件）。需在程序代码中批量生成pdf。
由于装pdf虑拟打印机生成pdf文件中要提示录入文件名（如果屏蔽提示的话，又自动将多个打印文档合并成一个pdf），这样在生成pdf文档数量多的情况下，极不方便。
以前我生成snp时用的如下语句：
DoCmd.OutputTo acReport, "报表名", "SnapshotFormat(*.snp)", "snp文件名", False, "", 0
非常方便，但现在改用pdf后，有类似的代码吗？

经指点，在网内查到有生成pdf代码的程序（见附件）。
但有几点不明，请指教：
1、没怎么看懂该函数，不知结尾在哪里，是否要在最后两行：
DoCmd.OpenReport RptName, acViewPreview, , Wherecon
Reports(RptName).Visible = False
后加 end function
2、函数中描述的.dll文件是指的DynaPDF.dll 和 StrStorage.dll吗？这两个都要下载，还是只下载一个就行了？
3、dll文件在哪有下载的，能给个具体的链体地址吗？
4、dll文件下载后是否放在mdb文件后在目录就行了
5、ConvertReportToPDF函数怎么调用，能举个例吗？比如我的报表名为：rpt,要生成的pdf文件名为： c:\aa.pdf如针对以上给出ConvertReportToPDF函数的实例吗？ 附件：chajiangliang兄的代码：[推荐]老外的+我的改進=直接生成完美的PDF報表Public Function ConvertReportToPDF( _
Optional RptName As String = "", _
Optional SnapshotName As String = "", _
Optional OutputPDFname As String = "", _
Optional ShowSaveFileDialog As Boolean = False, _
Optional StartPDFViewer As Boolean = True, _
Optional CompressionLevel As Long = 0, _
Optional PasswordOwner As String = "", _
Optional PasswordOpen As String = "", _
Optional PasswordRestrictions As Long = 0, _
Optional PDFNoFontEmbedding As Long = 0, Optional Wherecon As String) As Boolean

' RptName is the name of a report contained within this MDB
' SnapshotName is the name of an existing Snapshot file
' OutputPDFname is the name you select for the output PDF file
' ShowSaveFileDialog is a boolean param to specify whether or not to display
' the standard windows File Dialog window to select an exisiting Snapshot file
' CompressionLevel - not hooked up yet
' PasswordOwner - not hooked up yet
' PasswordOpen - not hooked up yet
' PasswordRestrictions - not hooked up yet
' PDFNoFontEmbedding - Do not Embed fonts in PDF. Set to 1 to stop the
' default process of embedding all fonts in the output PDF. If you are
' using ONLY - any of the standard Windows fonts
' using ONLY - any of the standard 14 Fonts natively supported by the PDF spec
'The 14 Standard Fonts
'All version of Adobe's Acrobat support 14 standard fonts. These fonts are always available
'independent whether they're embedded or not.
'Family name PostScript name Style
'Courier Courier fsNone
'Courier Courier-Bold fsBold
'Courier Courier-Oblique fsItalic
'Courier Courier-BoldOblique fsBold + fsItalic
'Helvetica Helvetica fsNone
'Helvetica Helvetica-Bold fsBold
'Helvetica Helvetica-Oblique fsItalic
'Helvetica Helvetica-BoldOblique fsBold + fsItalic
'Times Times-Roman fsNone
'Times Times-Bold fsBold
'Times Times-Italic fsItalic
'Times Times-BoldItalic fsBold + fsItalic
'Symbol Symbol fsNone, other styles are emulated only
'ZapfDingbats ZapfDingbats fsNone, other styles are emulated only

Dim s As String
Dim blRet As Boolean
' Let's see if the DynaPDF.DLL is available.
blRet = LoadLib()
If blRet = False Then
' Cannot find DynaPDF.dll or StrStorage.dll file
Exit Function
End If
On Error GoTo ERR_CREATSNAP
Dim strPath As String
Dim strPathandFileName As String
Dim strEMFUncompressed As String
Dim sOutFile As String
Dim lngRet As Long
' Init our string buffer
strPath = Space(Pathlen)
'Save the ReportName to a local var
mReportName = RptName
' Let's kill any existing Temp SnapShot file
If Len(mUncompressedSnapFile & vbNullString) > 0 Then
Kill mUncompressedSnapFile
mUncompressedSnapFile = ""
End If
' If we have been passed the name of a Snapshot file then
' skip the Snapshot creation process below
If Len(SnapshotName & vbNullString) = 0 Then

' Make sure we were passed a ReportName
If Len(RptName & vbNullString) = 0 Then
' No valid parameters - FAIL AND EXIT!!
ConvertReportToPDF = ""
Exit Function
End If

' Get the Systems Temp path
' Returns Length of path(num characters in path)
lngRet = GetTempPath(Pathlen, strPath)
' Chop off NULLS and trailing "\"
strPath = Left(strPath, lngRet) & Chr(0)

' Now need a unique Filename
' locked from a previous aborted attemp.
' Needs more work!
strPathandFileName = GetUniqueFilename(strPath, "SNP" & Chr(0), "snp")

' Export the selected Report to SnapShot format
DoCmd.Echo False
DoCmd.OpenReport RptName, acViewPreview, , Wherecon
Reports(RptName).Visible = False


[ 本帖最后由 cuxun 于 2007-12-12 09:20 编辑 ]

jore

学习受教了

hiokey88

试了，根本不行！

yanwei82123300

很不错的咚咚，正在研究学习ing

danis

mark

zjj_zjj

为什么我这里导出的中文都是"????"这样的乱码啊？

primist

看看！

阿六爱狗

高手都是

blackzzy

我运行了，为什么提示  缺少变量或过程

Private Sub Command0_Click()
blRet = ConvertReportToPDF("报表1", vbNullString, "报表1.pdf", False, True, 0, "", "", 0, 0)
End Sub

blackzzy

能将试用方法再详细些吗？我也需要这个呢，我是个菜鸟

blackzzy

能做个实例上来吗?谢谢大侠了!!