页面设置

PDFCreator有个Pages集合。

可以用Pages集合的Add方法增加页面，例如：

pdc.Pages.Add()

或者直接：

pdc.NewPage()

可以通过PaperKind属性设置页面类型：

pdc.PaperKind = Drawing.Printing.PaperKind.A4

可以通过PageSize属性自定义页面大小：

pdc.PageSize = New Size(500, 800)

示例

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

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("宋体", 56)
pdc.PaperKind = Drawing.Printing.PaperKind.A4 '第一页为A4
pdc.DrawString("第一页(A4)", fnt, Brushes.Black, rect) '绘制字符串
pdc.Pages.Add() '增加页面
pdc.PaperKind = Drawing.Printing.PaperKind.B5 '第二页为B5
pdc.Landscape = True '设置横向
pdc.DrawString("第二页(B5横向)", fnt, Brushes.Black, rect) '绘制字符串
pdc.NewPage() '增加页面
pdc.PageSize = New Size(500, 800) '第三页为自定义纸张
pdc.DrawString("第三页(自定义)", fnt, Brushes.Black, rect) '绘制字符串
pdc.Save(file) '保存文 件
Process.Start(file) '显示文件

生成的文档为：

单位换算

PDFCreator以磅为单位，一英寸为72磅，一英寸为2.54厘米。

例如你要自定义一个宽为12厘米，高为15厘米的纸张，代码为：

pdc.PageSize = New Size(12 / 2.54 * 72, 15 / 2.54 * 72)