
自从数据可以导出到xls,又有客户提出了不同的需求,比如既然可以将数据导出到xls,那是否可以导出到pdf文件呢?因为xls打开以后用户可以修改数据造假之类的,而pdf默认是不可编辑的,除非借助专业的工具,所以如果想要限定用户导出数据不能被更改,那导出pdf是最佳选择。写程序往往都是这样,一步步慢慢增加,随着用户需求的增加,程序量也越来越多,轮子组件也越来越多。往往客户提需求的时候,一定要认真聆听,尤其是一线用户,实际使用的用户,尽管有些不合理的需求,但是能满足就尽量满足,毕竟客户就是上帝。
在Qt中要导出到pdf必须要用到qprinter类,相当于这些数据是打印到pdf的,所以确切点是叫打印到pdf文件,而不是导出数据到pdf,格式这块由于采用的是打印,所以需要用html嵌套table表格的形式来打印,支持的格式就有限了,一般可以设置字体大小、颜色、边框、对齐等,尽管是html,但是也是支持有限的html格式,这点要特别注意。现在的qt版本貌似单独将pdf提炼出来成了独立的模块,功能更强大。
结构体支持的参数:
这个你只要安装了flash插件(就是浏览器要看flash视频必须安装的那个),一般都会有这些功能,还有打印等等的很多功能。
你可以去这里下载,浏览器观看视频都必须安装的。
>
以下代码先设置一个待查找字符串,用findtext方法查找,然后用createchild方法插入书签。代码的运行环境为Win81,Word2010 VBA,Acrobat Pro DC,在本机测试成功。
使用到的主要方法为AVDocFindText和BookMarkcreateChild。
AVDocFindText有4个参数:
szText,要查找的字符串
bCaseSensitive,是否区分大小写,正数为区分,0为不区分
bWholeWordsOnly,是否匹配整个单词,正数为匹配,0为不匹配
bReset,查找开始的位置,正数则从第一页开始,0则从当前页开始
BookMarkcreateChild有3个参数
cName,用户在导航面板中看到的书签的名称。
cExpr,单击书签时要执行的表达式,为JavaScript
nIndex,(可选)在书签的子数组中,创建新子书签的基于0的索引。默认值为0。
Sub Pdf添加书签()
'为某书添加书签
Dim App As New AcrobatAcroApp
Dim PDoc As New AcrobatAcroPDDoc, AVDoc As New AcrobatAcroAVDoc
Dim Jso As Object
Dim BMark As Object '不能声明为AcrobatAcroPDBookmark,否则createchild方法不可用。
Dim PFile As String, WordTF As String, PageNum As Long
PFile = "F:\指定文件pdf" '要插入书签的pdf文件
WordTF = "要查找的"
If PDocOpen(PFile) Then
Set Jso = PDocGetJSObject
Set AVDoc = PDocOpenAVDoc("") '获得一个可见文档
JsobookmarkrootRemove '移除原有的所有书签
End If
If AVDocFindText(WordTF, 0, 0, 1) Then '从第一页开始,如果找到了字符串WordTF一次
PageNum = AVDocGetAVPageViewGetPageNum '获得当前页码
Set BMark = Jsobookmarkroot '设置书签根对象
BMarkcreateChild WordTF, "thispageNum=" & PageNum, 0 '创建一个书签
PDocSave 1, PFile
End If
PDocClose
AppCloseAllDocs
AppHide
AppExit
Set AVDoc = Nothing
Set PDoc = Nothing
Set App = Nothing
Set BMark = Nothing
Set Jso = Nothing
End Sub
以上就是关于Qt数据库应用3-数据打印到pdf全部的内容,包括:Qt数据库应用3-数据打印到pdf、C# embed怎么获取pdf文件当前播放的页数以及默认播放页数(或者跳转到某页)、如何用VBA实现打开PDF并查询数据,获取页码,或是提取该页面为新文件等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)