Wednesday, 06 April 2011 01:41
PDF Template in C#, VB.NET
The sample demonstrates how to set PDF documentaion template, page header&footer, page number and automatic page number count.
using System;
using System.Drawing;
using Spire.Pdf;
using Spire.Pdf.AutomaticFields;
using Spire.Pdf.Graphics;
namespace Template
{
class Program
{
static void Main(string[] args)
{
//Create a pdf document.
PdfDocument doc = new PdfDocument();
doc.ViewerPreferences.PageLayout = PdfPageLayout.TwoColumnLeft;
//margin
PdfUnitConvertor unitCvtr = new PdfUnitConvertor();
PdfMargins margin = new PdfMargins();
margin.Top = unitCvtr.ConvertUnits(2.54f, PdfGraphicsUnit.Centimeter, PdfGraphicsUnit.Point);
margin.Bottom = margin.Top;
margin.Left = unitCvtr.ConvertUnits(3.17f, PdfGraphicsUnit.Centimeter, PdfGraphicsUnit.Point);
margin.Right = margin.Left;
SetDocumentTemplate(doc, PdfPageSize.A4, margin);
//create section
PdfSection section = doc.Sections.Add();
section.PageSettings.Size = PdfPageSize.A4;
section.PageSettings.Margins = new PdfMargins(0);
SetSectionTemplate(section, PdfPageSize.A4, margin, "Section 1");
// Create one page
PdfNewPage page = section.Pages.Add();
//Draw page
DrawPage(page);
page = section.Pages.Add();
DrawPage(page);
page = section.Pages.Add();
DrawPage(page);
page = section.Pages.Add();
DrawPage(page);
page = section.Pages.Add();
DrawPage(page);
//Save pdf file.
doc.SaveToFile("Template.pdf");
doc.Close();
//Launching the Pdf file.
System.Diagnostics.Process.Start("Template.pdf");
}
private static void DrawPage(PdfNewPage page)
{
float pageWidth = page.Canvas.ClientSize.Width;
float y = 0;
//title
y = y + 5;
PdfBrush brush2 = new PdfSolidBrush(Color.Black);
PdfTrueTypeFont font2 = new PdfTrueTypeFont(new Font("Arial", 16f, FontStyle.Bold));
PdfStringFormat format2 = new PdfStringFormat(PdfTextAlignment.Center);
format2.CharacterSpacing = 1f;
String text = "Summary of Science";
page.Canvas.DrawString(text, font2, brush2, pageWidth / 2, y, format2);
SizeF size = font2.MeasureString(text, format2);
y = y + size.Height + 6;
//icon
PdfImage image = PdfImage.FromFile(@"Wikipedia_Science.png");
page.Canvas.DrawImage(image, new PointF(pageWidth - image.PhysicalDimension.Width, y));
float imageLeftSpace = pageWidth - image.PhysicalDimension.Width - 2;
float imageBottom = image.PhysicalDimension.Height + y;
//refenrence content
PdfTrueTypeFont font3 = new PdfTrueTypeFont(new Font("Arial", 9f));
PdfStringFormat format3 = new PdfStringFormat();
format3.ParagraphIndent = font3.Size * 2;
format3.MeasureTrailingSpaces = true;
format3.LineSpacing = font3.Size * 1.5f;
String text1 = "(All text and picture from ";
String text2 = "Wikipedia";
String text3 = ", the free encyclopedia)";
page.Canvas.DrawString(text1, font3, brush2, 0, y, format3);
size = font3.MeasureString(text1, format3);
float x1 = size.Width;
format3.ParagraphIndent = 0;
PdfTrueTypeFont font4 = new PdfTrueTypeFont(new Font("Arial", 9f, FontStyle.Underline));
PdfBrush brush3 = PdfBrushes.Blue;
page.Canvas.DrawString(text2, font4, brush3, x1, y, format3);
size = font4.MeasureString(text2, format3);
x1 = x1 + size.Width;
page.Canvas.DrawString(text3, font3, brush2, x1, y, format3);
y = y + size.Height;
//content
PdfStringFormat format4 = new PdfStringFormat();
text = System.IO.File.ReadAllText(@"Summary_of_Science.txt");
PdfTrueTypeFont font5 = new PdfTrueTypeFont(new Font("Arial", 10f));
format4.LineSpacing = font5.Size * 1.5f;
PdfStringLayouter textLayouter = new PdfStringLayouter();
float imageLeftBlockHeight = imageBottom - y;
PdfStringLayoutResult result
= textLayouter.Layout(text, font5, format4, new SizeF(imageLeftSpace, imageLeftBlockHeight));
if (result.ActualSize.Height < imageBottom - y)
{
imageLeftBlockHeight = imageLeftBlockHeight + result.LineHeight;
result = textLayouter.Layout(text, font5, format4, new SizeF(imageLeftSpace, imageLeftBlockHeight));
}
foreach (LineInfo line in result.Lines)
{
page.Canvas.DrawString(line.Text, font5, brush2, 0, y, format4);
y = y + result.LineHeight;
}
PdfTextWidget textWidget = new PdfTextWidget(result.Remainder, font5, brush2);
PdfTextLayout textLayout = new PdfTextLayout();
textLayout.Break = PdfLayoutBreakType.FitPage;
textLayout.Layout = PdfLayoutType.Paginate;
RectangleF bounds = new RectangleF(new PointF(0, y), page.Canvas.ClientSize);
textWidget.StringFormat = format4;
textWidget.Draw(page, bounds, textLayout);
}
private static void SetSectionTemplate(PdfSection section, SizeF pageSize, PdfMargins margin, string label)
{
PdfPageTemplateElement leftSpace
= new PdfPageTemplateElement(margin.Left, pageSize.Height);
leftSpace.Foreground = true;
section.Template.OddLeft = leftSpace;
PdfTrueTypeFont font = new PdfTrueTypeFont(new Font("Arial", 9f, FontStyle.Italic));
PdfStringFormat format = new PdfStringFormat(PdfTextAlignment.Center, PdfVerticalAlignment.Middle);
float y = (pageSize.Height - margin.Top - margin.Bottom) * (1 - 0.618f);
RectangleF bounds
= new RectangleF(10, y, margin.Left - 20, font.Height + 6);
leftSpace.Graphics.DrawRectangle(PdfBrushes.OrangeRed, bounds);
leftSpace.Graphics.DrawString(label, font, PdfBrushes.White, bounds, format);
PdfPageTemplateElement rightSpace
= new PdfPageTemplateElement(margin.Right, pageSize.Height);
rightSpace.Foreground = true;
section.Template.EvenRight = rightSpace;
bounds
= new RectangleF(10, y, margin.Right - 20, font.Height + 6);
rightSpace.Graphics.DrawRectangle(PdfBrushes.SaddleBrown, bounds);
rightSpace.Graphics.DrawString(label, font, PdfBrushes.White, bounds, format);
}
private static void SetDocumentTemplate(PdfDocument doc, SizeF pageSize, PdfMargins margin)
{
PdfPageTemplateElement leftSpace
= new PdfPageTemplateElement(margin.Left, pageSize.Height);
doc.Template.Left = leftSpace;
PdfPageTemplateElement topSpace
= new PdfPageTemplateElement(pageSize.Width, margin.Top);
topSpace.Foreground = true;
doc.Template.Top = topSpace;
//draw header label
PdfTrueTypeFont font = new PdfTrueTypeFont(new Font("Arial", 9f, FontStyle.Italic));
PdfStringFormat format = new PdfStringFormat(PdfTextAlignment.Right);
String label = "Demo of Spire.Pdf";
SizeF size = font.MeasureString(label, format);
float y = topSpace.Height - font.Height - 1;
PdfPen pen = new PdfPen(Color.Black, 0.75f);
topSpace.Graphics.SetTransparency(0.5f);
topSpace.Graphics.DrawLine(pen, margin.Left, y, pageSize.Width - margin.Right, y);
y = y - 1 - size.Height;
topSpace.Graphics.DrawString(label, font, PdfBrushes.Black, pageSize.Width - margin.Right, y, format);
PdfPageTemplateElement rightSpace
= new PdfPageTemplateElement(margin.Right, pageSize.Height);
doc.Template.Right = rightSpace;
PdfPageTemplateElement bottomSpace
= new PdfPageTemplateElement(pageSize.Width, margin.Bottom);
bottomSpace.Foreground = true;
doc.Template.Bottom = bottomSpace;
//draw footer label
y = font.Height + 1;
bottomSpace.Graphics.SetTransparency(0.5f);
bottomSpace.Graphics.DrawLine(pen, margin.Left, y, pageSize.Width - margin.Right, y);
y = y + 1;
PdfPageNumberField pageNumber = new PdfPageNumberField();
PdfPageCountField pageCount = new PdfPageCountField();
PdfCompositeField pageNumberLabel = new PdfCompositeField();
pageNumberLabel.AutomaticFields
= new PdfAutomaticField[] { pageNumber, pageCount };
pageNumberLabel.Brush = PdfBrushes.Black;
pageNumberLabel.Font = font;
pageNumberLabel.StringFormat = format;
pageNumberLabel.Text = "page {0} of {1}";
pageNumberLabel.Draw(bottomSpace.Graphics, pageSize.Width - margin.Right, y);
PdfImage headerImage
= PdfImage.FromFile(@"Header.png");
PointF pageLeftTop = new PointF(-margin.Left, -margin.Top);
PdfPageTemplateElement header
= new PdfPageTemplateElement(pageLeftTop, headerImage.PhysicalDimension);
header.Foreground = false;
header.Graphics.SetTransparency(0.5f);
header.Graphics.DrawImage(headerImage, 0, 0);
doc.Template.Stamps.Add(header);
PdfImage footerImage
= PdfImage.FromFile(@"Footer.png");
y = pageSize.Height - footerImage.PhysicalDimension.Height;
PointF footerLocation = new PointF(-margin.Left, y);
PdfPageTemplateElement footer
= new PdfPageTemplateElement(footerLocation, footerImage.PhysicalDimension);
footer.Foreground = false;
footer.Graphics.SetTransparency(0.5f);
footer.Graphics.DrawImage(footerImage, 0, 0);
doc.Template.Stamps.Add(footer);
}
}
}
Imports System.Drawing
Imports Spire.Pdf
Imports Spire.Pdf.Graphics
Imports System.Text
Imports Spire.Pdf.AutomaticFields
Namespace Template
Friend Class Program
Shared Sub Main(ByVal args() As String)
'Create a pdf document.
Dim doc As New PdfDocument()
doc.ViewerPreferences.PageLayout = PdfPageLayout.TwoColumnLeft
'margin
Dim unitCvtr As New PdfUnitConvertor()
Dim margin As New PdfMargins()
margin.Top = unitCvtr.ConvertUnits(2.54F, PdfGraphicsUnit.Centimeter, PdfGraphicsUnit.Point)
margin.Bottom = margin.Top
margin.Left = unitCvtr.ConvertUnits(3.17F, PdfGraphicsUnit.Centimeter, PdfGraphicsUnit.Point)
margin.Right = margin.Left
SetDocumentTemplate(doc, PdfPageSize.A4, margin)
'create section
Dim section As PdfSection = doc.Sections.Add()
section.PageSettings.Size = PdfPageSize.A4
section.PageSettings.Margins = New PdfMargins(0)
SetSectionTemplate(section, PdfPageSize.A4, margin, "Section 1")
' Create one page
Dim page As PdfNewPage = section.Pages.Add()
'Draw page
DrawPage(page)
page = section.Pages.Add()
DrawPage(page)
page = section.Pages.Add()
DrawPage(page)
page = section.Pages.Add()
DrawPage(page)
page = section.Pages.Add()
DrawPage(page)
'Save pdf file.
doc.SaveToFile("Template.pdf")
doc.Close()
'Launching the Pdf file.
Process.Start("Template.pdf")
End Sub
Private Shared Sub DrawPage(ByVal page As PdfNewPage)
Dim pageWidth As Single = page.Canvas.ClientSize.Width
Dim y As Single = 0
'title
y = y + 5
Dim brush2 As PdfBrush = New PdfSolidBrush(Color.Black)
Dim font2 As New PdfTrueTypeFont(New Font("Arial", 16.0F, FontStyle.Bold))
Dim format2 As New PdfStringFormat(PdfTextAlignment.Center)
format2.CharacterSpacing = 1.0F
Dim text As String = "Summary of Science"
page.Canvas.DrawString(text, font2, brush2, pageWidth / 2, y, format2)
Dim size As SizeF = font2.MeasureString(text, format2)
y = y + size.Height + 6
'icon
Dim image As PdfImage = PdfImage.FromFile("Wikipedia_Science.png")
page.Canvas.DrawImage(image, New PointF(pageWidth - image.PhysicalDimension.Width, y))
Dim imageLeftSpace As Single = pageWidth - image.PhysicalDimension.Width - 2
Dim imageBottom As Single = image.PhysicalDimension.Height + y
'refenrence content
Dim font3 As New PdfTrueTypeFont(New Font("Arial", 9.0F))
Dim format3 As New PdfStringFormat()
format3.ParagraphIndent = font3.Size * 2
format3.MeasureTrailingSpaces = True
format3.LineSpacing = font3.Size * 1.5F
Dim text1 As String = "(All text and picture from "
Dim text2 As String = "Wikipedia"
Dim text3 As String = ", the free encyclopedia)"
page.Canvas.DrawString(text1, font3, brush2, 0, y, format3)
size = font3.MeasureString(text1, format3)
Dim x1 As Single = size.Width
format3.ParagraphIndent = 0
Dim font4 As New PdfTrueTypeFont(New Font("Arial", 9.0F, FontStyle.Underline))
Dim brush3 As PdfBrush = PdfBrushes.Blue
page.Canvas.DrawString(text2, font4, brush3, x1, y, format3)
size = font4.MeasureString(text2, format3)
x1 = x1 + size.Width
page.Canvas.DrawString(text3, font3, brush2, x1, y, format3)
y = y + size.Height
'content
Dim format4 As New PdfStringFormat()
text = System.IO.File.ReadAllText("Summary_of_Science.txt")
Dim font5 As New PdfTrueTypeFont(New Font("Arial", 10.0F))
format4.LineSpacing = font5.Size * 1.5F
Dim textLayouter As New PdfStringLayouter()
Dim imageLeftBlockHeight As Single = imageBottom - y
Dim result As PdfStringLayoutResult _
= textLayouter.Layout(text, font5, format4, New SizeF(imageLeftSpace, imageLeftBlockHeight))
If result.ActualSize.Height < imageBottom - y Then
imageLeftBlockHeight = imageLeftBlockHeight + result.LineHeight
result = textLayouter.Layout(text, font5, format4, New SizeF(imageLeftSpace, imageLeftBlockHeight))
End If
For Each line As LineInfo In result.Lines
page.Canvas.DrawString(line.Text, font5, brush2, 0, y, format4)
y = y + result.LineHeight
Next line
Dim textWidget As New PdfTextWidget(result.Remainder, font5, brush2)
Dim textLayout As New PdfTextLayout()
textLayout.Break = PdfLayoutBreakType.FitPage
textLayout.Layout = PdfLayoutType.Paginate
Dim bounds As New RectangleF(New PointF(0, y), page.Canvas.ClientSize)
textWidget.StringFormat = format4
textWidget.Draw(page, bounds, textLayout)
End Sub
Private Shared Sub SetSectionTemplate(ByVal section As PdfSection, ByVal pageSize As SizeF, _
ByVal margin As PdfMargins, ByVal label As String)
Dim leftSpace As New PdfPageTemplateElement(margin.Left, pageSize.Height)
leftSpace.Foreground = True
section.Template.OddLeft = leftSpace
Dim font As New PdfTrueTypeFont(New Font("Arial", 9.0F, FontStyle.Italic))
Dim format As New PdfStringFormat(PdfTextAlignment.Center, PdfVerticalAlignment.Middle)
Dim y As Single = (pageSize.Height - margin.Top - margin.Bottom) * (1 - 0.618F)
Dim bounds As New RectangleF(10, y, margin.Left - 20, font.Height + 6)
leftSpace.Graphics.DrawRectangle(PdfBrushes.OrangeRed, bounds)
leftSpace.Graphics.DrawString(label, font, PdfBrushes.White, bounds, format)
Dim rightSpace As New PdfPageTemplateElement(margin.Right, pageSize.Height)
rightSpace.Foreground = True
section.Template.EvenRight = rightSpace
bounds = New RectangleF(10, y, margin.Right - 20, font.Height + 6)
rightSpace.Graphics.DrawRectangle(PdfBrushes.SaddleBrown, bounds)
rightSpace.Graphics.DrawString(label, font, PdfBrushes.White, bounds, format)
End Sub
Private Shared Sub SetDocumentTemplate(ByVal doc As PdfDocument, ByVal pageSize As SizeF, _
ByVal margin As PdfMargins)
Dim leftSpace As New PdfPageTemplateElement(margin.Left, pageSize.Height)
doc.Template.Left = leftSpace
Dim topSpace As New PdfPageTemplateElement(pageSize.Width, margin.Top)
topSpace.Foreground = True
doc.Template.Top = topSpace
'draw header label
Dim font As New PdfTrueTypeFont(New Font("Arial", 9.0F, FontStyle.Italic))
Dim format As New PdfStringFormat(PdfTextAlignment.Right)
Dim label As String = "Demo of Spire.Pdf"
Dim size As SizeF = font.MeasureString(label, format)
Dim y As Single = topSpace.Height - font.Height - 1
Dim pen As New PdfPen(Color.Black, 0.75F)
topSpace.Graphics.SetTransparency(0.5F)
topSpace.Graphics.DrawLine(pen, margin.Left, y, pageSize.Width - margin.Right, y)
y = y - 1 - size.Height
topSpace.Graphics.DrawString(label, font, PdfBrushes.Black, pageSize.Width - margin.Right, y, format)
Dim rightSpace As New PdfPageTemplateElement(margin.Right, pageSize.Height)
doc.Template.Right = rightSpace
Dim bottomSpace As New PdfPageTemplateElement(pageSize.Width, margin.Bottom)
bottomSpace.Foreground = True
doc.Template.Bottom = bottomSpace
'draw footer label
y = font.Height + 1
bottomSpace.Graphics.SetTransparency(0.5F)
bottomSpace.Graphics.DrawLine(pen, margin.Left, y, pageSize.Width - margin.Right, y)
y = y + 1
Dim pageNumber As New PdfPageNumberField()
Dim pageCount As New PdfPageCountField()
Dim pageNumberLabel As New PdfCompositeField()
pageNumberLabel.AutomaticFields = New PdfAutomaticField() {pageNumber, pageCount}
pageNumberLabel.Brush = PdfBrushes.Black
pageNumberLabel.Font = font
pageNumberLabel.StringFormat = format
pageNumberLabel.Text = "page {0} of {1}"
pageNumberLabel.Draw(bottomSpace.Graphics, pageSize.Width - margin.Right, y)
Dim headerImage As PdfImage = PdfImage.FromFile("Header.png")
Dim pageLeftTop As New PointF(-margin.Left, -margin.Top)
Dim header As New PdfPageTemplateElement(pageLeftTop, headerImage.PhysicalDimension)
header.Foreground = False
header.Graphics.SetTransparency(0.5F)
header.Graphics.DrawImage(headerImage, 0, 0)
doc.Template.Stamps.Add(header)
Dim footerImage As PdfImage = PdfImage.FromFile("Footer.png")
y = pageSize.Height - footerImage.PhysicalDimension.Height
Dim footerLocation As New PointF(-margin.Left, y)
Dim footer As New PdfPageTemplateElement(footerLocation, footerImage.PhysicalDimension)
footer.Foreground = False
footer.Graphics.SetTransparency(0.5F)
footer.Graphics.DrawImage(footerImage, 0, 0)
doc.Template.Stamps.Add(footer)
End Sub
End Class
End Namespace
Published in
Page
Tuesday, 05 April 2011 09:39
PDF Pagination in C#, VB.NET
The sample demonstrates how to paginate pages, draw page header&footer and set page label in PDF document.
using System;
using System.Collections.Generic;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using Spire.Pdf;
using Spire.Pdf.Graphics;
namespace Pagination
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
private void button1_Click(object sender, EventArgs e)
{
//Create a pdf document.
PdfDocument doc = new PdfDocument();
//margin
PdfUnitConvertor unitCvtr = new PdfUnitConvertor();
PdfMargins margin = new PdfMargins();
margin.Top = unitCvtr.ConvertUnits(2.54f, PdfGraphicsUnit.Centimeter, PdfGraphicsUnit.Point);
margin.Bottom = margin.Top;
margin.Left = unitCvtr.ConvertUnits(3.17f, PdfGraphicsUnit.Centimeter, PdfGraphicsUnit.Point);
margin.Right = margin.Left;
DrawCover(doc.Sections.Add(), margin);
DrawContent(doc.Sections.Add(), margin);
DrawPageNumber(doc.Sections[1], margin, 1, doc.Sections[1].Pages.Count);
//Save pdf file.
doc.SaveToFile("Pagination.pdf");
doc.Close();
//Launching the Pdf file.
PDFDocumentViewer("Pagination.pdf");
}
private void DrawCover(PdfSection section, PdfMargins margin)
{
section.PageNumber = new PdfPageNumber();
section.PageNumber.NumberStyle = PdfNumberStyle.LowerRoman;
section.PageNumber.Prefix = "cover ";
section.PageSettings.Size = PdfPageSize.A4;
section.PageSettings.Margins.All = 0;
PdfPageBase page = section.Pages.Add();
DrawPageHeaderAndFooter(page, margin, true);
//refenrence content
PdfBrush brush1 = PdfBrushes.LightGray;
PdfBrush brush2 = PdfBrushes.Blue;
PdfTrueTypeFont font1 = new PdfTrueTypeFont(new Font("Arial", 8f));
PdfStringFormat format = new PdfStringFormat();
format.MeasureTrailingSpaces = true;
String text1 = "(All text and picture from ";
String text2 = "Wikipedia";
String text3 = ", the free encyclopedia)";
float x = 0, y = 10;
x = x + margin.Left;
y = y + margin.Top;
page.Canvas.DrawString(text1, font1, brush1, x, y, format);
x = x + font1.MeasureString(text1, format).Width;
page.Canvas.DrawString(text2, font1, brush2, x, y, format);
x = x + font1.MeasureString(text2, format).Width;
page.Canvas.DrawString(text3, font1, brush1, x, y, format);
//cover
PdfBrush brush3 = PdfBrushes.Black;
PdfBrush brush4 = new PdfSolidBrush(new PdfRGBColor(0xf9, 0xf9, 0xf9));
PdfImage image
= PdfImage.FromFile(@"..\..\..\..\..\..\Data\SciencePersonificationBoston.jpg");
String text = Pagination.Properties.Resources.ImageDescription;
float r = image.PhysicalDimension.Height / image.Height;
PdfPen pen = new PdfPen(brush1, r);
SizeF size = font1.MeasureString(text, image.PhysicalDimension.Width - 2);
PdfTemplate template
= new PdfTemplate(image.PhysicalDimension.Width + 4 * r + 4,
image.PhysicalDimension.Height + 4 * r + 7 + size.Height);
template.Graphics.DrawRectangle(pen, brush4, 0, 0, template.Width, template.Height);
x = y = r + 2;
template.Graphics.DrawRectangle(brush1, x, y,
image.PhysicalDimension.Width + 2 * r,
image.PhysicalDimension.Height + 2 * r);
x = y = x + r;
template.Graphics.DrawImage(image, x, y);
x = x - 1;
y = y + image.PhysicalDimension.Height + r + 2;
template.Graphics.DrawString(text, font1, brush3,
new RectangleF(new PointF(x, y), size));
float x1 = (page.Canvas.ClientSize.Width - template.Width) / 2;
float y1 = (page.Canvas.ClientSize.Height - margin.Top - margin.Bottom) * (1 - 0.618f) - template.Height / 2 + margin.Top;
template.Draw(page.Canvas, x1, y1);
//title
format.Alignment = PdfTextAlignment.Center;
PdfTrueTypeFont font2 = new PdfTrueTypeFont(new Font("Arial", 24f, FontStyle.Bold));
x = page.Canvas.ClientSize.Width / 2;
y = y1 + template.Height + 10;
page.Canvas.DrawString(Pagination.Properties.Resources.Title, font2, brush3, x, y, format);
}
private void DrawContent(PdfSection section, PdfMargins margin)
{
section.PageNumber = new PdfPageNumber();
section.PageNumber.NumberStyle = PdfNumberStyle.Numeric;
section.PageNumber.Prefix = "page ";
section.PageSettings.Size = PdfPageSize.A4;
section.PageSettings.Margins.All = 0;
PdfPageBase page = section.Pages.Add();
DrawPageHeaderAndFooter(page, margin, false);
float x = margin.Left;
float y = margin.Top + 8;
float width = page.Canvas.ClientSize.Width - margin.Left - margin.Right;
PdfTrueTypeFont font1 = new PdfTrueTypeFont(new Font("Arial", 16f), true);
PdfBrush brush1 = PdfBrushes.Black;
PdfPen pen1 = new PdfPen(brush1, 0.75f);
page.Canvas.DrawString(Pagination.Properties.Resources.Title, font1, brush1, x, y);
y = y + font1.MeasureString(Pagination.Properties.Resources.Title).Height + 6;
page.Canvas.DrawLine(pen1, x, y, page.Canvas.ClientSize.Width - margin.Right, y);
y = y + 1.75f;
String content = Pagination.Properties.Resources.Content;
String[] lines
= content.Split(new char[] { '\r', '\n' }, StringSplitOptions.RemoveEmptyEntries);
PdfTrueTypeFont font2 = new PdfTrueTypeFont(new Font("Arial", 10f, FontStyle.Italic), true);
PdfStringFormat format1 = new PdfStringFormat();
format1.MeasureTrailingSpaces = true;
format1.LineSpacing = font2.Height * 1.5f;
format1.ParagraphIndent = font2.MeasureString("\t", format1).Width;
y = y + font2.Height * 0.5f;
SizeF size = font2.MeasureString(lines[0], width, format1);
page.Canvas.DrawString(lines[0], font2, brush1,
new RectangleF(new PointF(x, y), size), format1);
y = y + size.Height;
PdfTrueTypeFont font3 = new PdfTrueTypeFont(new Font("Arial", 10f), true);
PdfStringFormat format2 = new PdfStringFormat();
format2.LineSpacing = font3.Height * 1.4f;
format2.MeasureTrailingSpaces = true;
size = font3.MeasureString(lines[1], width, format2);
page.Canvas.DrawString(lines[1], font3, brush1,
new RectangleF(new PointF(x, y), size), format2);
y = y + size.Height;
y = y + font3.Height * 0.75f;
float indent = font3.MeasureString("\t\t", format2).Width;
float x1 = x + indent;
size = font3.MeasureString(lines[2], width - indent, format2);
page.Canvas.DrawString(lines[2], font3, brush1,
new RectangleF(new PointF(x1, y), size), format2);
y = y + size.Height + font3.Height * 0.75f;
StringBuilder buff = new StringBuilder();
for (int i = 3; i < lines.Length; i++)
{
buff.AppendLine(lines[i]);
}
content = buff.ToString();
PdfStringLayouter textLayouter = new PdfStringLayouter();
PdfStringLayoutResult result
= textLayouter.Layout(content, font3, format2, new SizeF(width, float.MaxValue));
foreach (LineInfo line in result.Lines)
{
if ((line.LineType & LineType.FirstParagraphLine) == LineType.FirstParagraphLine)
{
y = y + font3.Height * 0.75f;
}
if (y > (page.Canvas.ClientSize.Height - margin.Bottom - result.LineHeight))
{
page = section.Pages.Add();
DrawPageHeaderAndFooter(page, margin, false);
y = margin.Top;
}
page.Canvas.DrawString(line.Text, font3, brush1, x, y, format2);
y = y + result.LineHeight;
}
}
private void DrawPageHeaderAndFooter(PdfPageBase page, PdfMargins margin, bool isCover)
{
page.Canvas.SetTransparency(0.5f);
PdfImage headerImage
= PdfImage.FromFile(@"..\..\..\..\..\..\Data\Header.png");
PdfImage footerImage
= PdfImage.FromFile(@"..\..\..\..\..\..\Data\Footer.png");
page.Canvas.DrawImage(headerImage, new PointF(0, 0));
page.Canvas.DrawImage(footerImage, new PointF(0, page.Canvas.ClientSize.Height - footerImage.PhysicalDimension.Height));
if (isCover)
{
page.Canvas.SetTransparency(1);
return;
}
PdfBrush brush = PdfBrushes.Black;
PdfPen pen = new PdfPen(brush, 0.75f);
PdfTrueTypeFont font = new PdfTrueTypeFont(new Font("Arial", 9f, FontStyle.Italic), true);
PdfStringFormat format = new PdfStringFormat(PdfTextAlignment.Right);
format.MeasureTrailingSpaces = true;
float space = font.Height * 0.75f;
float x = margin.Left;
float width = page.Canvas.ClientSize.Width - margin.Left - margin.Right;
float y = margin.Top - space;
page.Canvas.DrawLine(pen, x, y, x + width, y);
y = y - 1 - font.Height;
page.Canvas.DrawString("Demo of Spire.Pdf", font, brush, x + width, y, format);
page.Canvas.SetTransparency(1);
}
private void DrawPageNumber(PdfSection section, PdfMargins margin, int startNumber, int pageCount)
{
foreach (PdfPageBase page in section.Pages)
{
page.Canvas.SetTransparency(0.5f);
PdfBrush brush = PdfBrushes.Black;
PdfPen pen = new PdfPen(brush, 0.75f);
PdfTrueTypeFont font = new PdfTrueTypeFont(new Font("Arial", 9f, FontStyle.Italic), true);
PdfStringFormat format = new PdfStringFormat(PdfTextAlignment.Right);
format.MeasureTrailingSpaces = true;
float space = font.Height * 0.75f;
float x = margin.Left;
float width = page.Canvas.ClientSize.Width - margin.Left - margin.Right;
float y = page.Canvas.ClientSize.Height - margin.Bottom + space;
page.Canvas.DrawLine(pen, x, y, x + width, y);
y = y + 1;
String numberLabel
= String.Format("{0} of {1}", startNumber++, pageCount);
page.Canvas.DrawString(numberLabel, font, brush, x + width, y, format);
page.Canvas.SetTransparency(1);
}
}
private void PDFDocumentViewer(string fileName)
{
try
{
System.Diagnostics.Process.Start(fileName);
}
catch { }
}
}
}
Imports System.Collections.Generic
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Imports Spire.Pdf
Imports Spire.Pdf.Graphics
Namespace Pagination
Public Partial Class Form1
Inherits Form
Public Sub New()
InitializeComponent()
End Sub
Private Sub button1_Click(sender As Object, e As EventArgs)
'Create a pdf document.
Dim doc As New PdfDocument()
'margin
Dim unitCvtr As New PdfUnitConvertor()
Dim margin As New PdfMargins()
margin.Top = unitCvtr.ConvertUnits(2.54F, PdfGraphicsUnit.Centimeter, PdfGraphicsUnit.Point)
margin.Bottom = margin.Top
margin.Left = unitCvtr.ConvertUnits(3.17F, PdfGraphicsUnit.Centimeter, PdfGraphicsUnit.Point)
margin.Right = margin.Left
DrawCover(doc.Sections.Add(), margin)
DrawContent(doc.Sections.Add(), margin)
DrawPageNumber(doc.Sections(1), margin, 1, doc.Sections(1).Pages.Count)
'Save pdf file.
doc.SaveToFile("Pagination.pdf")
doc.Close()
'Launching the Pdf file.
PDFDocumentViewer("Pagination.pdf")
End Sub
Private Sub DrawCover(section As PdfSection, margin As PdfMargins)
section.PageNumber = New PdfPageNumber()
section.PageNumber.NumberStyle = PdfNumberStyle.LowerRoman
section.PageNumber.Prefix = "cover "
section.PageSettings.Size = PdfPageSize.A4
section.PageSettings.Margins.All = 0
Dim page As PdfPageBase = section.Pages.Add()
DrawPageHeaderAndFooter(page, margin, True)
'refenrence content
Dim brush1 As PdfBrush = PdfBrushes.LightGray
Dim brush2 As PdfBrush = PdfBrushes.Blue
Dim font1 As New PdfTrueTypeFont(New Font("Arial", 8F))
Dim format As New PdfStringFormat()
format.MeasureTrailingSpaces = True
Dim text1 As [String] = "(All text and picture from "
Dim text2 As [String] = "Wikipedia"
Dim text3 As [String] = ", the free encyclopedia)"
Dim x As Single = 0, y As Single = 10
x = x + margin.Left
y = y + margin.Top
page.Canvas.DrawString(text1, font1, brush1, x, y, format)
x = x + font1.MeasureString(text1, format).Width
page.Canvas.DrawString(text2, font1, brush2, x, y, format)
x = x + font1.MeasureString(text2, format).Width
page.Canvas.DrawString(text3, font1, brush1, x, y, format)
'cover
Dim brush3 As PdfBrush = PdfBrushes.Black
Dim brush4 As PdfBrush = New PdfSolidBrush(New PdfRGBColor(&Hf9, &Hf9, &Hf9))
Dim image As PdfImage = PdfImage.FromFile("..\..\..\..\..\..\Data\SciencePersonificationBoston.jpg")
Dim text As [String] = Pagination.Properties.Resources.ImageDescription
Dim r As Single = image.PhysicalDimension.Height / image.Height
Dim pen As New PdfPen(brush1, r)
Dim size As SizeF = font1.MeasureString(text, image.PhysicalDimension.Width - 2)
Dim template As New PdfTemplate(image.PhysicalDimension.Width + 4 * r + 4, image.PhysicalDimension.Height + 4 * r + 7 + size.Height)
template.Graphics.DrawRectangle(pen, brush4, 0, 0, template.Width, template.Height)
x = InlineAssignHelper(y, r + 2)
template.Graphics.DrawRectangle(brush1, x, y, image.PhysicalDimension.Width + 2 * r, image.PhysicalDimension.Height + 2 * r)
x = InlineAssignHelper(y, x + r)
template.Graphics.DrawImage(image, x, y)
x = x - 1
y = y + image.PhysicalDimension.Height + r + 2
template.Graphics.DrawString(text, font1, brush3, New RectangleF(New PointF(x, y), size))
Dim x1 As Single = (page.Canvas.ClientSize.Width - template.Width) / 2
Dim y1 As Single = (page.Canvas.ClientSize.Height - margin.Top - margin.Bottom) * (1 - 0.618F) - template.Height / 2 + margin.Top
template.Draw(page.Canvas, x1, y1)
'title
format.Alignment = PdfTextAlignment.Center
Dim font2 As New PdfTrueTypeFont(New Font("Arial", 24F, FontStyle.Bold))
x = page.Canvas.ClientSize.Width / 2
y = y1 + template.Height + 10
page.Canvas.DrawString(Pagination.Properties.Resources.Title, font2, brush3, x, y, format)
End Sub
Private Sub DrawContent(section As PdfSection, margin As PdfMargins)
section.PageNumber = New PdfPageNumber()
section.PageNumber.NumberStyle = PdfNumberStyle.Numeric
section.PageNumber.Prefix = "page "
section.PageSettings.Size = PdfPageSize.A4
section.PageSettings.Margins.All = 0
Dim page As PdfPageBase = section.Pages.Add()
DrawPageHeaderAndFooter(page, margin, False)
Dim x As Single = margin.Left
Dim y As Single = margin.Top + 8
Dim width As Single = page.Canvas.ClientSize.Width - margin.Left - margin.Right
Dim font1 As New PdfTrueTypeFont(New Font("Arial", 16F), True)
Dim brush1 As PdfBrush = PdfBrushes.Black
Dim pen1 As New PdfPen(brush1, 0.75F)
page.Canvas.DrawString(Pagination.Properties.Resources.Title, font1, brush1, x, y)
y = y + font1.MeasureString(Pagination.Properties.Resources.Title).Height + 6
page.Canvas.DrawLine(pen1, x, y, page.Canvas.ClientSize.Width - margin.Right, y)
y = y + 1.75F
Dim content As [String] = Pagination.Properties.Resources.Content
Dim lines As [String]() = content.Split(New Char() {ControlChars.Cr, ControlChars.Lf}, StringSplitOptions.RemoveEmptyEntries)
Dim font2 As New PdfTrueTypeFont(New Font("Arial", 10F, FontStyle.Italic), True)
Dim format1 As New PdfStringFormat()
format1.MeasureTrailingSpaces = True
format1.LineSpacing = font2.Height * 1.5F
format1.ParagraphIndent = font2.MeasureString(vbTab, format1).Width
y = y + font2.Height * 0.5F
Dim size As SizeF = font2.MeasureString(lines(0), width, format1)
page.Canvas.DrawString(lines(0), font2, brush1, New RectangleF(New PointF(x, y), size), format1)
y = y + size.Height
Dim font3 As New PdfTrueTypeFont(New Font("Arial", 10F), True)
Dim format2 As New PdfStringFormat()
format2.LineSpacing = font3.Height * 1.4F
format2.MeasureTrailingSpaces = True
size = font3.MeasureString(lines(1), width, format2)
page.Canvas.DrawString(lines(1), font3, brush1, New RectangleF(New PointF(x, y), size), format2)
y = y + size.Height
y = y + font3.Height * 0.75F
Dim indent As Single = font3.MeasureString(vbTab & vbTab, format2).Width
Dim x1 As Single = x + indent
size = font3.MeasureString(lines(2), width - indent, format2)
page.Canvas.DrawString(lines(2), font3, brush1, New RectangleF(New PointF(x1, y), size), format2)
y = y + size.Height + font3.Height * 0.75F
Dim buff As New StringBuilder()
For i As Integer = 3 To lines.Length - 1
buff.AppendLine(lines(i))
Next
content = buff.ToString()
Dim textLayouter As New PdfStringLayouter()
Dim result As PdfStringLayoutResult = textLayouter.Layout(content, font3, format2, New SizeF(width, Single.MaxValue))
For Each line As LineInfo In result.Lines
If (line.LineType And LineType.FirstParagraphLine) = LineType.FirstParagraphLine Then
y = y + font3.Height * 0.75F
End If
If y > (page.Canvas.ClientSize.Height - margin.Bottom - result.LineHeight) Then
page = section.Pages.Add()
DrawPageHeaderAndFooter(page, margin, False)
y = margin.Top
End If
page.Canvas.DrawString(line.Text, font3, brush1, x, y, format2)
y = y + result.LineHeight
Next
End Sub
Private Sub DrawPageHeaderAndFooter(page As PdfPageBase, margin As PdfMargins, isCover As Boolean)
page.Canvas.SetTransparency(0.5F)
Dim headerImage As PdfImage = PdfImage.FromFile("..\..\..\..\..\..\Data\Header.png")
Dim footerImage As PdfImage = PdfImage.FromFile("..\..\..\..\..\..\Data\Footer.png")
page.Canvas.DrawImage(headerImage, New PointF(0, 0))
page.Canvas.DrawImage(footerImage, New PointF(0, page.Canvas.ClientSize.Height - footerImage.PhysicalDimension.Height))
If isCover Then
page.Canvas.SetTransparency(1)
Return
End If
Dim brush As PdfBrush = PdfBrushes.Black
Dim pen As New PdfPen(brush, 0.75F)
Dim font As New PdfTrueTypeFont(New Font("Arial", 9F, FontStyle.Italic), True)
Dim format As New PdfStringFormat(PdfTextAlignment.Right)
format.MeasureTrailingSpaces = True
Dim space As Single = font.Height * 0.75F
Dim x As Single = margin.Left
Dim width As Single = page.Canvas.ClientSize.Width - margin.Left - margin.Right
Dim y As Single = margin.Top - space
page.Canvas.DrawLine(pen, x, y, x + width, y)
y = y - 1 - font.Height
page.Canvas.DrawString("Demo of Spire.Pdf", font, brush, x + width, y, format)
page.Canvas.SetTransparency(1)
End Sub
Private Sub DrawPageNumber(section As PdfSection, margin As PdfMargins, startNumber As Integer, pageCount As Integer)
For Each page As PdfPageBase In section.Pages
page.Canvas.SetTransparency(0.5F)
Dim brush As PdfBrush = PdfBrushes.Black
Dim pen As New PdfPen(brush, 0.75F)
Dim font As New PdfTrueTypeFont(New Font("Arial", 9F, FontStyle.Italic), True)
Dim format As New PdfStringFormat(PdfTextAlignment.Right)
format.MeasureTrailingSpaces = True
Dim space As Single = font.Height * 0.75F
Dim x As Single = margin.Left
Dim width As Single = page.Canvas.ClientSize.Width - margin.Left - margin.Right
Dim y As Single = page.Canvas.ClientSize.Height - margin.Bottom + space
page.Canvas.DrawLine(pen, x, y, x + width, y)
y = y + 1
Dim numberLabel As [String] = [String].Format("{0} of {1}", System.Math.Max(System.Threading.Interlocked.Increment(startNumber),startNumber - 1), pageCount)
page.Canvas.DrawString(numberLabel, font, brush, x + width, y, format)
page.Canvas.SetTransparency(1)
Next
End Sub
Private Sub PDFDocumentViewer(fileName As String)
Try
System.Diagnostics.Process.Start(fileName)
Catch
End Try
End Sub
Private Shared Function InlineAssignHelper(Of T)(ByRef target As T, value As T) As T
target = value
Return value
End Function
End Class
End Namespace
Published in
Page
Tuesday, 05 April 2011 09:25
PDF TextLayout in C#, VB.NET
using System;
using System.Drawing;
using Spire.Pdf;
using Spire.Pdf.Graphics;
namespace TextLayout
{
class Program
{
static void Main(string[] args)
{
//Create a pdf document.
PdfDocument doc = new PdfDocument();
// Create one page
PdfPageBase page = doc.Pages.Add();
float pageWidth = page.Canvas.ClientSize.Width;
float y = 0;
//page header
PdfPen pen1 = new PdfPen(Color.LightGray, 1f);
PdfBrush brush1 = new PdfSolidBrush(Color.LightGray);
PdfTrueTypeFont font1 = new PdfTrueTypeFont(new Font("Arial", 8f, FontStyle.Italic));
PdfStringFormat format1 = new PdfStringFormat(PdfTextAlignment.Right);
String text = "Demo of Spire.Pdf";
page.Canvas.DrawString(text, font1, brush1, pageWidth, y, format1);
SizeF size = font1.MeasureString(text, format1);
y = y + size.Height + 1;
page.Canvas.DrawLine(pen1, 0, y, pageWidth, y);
//title
y = y + 5;
PdfBrush brush2 = new PdfSolidBrush(Color.Black);
PdfTrueTypeFont font2 = new PdfTrueTypeFont(new Font("Arial", 16f, FontStyle.Bold));
PdfStringFormat format2 = new PdfStringFormat(PdfTextAlignment.Center);
format2.CharacterSpacing = 1f;
text = "Summary of Science";
page.Canvas.DrawString(text, font2, brush2, pageWidth / 2, y, format2);
size = font2.MeasureString(text, format2);
y = y + size.Height + 6;
//icon
PdfImage image = PdfImage.FromFile("Wikipedia_Science.png");
page.Canvas.DrawImage(image, new PointF(pageWidth - image.PhysicalDimension.Width, y));
float imageLeftSpace = pageWidth - image.PhysicalDimension.Width - 2;
float imageBottom = image.PhysicalDimension.Height + y;
//refenrence content
PdfTrueTypeFont font3 = new PdfTrueTypeFont(new Font("Arial", 9f));
PdfStringFormat format3 = new PdfStringFormat();
format3.ParagraphIndent = font3.Size * 2;
format3.MeasureTrailingSpaces = true;
format3.LineSpacing = font3.Size * 1.5f;
String text1 = "(All text and picture from ";
String text2 = "Wikipedia";
String text3 = ", the free encyclopedia)";
page.Canvas.DrawString(text1, font3, brush2, 0, y, format3);
size = font3.MeasureString(text1, format3);
float x1 = size.Width;
format3.ParagraphIndent = 0;
PdfTrueTypeFont font4 = new PdfTrueTypeFont(new Font("Arial", 9f, FontStyle.Underline));
PdfBrush brush3 = PdfBrushes.Blue;
page.Canvas.DrawString(text2, font4, brush3, x1, y, format3);
size = font4.MeasureString(text2, format3);
x1 = x1 + size.Width;
page.Canvas.DrawString(text3, font3, brush2, x1, y, format3);
y = y + size.Height;
//content
PdfStringFormat format4 = new PdfStringFormat();
text = System.IO.File.ReadAllText("Summary_of_Science.txt");
PdfTrueTypeFont font5 = new PdfTrueTypeFont(new Font("Arial", 10f));
format4.LineSpacing = font5.Size * 1.5f;
PdfStringLayouter textLayouter = new PdfStringLayouter();
float imageLeftBlockHeight = imageBottom - y;
PdfStringLayoutResult result
= textLayouter.Layout(text, font5, format4, new SizeF(imageLeftSpace, imageLeftBlockHeight));
if (result.ActualSize.Height < imageBottom - y)
{
imageLeftBlockHeight = imageLeftBlockHeight + result.LineHeight;
result = textLayouter.Layout(text, font5, format4, new SizeF(imageLeftSpace, imageLeftBlockHeight));
}
foreach (LineInfo line in result.Lines)
{
page.Canvas.DrawString(line.Text, font5, brush2, 0, y, format4);
y = y + result.LineHeight;
}
PdfTextWidget textWidget = new PdfTextWidget(result.Remainder, font5, brush2);
PdfTextLayout textLayout = new PdfTextLayout();
textLayout.Break = PdfLayoutBreakType.FitPage;
textLayout.Layout = PdfLayoutType.Paginate;
RectangleF bounds = new RectangleF(new PointF(0, y), page.Canvas.ClientSize);
textWidget.StringFormat = format4;
textWidget.Draw(page, bounds, textLayout);
//Save pdf file.
doc.SaveToFile("TextLayout.pdf");
doc.Close();
//Launching the Pdf file.
System.Diagnostics.Process.Start("TextLayout.pdf");
}
}
}
Imports System.Drawing
Imports Spire.Pdf
Imports Spire.Pdf.Graphics
Namespace TextLayout
Friend Class Program
Shared Sub Main(ByVal args() As String)
'Create a pdf document.
Dim doc As New PdfDocument()
' Create one page
Dim page As PdfPageBase = doc.Pages.Add()
Dim pageWidth As Single = page.Canvas.ClientSize.Width
Dim y As Single = 0
'page header
Dim pen1 As New PdfPen(Color.LightGray, 1.0F)
Dim brush1 As PdfBrush = New PdfSolidBrush(Color.LightGray)
Dim font1 As New PdfTrueTypeFont(New Font("Arial", 8.0F, FontStyle.Italic))
Dim format1 As New PdfStringFormat(PdfTextAlignment.Right)
Dim text As String = "Demo of Spire.Pdf"
page.Canvas.DrawString(text, font1, brush1, pageWidth, y, format1)
Dim size As SizeF = font1.MeasureString(text, format1)
y = y + size.Height + 1
page.Canvas.DrawLine(pen1, 0, y, pageWidth, y)
'title
y = y + 5
Dim brush2 As PdfBrush = New PdfSolidBrush(Color.Black)
Dim font2 As New PdfTrueTypeFont(New Font("Arial", 16.0F, FontStyle.Bold))
Dim format2 As New PdfStringFormat(PdfTextAlignment.Center)
format2.CharacterSpacing = 1.0F
text = "Summary of Science"
page.Canvas.DrawString(text, font2, brush2, pageWidth / 2, y, format2)
size = font2.MeasureString(text, format2)
y = y + size.Height + 6
'icon
Dim image As PdfImage = PdfImage.FromFile("Wikipedia_Science.png")
page.Canvas.DrawImage(image, New PointF(pageWidth - image.PhysicalDimension.Width, y))
Dim imageLeftSpace As Single = pageWidth - image.PhysicalDimension.Width - 2
Dim imageBottom As Single = image.PhysicalDimension.Height + y
'refenrence content
Dim font3 As New PdfTrueTypeFont(New Font("Arial", 9.0F))
Dim format3 As New PdfStringFormat()
format3.ParagraphIndent = font3.Size * 2
format3.MeasureTrailingSpaces = True
format3.LineSpacing = font3.Size * 1.5F
Dim text1 As String = "(All text and picture from "
Dim text2 As String = "Wikipedia"
Dim text3 As String = ", the free encyclopedia)"
page.Canvas.DrawString(text1, font3, brush2, 0, y, format3)
size = font3.MeasureString(text1, format3)
Dim x1 As Single = size.Width
format3.ParagraphIndent = 0
Dim font4 As New PdfTrueTypeFont(New Font("Arial", 9.0F, FontStyle.Underline))
Dim brush3 As PdfBrush = PdfBrushes.Blue
page.Canvas.DrawString(text2, font4, brush3, x1, y, format3)
size = font4.MeasureString(text2, format3)
x1 = x1 + size.Width
page.Canvas.DrawString(text3, font3, brush2, x1, y, format3)
y = y + size.Height
'content
Dim format4 As New PdfStringFormat()
text = System.IO.File.ReadAllText("Summary_of_Science.txt")
Dim font5 As New PdfTrueTypeFont(New Font("Arial", 10.0F))
format4.LineSpacing = font5.Size * 1.5F
Dim textLayouter As New PdfStringLayouter()
Dim imageLeftBlockHeight As Single = imageBottom - y
Dim result As PdfStringLayoutResult _
= textLayouter.Layout(text, font5, format4, New SizeF(imageLeftSpace, imageLeftBlockHeight))
If result.ActualSize.Height < imageBottom - y Then
imageLeftBlockHeight = imageLeftBlockHeight + result.LineHeight
result = textLayouter.Layout(text, font5, format4, New SizeF(imageLeftSpace, imageLeftBlockHeight))
End If
For Each line As LineInfo In result.Lines
page.Canvas.DrawString(line.Text, font5, brush2, 0, y, format4)
y = y + result.LineHeight
Next line
Dim textWidget As New PdfTextWidget(result.Remainder, font5, brush2)
Dim textLayout As New PdfTextLayout()
textLayout.Break = PdfLayoutBreakType.FitPage
textLayout.Layout = PdfLayoutType.Paginate
Dim bounds As New RectangleF(New PointF(0, y), page.Canvas.ClientSize)
textWidget.StringFormat = format4
textWidget.Draw(page, bounds, textLayout)
'Save pdf file.
doc.SaveToFile("TextLayout.pdf")
doc.Close()
'Launching the Pdf file.
Process.Start("TextLayout.pdf")
End Sub
End Class
End Namespace
Published in
Formating