如何解决使用MS Access VBA,使用某些字段将文件中的每个记录打印到单独的pdf文件中
我的代码似乎有问题。输出未显示如图中所示的值。我是vba的新手,因此如果有人能找出以下代码中缺少的内容,我将不胜感激。
Private Sub Command_PDF_Click()
Dim myrs As Recordset
Dim myPDF,myStmt As String
myStmt = "Select distinct Code1 from Query_Certificate_Eng"
Set myrs = CurrentDb.OpenRecordset(myStmt)
Do Until myrs.EOF
myPDF = "C:\Users\93167\Desktop\Output Certificate\" & Format(myrs.Fields("Code1"),"0000000000000") & ".pdf"
DoCmd.OpenReport "Certificate_Eng",acViewPreview,"Code1" = " & myrs.Fields("").value"
DoCmd.OutputTo objectType:=acOutputReport,objectName:="Certificate_Eng",outputformat:=acFormatPDF,outputfile:=myPDF,outputquality:=acExportQualityPrint
DoCmd.Close
myrs.MoveNext
Loop
myrs.Close
Set myrs = nothing
End Sub
解决方法
问题在您的报告打开条件中。因此,将其更改为
"Code1 = '" & myrs!Code1 & "'"
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。