'' 完毕:
Imports System.IO
Imports System.Drawing
Imports GrapeCity.Documents.Pdf
Imports GrapeCity.Documents.Text
'' 创建一个最简单的方法之一
'' “你好世界!”使用 GcDocs.Pdf 生成 PDF。
Public Class HelloWorld
Sub CreatePDF(ByVal stream As Stream)
'' 创建一个新的 PDF 文档:
Dim doc = New GcPdfDocument()
'' 添加一个页面,获取其图形:
Dim g = doc.NewPage().Graphics
'' 在页面上绘制一条字符串。
'' 笔记:
'' - GcDocs.Pdf 页面坐标从左上角开始,默认使用 72 dpi。
'' - 使用标准字体(GcDocs.Pdf 中内置了 14 种标准 PDF 字体
'' 并且始终可用):
g.DrawString(
"Hello, World!",
New TextFormat With {
.Font = StandardFonts.Times,
.FontSize = 12
},
New PointF(72, 72))
'' 保存 PDF:
doc.Save(stream)
End Sub
End Class