PageSize.vb
- '' 完毕:
- Imports System.IO
- Imports System.Drawing
- Imports GrapeCity.Documents.Common
- Imports GrapeCity.Documents.Pdf
- Imports GrapeCity.Documents.Text
-
- '' 演示如何在 GcDocs.Pdf 中更改页面大小和方向。
- Public Class PageSize
- Sub CreatePDF(ByVal stream As Stream)
- Dim in2mm = 72.0F / 25.4F
- Dim colorOrig = Color.Red
- Dim colorNew = Color.Blue
- Dim doc = New GcPdfDocument()
- '' 默认页面尺寸为 Letter (8 1/2" x 11"),纵向:
- Dim page = doc.NewPage()
- Dim sOrigPageInfo = $"Original page size: {page.Size} pts ({page.Size.Width / 72.0F}"" * {page.Size.Height / 72.0F}""),{vbCrLf}" +
- $"paper kind: {page.PaperKind}, landscape: {page.Landscape}."
- '' 保存原始页面边界:
- Dim rOrig = page.Bounds
- '' 更改页面参数:
- page.Landscape = True
- page.PaperKind = PaperKind.A4
- Dim sNewPageInfo = $"New page size: {page.Size} pts ({page.Size.Width / 72.0F}"" * {page.Size.Height / 72.0F}""),{vbCrLf}" +
- $"paper kind: {page.PaperKind}, landscape: {page.Landscape}."
- '' 新页面边界:
- Dim rNew = page.Bounds
- '' 绘制原始页面边界和新页面边界:
- page.Graphics.DrawRectangle(rOrig, colorOrig, 6)
- page.Graphics.DrawRectangle(rNew, colorNew, 6)
- '' 绘制原始和新的页面信息:
- Dim tf = New TextFormat() With {
- .Font = StandardFonts.Times,
- .FontSize = 14,
- .ForeColor = colorOrig
- }
- page.Graphics.DrawString(sOrigPageInfo, tf, New PointF(72, 72))
- tf.ForeColor = colorNew
- page.Graphics.DrawString(sNewPageInfo, tf, New PointF(72, 72 * 2))
- '' 完毕:
- doc.Save(stream)
- End Sub
- End Class
-