快速入门

PDF是兼容性最好的文档格式,所以也是使用最为广泛的文档格式。

以前我们需要先用专业报表、Excel报表或者Word报表生成报表后,再转换成PDF格式,不仅效率极低,而且转换过程会存在兼容性问题。

PDFCreator可直接生成原生的PDF文档,效率极高,也不再有兼容性问题。

示例

在命令窗口执行下面的代码:

Dim file As String = "c:\temp\test.pdf"
Dim
pdc As New PDFCreator()
Dim
rect As RectangleF = pdc.PageRectangle() '获得页面矩形
rect.Inflate(-72, -72)
'页面矩形内缩72磅,也就是1英寸或2.54厘米, 也就是页边距为2.54厘米
Dim
fnt As New Font("微软雅黑", 12)
pdc.DrawString(
"Hello Foxtable!", fnt, Brushes.Black, rect) '绘制字符串
p
dc.Save(file) '保存文件
Process.Start(file)
'打开文件

PDFCreator内置了PDF文件查看功能,无需借助第三方软件,只需调用其Show方法即可查看生成的PDF文件:

Dim file As String = "c:\temp\test.pdf"
Dim
pdc As New PDFCreator()
Dim
rect As RectangleF = pdc.PageRectangle() '获得页面矩形
rect.Inflate(-72, -72)
'页面矩形内缩72磅,也就是1英寸或2.54厘米, 也就是页边距为2.54厘米
Dim
fnt As New Font("微软雅黑", 12)
pdc.DrawString(
"Hello Foxtable!", fnt, Brushes.Black, rect) '绘制字符串
p
dc.Save(file) '保存文件

pdc.Show()
'显示生成的内容


 

通过PDFCreator的DocumentInfo属性可以设置文档属性,例如:

Dim file As String = "c:\temp\test.pdf"
Dim
pdc As New PDFCreator()
Dim rect As RectangleF = pdc.PageRectangle() '
rect.Inflate( - 72, - 72)
Dim
fnt As New Font("微软雅黑", 12)
pdc.DrawString(
"Hello Foxtable!", fnt, Brushes.Black, rect)
'
设置文档属性

pdc.DocumentInfo.Title =
"PDFCreator first sample"
pdc.DocumentInfo.Author =
"Foxtable"
pdc.DocumentInfo.Subject =
"Quick Start"
pdc.DocumentInfo.Keywords =
"pdf, creating pdf, pdf files, pdfCreator"
pdc.DocumentInfo.Creator =
"狐表"
pdc.DocumentInfo.Producer =
"PDFCreator"
pdc.Save(file)
Process.Start(file)

使用第三方的PDF文档阅读软件,例如WPS、Acrobat Reader以及各种浏览器,都可以查看PDF文档的属性:


本页地址:http://www.foxtable.com/webhelp/topics/6055.htm