【分享】PDF输出的另类玩法——使用XFDF填充报表

roych

       前天在图书馆借了本《Access 2013 web编程》，打算在培训群里装一下十三的。前面十四章都是关于Access Web应用程序，于是昨天就激活了小妖姐姐去年给的Office365账号【灰常感谢{:soso_e142:}】，打算具体测试一下SharePoint的，感觉Access web程序还行，应该是用ASP.NET来完成远程交互的。所以VBE被取消了，只能写数据宏或者普通宏来完成交互，而且增加了不少内置函数，比较接近JavaScript的内置函数，具体机制还没研究……可惜只有30天试用期，看来得抓紧时间测试了。              
       第二部分匆匆浏览一遍，觉得有些东西还是可以跟大家分享下的。稍稍消化下，就过来发帖了。{:soso_e113:}

       第一个想说的是，使用XFDF填充表单。和论坛的导出PDF报表相比，优缺点如下：

项目	优点	缺点
PDF导出报表	可以按记录导出 允许导出复杂报表，所见即所得	代码较为复杂，可能不易维护 由于引用第三方控件，部分电脑可能无法执行或出错
XFDF填充表单	代码相对简单，易于维护 格式固定，适用于汇总类报表	使用了域文本，只能按固定格式填充。 需要预先设置好表单格式。

      具体做法是先设置好固定格式的表单，插入文本和域文本，保存为模板，然后创建XML格式的XFDF文件①，再执行即可生成PDF文件②，具体效果如下：

习惯上，还是先贴代码：

1. Private Sub 提交_Click()
   
2. '
   
3. Const strPDF As String = "PDFDemo.pdf"
   
4. Const strXFDF As String = "theDBguy.xfdf"
   
5. 
   
6. Dim strPath As String
   
7. Dim intFile As Integer
   
8. '加上控件方便写循环语句。
   
9. Dim ctr As Control
   
10. 
    
11. strPath = CurrentProject.Path
    
12. intFile = FreeFile
    
13. '需用二进制方式写入，用OpenTextFile方式测试没成功。
    
14. Open strPath & "" & strXFDF For Output As #intFile
    
15. 'UTF-8不支持汉字，需改为GB2312或者GBK编码。
    
16. Print #intFile, "<?xml version=""1.0"" encoding=""GBK""?>"
    
17. Print #intFile, "<xfdf xmlns=""http://ns.adobe.com/xfdf/"" xml:space=""preserve"">"
    
18. Print #intFile, "<f href=""" & strPDF & """/>"
    
19. Print #intFile, "<fields>"
    
20. For Each ctr In Me.Controls
    
21.     If ctr.ControlType = acTextBox Or ctr.ControlType = acComboBox Then
    
22.         Print #intFile, "<field name=""" & ctr.Name & """>"
    
23.         Print #intFile, "<value>" & ctr.Value & "</value>"
    
24.         Print #intFile, "</field>"
    
25.     End If
    
26. Next
    
27. Print #intFile, "</fields>"
    
28. Print #intFile, "</xfdf>"
    
29. Close #intFile
    
30. ShellEx strPath & "" & strXFDF
    
31. 'ShellEx是封装后的ShellExecute API函数，这里就不贴了。详细见附件
    
32. End Sub

复制代码

注：
       ①：源文件是一行行输入的。我嫌麻烦，就稍稍改了代码，使用了循环。另外，XFDF格式使用Name属性必须加上双引号【不加双引号时会出错，单引号没试过。】
       ②：生成PDF表单，详见二楼图解。

roych

PDF表单的制作：先创建一个文本文档【反正我手头上的版本是无法从Excel或者Word导入表单的】


选择从文件创建PDF，即可得到一个PDF文档。

右击空白处，选择编辑文本和图像

在右侧的菜单栏选择需要的功能完成表单制作，保存文件即可。

如果不想域数据被更改，可以在域的属性上设置“只读”
——“只读”指的是用ADOBE Reader打开文档时无法删除数据，但是ADOBE Acrobat还是可以编辑的，而且 XFDF的数据也可以写进去。

admin

最近也在使用Office365，我有账号，但不知道如何延长使用时间。好久没用了

风中漫步

{:soso_e103:}看图示,是先建个模板,然后根据模板格式输出xml(或说根据xml格式建pdf模板),再启动模板并将xml传递给它,流程是这样吧?

roych

风中漫步 发表于 2015-7-14 16:38
看图示,是先建个模板,然后根据模板格式输出xml(或说根据xml格式建pdf模板),再启动模板并将xml ...

原理是这样，也只有这样才比较节省代码。对于格式固定的汇总类报表，或者填写表单提交之类应该是比较方便的。

roych

admin 发表于 2015-7-14 16:04
最近也在使用Office365，我有账号，但不知道如何延长使用时间。好久没用了

虽然家里装了Access 2013，但新功能一直都没用，所以想看看Access web方向怎么样。
现在看来Access CDN也是挺麻烦的，如果没有免费的第三方托管网站，估计使用SharePoint/Office 365的只能是一部分企业用户了，——虽然一年只有几百块。

ganlinlao

不看好。
这可能是又一出access数据页的结局
何况，infopath可是配合c#的，可谓福比天高。但结果命比纸薄

admin

企业客户已经有一大部分客户转过去了。云已经是大趋势。微软云的占有率还是比较高的，相对于手机的不争气

hunrybecky

OFFICE2013 365 淘宝有激活码买，几元钱，买一个就行。还有你可以使用小马哥的激活工具激活也是可以的。