保存为HTML

PDFCreator可以将内容保存为网页，为提高兼容性，可以将PDFCreator的ConformanceLevel属性设置为PdfA1b。

例如：

Dim pdc As New PDFCreator()
pdc.ConformanceLevel = PDF.PdfAConformanceLevel.PdfA1b '提高兼容性
Dim rect As RectangleF = pdc.PageRectangle()
rect.Inflate( - 72, - 72)
Dim fnt As New Font("微软雅黑", 12)
pdc.DrawString("Hello Foxtable!", fnt, Brushes.Black, rect)
Dim file As String = "c:\temp\test.html"
pdc.SaveToHtmL(file) '保存为网页
Process.Start(file) '打开网页

我测试了几个复杂的例子，导出效果还不错，不过一定要加上这行代码提高兼容性：

pdc.ConformanceLevel = PDF.PdfAConformanceLevel.PdfA1b '提高兼容性

示例

请先打开CaseStyudy目录下的文件"PDFCreator示例.Table"后再运行下面的示例代码。

这个例子来自合并单元格实战，不过这次打印所有员工，并最后以网页的形式输出：

'定义一个二维数组，一个元素对应一个单元格
Dim cells(, )As String = {
{"1", "1", "1", "1", "5,1"},
{"1", "1", "1", "1", "0"},
{"1", "1", "1", "1", "0"},
{"1", "1,3", "0", "0", "0"},
{"1", "1", "1", "1", "0"},
{"1,5", "0", "0", "0", "0"}
}
'定义一个二维数组，用于表示单元格内容
Dim contents(, ) As String = {
{"姓名", "[姓名]", "出生日期", "[出生日期]", "{照片}"},
{"部门", "[部门]", "雇佣日期", "[雇佣日期]", ""},
{"性别", "[性别]", "职务", "[职务]", ""},
{"地址", "[地址]", "", "", ""},
{"家庭电话", "[家庭电话]", "办公电话", "[办公电话]", ""},
{"[备注]", "", "", "", ""}
}
Dim defaultRowHeight As Integer = 28 '默认(单倍)行高
Dim colWidths() As Double = {54, 128, 54, 128, 124} '各列宽度
Dim rowTimes() As Integer = {1, 1, 1, 1, 1, 3} '各行的行高倍数，第6行为3倍行高，其他为默认(单倍)行高
'下面的代码是通用的，不管表格如何变化，你基本都不需要修改代码，只需修改前面的各数组即可：
Dim file As String = "c:\temp\test.html"
Dim pdc As New PDFCreator()
pdc.ConformanceLevel = PDF.PdfAConformanceLevel.PdfA1b '这一行必须加上
Dim rectPage As RectangleF = pdc.PageRectangle
rectPage.Inflate( - 72, - 72)
pdc.Pages.Clear()
For Each tRow As Row In Tables("员工").Rows
    pdc.NewPage()
    '绘制标题
    Dim title As String = "员工资料卡"
    Dim titleFont As New Font("宋体", 16, fontstyle.Bold)
    Dim sf As New StringFormat()
    sf.Alignment = StringAlignment.Center
    pdc.DrawString(title, titlefont, color.Black, rectpage, sf)
    Dim rectCell As RectangleF = rectPage
    '绘制表格
    rectCell.Y = rectCell.Y + pdc.MeasureString(title, titleFont, rectPage.Width).Height + 15 '标题之后15磅为表格
    Dim contentFont As New Font("宋体", 10)
    sf.Alignment = StringAlignment.Near '单元格内容水平靠左
    For r As Integer = 0 To cells.GetLength(0) - 1 '逐行绘制
        For c As Integer = 0 To cells.GetLength(1) - 1 '绘制这一行的单元格
            Dim ifo As String = cells(r, c)
            Dim cellHeight As Double = 0 '单元格高度
            Dim cellWidth As Double = 0 '单元格宽度
            sf.LineAlignment = StringAlignment.Center '单元格内容默认垂直居中
            If rowTimes(r) > 1 Then
                sf.LineAlignment = StringAlignment.Near '如果多倍行高，则单元格内容垂直靠上对齐
            End If
            If ifo = "0" OrElse ifo = "1" Then
                cellHeight = defaultRowHeight * rowTimes(r) '根据行高倍数计算单元格高度
                cellWidth = colWidths(c) '取列宽为单元格宽度
            Else '如果是合并单元格
                Dim vls() As String = cells(r, c).Split(",")
                For mr As Integer = r To r + CInt(vls(0)) - 1 '根据合并行数计算单元格高度
                    cellHeight = cellHeight + defaultRowHeight * rowTimes(mr)
                Next
                For mc As Integer = c To c + CInt(vls(1)) - 1 '根据合并列数计算单元格宽度
                    cellWidth = cellWidth + colWidths(mc)
                Next
            End If
            If ifo <> "0" Then '绘制单元格
                rectCell.Height = cellHeight
                rectCell.Width = cellWidth
                Dim content As String = contents(r, c) '从二维数组获取单元格内容
                If content > "" Then '如果有内容
                    Dim rectContent As RectangleF = rectCell
                    rectContent.Inflate( - 3, - 3) '单元格内容边距为3磅
                    If content.StartsWith("[") AndAlso content.EndsWith("]") Then '如果是[列名]格式
                        content = tRow(content.Trim("[", "]")) '获取列内容，注意先要去掉首尾的方括号
                    End If
                    If content.StartsWith("{") AndAlso content.EndsWith("}") Then '如果是{列名}格式
                        Dim img As Image = GetImage(tRow(content.Trim("{", "}"))) '获取图片，注意先要去掉首尾的大括号
                        pdc.DrawImage(img, rectContent, ContentAlignment.MiddleCenter, PDF.ImageSizeModeEnum.Scale) '绘制图片
                    Else
                        pdc.DrawString(content, contentFont, color.Black, rectContent, sf) '绘制单元格文本
                    End If
                End If
                pdc.DrawRectangle(pens.Black, rectCell) '绘制单元格边框
            End If
            rectCell.Offset(colWidths(c), 0) '右移单元格
        Next
        rectCell.Offset(0, defaultRowHeight * rowTimes(r)) '移到下一行
        rectCell.X = rectPage.X '单元格回到水平初始位置，准备绘制下一行
    Next
Next
pdc.SaveToHtmL(file) '保存文件
Process.Start(file) '打开文件

生成的网页如下，效果不错，还自带导航栏：