快速入门
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)
'绘制字符串
pdc.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)
'绘制字符串
pdc.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文档的属性: