大家好!
我现需向PDF中写入文本,完全不知道方法,
还请高手指点,谢谢!具体一点就是,向PDF的右下角,签上自己的名字
我现需向PDF中写入文本,完全不知道方法,
还请高手指点,谢谢!具体一点就是,向PDF的右下角,签上自己的名字
解决方案 »
- vb如何实现点击按钮显示表格?
- 如何实现list列表和text控件之间的联动
- 关于ERP软件里,“用户管理”这个功能如何来设计?
- 服务端能否"催促"客户端发连接(connect方法)请求,以缩短侦听时间?
- 这个问题如何解决?
- 急!!!很菜的VB数据库文件关联问题
- 问大家一个简单问题,写Activex DLL时如何编译生成对应的tlb文件...
- 自己开店装电脑,想吸引客户,预装什么软件好呢(自制),大家给个意见!
- 虚心请教,我的程序提示错误代码:3706,说找不到提供者,但在装有VB的机子上能正常行。
- 高分求教开发vb+sqlserver客户/服务器应用的流程,最好从最基本的配置说起,越详细越好,给高分!!
- 数组排序后得到在原数组中的位置
- 连续打印的问题
比如说,VB中有个TEXTBOX
我现在需要把TEXTBOX的值,写入到PDF文件中
是用VB执行PDF写入文本
导出的PDF都是乱码
从目前 Adobe 提供给用户的方法来看,.pdf 文件是无法直接写入的(页面插入除外)。你必须将 .pdf 的原文提取到其他文本编辑器(例如 WinWord),插入你的文字,然后再重新生成新的 .pdf 文件。而提取和重新生成,都涉及到 .pdf 的工具,而且提取的文本内容在顺序上也可能与文件所显示的不同。这个问题不是 VB 的问题。也许应该去问 Adobe(Adobe pdf 文件工具,除阅读器外,是收费的)。
我不知道该下载PDFLIB哪个版本。
还有就是,我不是创建一个PDF
而是打开一个已有的PDF,然后插入一个文本
当然还有一个办法,就是将你要插入的文本当作水印来添加。已经生成的 .pdf 文件是支持插入水印的。问题是,你需要找到原文本空白处。另外,如何用第三方空间去做,要看相关说明。总之,都是不 VB 自身可以解决的。
我使用PDFLIB 8.03搞定了
如下代码,即可实现,打开一个现有的PDF,
然后在指定位置签个名,但有一个缺陷,
好大一个水印在上面。。
Sub PDF_Signature(ApprovedName As String, JobName1 As String)
' This is where the data files are. Adjust as necessary.
'Const searchpath As String = "..\data" Dim p As PDFlib_com.PDF
Dim font As Long
Dim NewPdf As String
Dim pdffile As String
pdffile = "O:\InPlan\BOM\" & JobName1 & "-BOMT.pdf"
NewPdf = "D:\InPlan\log\" & JobName1 & "-BOM.pdf"
On Error GoTo ErrExit Set p = New PDFlib_com.PDF p.set_parameter "SearchPath", searchpath ' This means we must check return values of load_font() etc.
p.set_parameter "errorpolicy", "return" If p.begin_document(NewPdf, "") = -1 Then
MsgBox "Error: " & p.get_errmsg()
End
End If p.set_info "Creator", "PDFlib starter sample"
p.set_info "Title", "starter_pdfmerge"
Dim indoc, endpage, pageno, page As Integer
pageno = 1
' Open the input PDF
indoc = p.open_pdi_document(pdffile, "")
If indoc = -1 Then
MsgBox "Error: " & p.get_errmsg()
Else ' Loop over all pages of the input document
page = p.open_pdi_page(indoc, pageno, "") If page = -1 Then
MsgBox "Error: " & p.get_errmsg()
Else
' Dummy page size; will be adjusted later
p.begin_page_ext 10, 10, ""
font = p.load_font("华文细黑", "unicode", "")
If (font = -1) Then
MsgBox "Error: " & p.get_errmsg
End
End If
p.setfont font, 13
p.set_text_pos 60, 38
p.Show ApprovedName
p.fit_pdi_page page, 0, 0, "adjustpage"
p.close_pdi_page page
p.end_page_ext ""
End If
p.close_pdi_document indoc
End If p.end_document ""
'End
Set p = Nothing
If FileDateTime(pdffile) = FileModTime Then
FileCopy NewPdf, "\\founderpcb.com\it\ERPBOMDOC\" & JobName1 & "-BOM.pdf"
MsgBox "上传BOM工单完毕!"
Else
MsgBox "检测到BOM工单有更新!请注意!"
End If
GoTo finish
ErrExit:
MsgBox "PDFlib exception " & Err.Description
finish:
End Sub