Text Width differs for printdocument & itextsharp

Question

0.00/5 (No votes)

See more:

I want to measure the width of a string in printdocument & itextSharp, it shows different width,
Printdocument shows 363.5 points & Itextsharp shows 333.42 points, what is wrong with my code.

VB

Imports System.IO
Imports System.Drawing.Printing
Imports iTextSharp.text.pdf
Imports iTextSharp.text



Public Class Form1
    Public egraphics As Graphics
    Public prnDocument As New System.Drawing.Printing.PrintDocument

    Private TMPbmp As New Bitmap(1, 1)
    Private TMPgfx As Graphics = Graphics.FromImage(TMPbmp)
    Private TxtSize As SizeF
    Private lstrstring As String



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim psize As New Printing.PaperSize("Custom", 595, 842)

        lstrstring = "Abcdghijyzw"

        AddHandler prnDocument.PrintPage, AddressOf PrintPage

        prnDocument.DefaultPageSettings.PaperSize = psize
        prnDocument.DefaultPageSettings.Margins.Top = 0
        prnDocument.DefaultPageSettings.Margins.Left = 0
        prnDocument.DefaultPageSettings.Margins.Bottom = 0
        prnDocument.DefaultPageSettings.Margins.Right = 0
        prnDocument.Print()
        ITextSharpPrint()
    End Sub

    Private Sub PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
        Dim fReportFont As System.Drawing.Font
        Dim lstringformat As New StringFormat

        lstringformat = System.Drawing.StringFormat.GenericTypographic

        egraphics = e.Graphics
        egraphics.PageUnit = GraphicsUnit.Point
        fReportFont = New System.Drawing.Font(Trim("Helvetica"), 60, FontStyle.Regular)
        egraphics.DrawString(lstrstring, fReportFont, New SolidBrush(Color.Black), 200, 100, lstringformat)
        MsgBox(egraphics.MeasureString(lstrstring, fReportFont).Width)

    End Sub


    Private Sub ITextSharpPrint()

        Using fs As System.IO.FileStream = New FileStream("C:\Kgm.pdf", FileMode.Create)

            Dim document As New iTextSharp.text.Document(PageSize.A4, 0, 0, 0, 0)
            Dim writer As PdfWriter = PdfWriter.GetInstance(document, fs)
            Dim tFont As iTextSharp.text.Font

            document.Open()
            Dim cb As PdfContentByte = writer.DirectContent

            cb.BeginText()

           
            tFont = FontFactory.GetFont("Helvetica", 60, 0)

            Dim lbase As BaseFont
            lbase = tFont.BaseFont

            cb.SetFontAndSize(tFont.BaseFont, 60)
            cb.SetTextMatrix(100, document.PageSize.Height - 200)
            cb.ShowText(lstrString)

            MsgBox(lbase.GetWidthPoint(lstrstring, 60))


            cb.EndText()
            document.Close()
            writer.Close()
            fs.Close()

        End Using
    End Sub
End Class

Posted 13-Dec-13 0:31am

kgmmurugesh

Updated 13-Dec-13 8:51am

Blutfaust

v3

Add a Solution

Comments

Sergey Alexandrovich Kryukov 13-Dec-13 15:11pm

I don't see a problem. First, MeasureString is notoriously inaccurate. Also, I think the width can slightly differ for different media.
—SA

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Sergey Alexandrovich Kryukov · Answer 1 · 2013-12-13T09:14:00

Solution 1

Please see my comment to the question. This CodeProject article demonstrates the improved version of the method of measuring the string: Bypass Graphics.MeasureString limitations[^].

—SA

Posted 13-Dec-13 9:14am

Sergey Alexandrovich Kryukov

Comments

kgmmurugesh 14-Dec-13 1:21am

When i convert your code to vb.net, it shows the following error.

An error occured converting your code, probably due to a syntax error:
-- line 1 col 15: invalid TypeDecl

Sergey Alexandrovich Kryukov 14-Dec-13 2:14am

I don't know what kind of translator did you use. You can use open-source ILSpy. Build C# project, load assembly in ILSpy, save as VB.NET. The result is very accurate.
http://en.wikipedia.org/wiki/.NET_Reflector,
http://www.ilspy.net.
—SA

kgmmurugesh 16-Dec-13 0:17am

I use the following link to convert from c# to vb.net.

http://www.developerfusion.com/tools/convert/csharp-to-vb/?batchId=7795037d-af46-4486-9629-b1f1469740f7

Sergey Alexandrovich Kryukov 16-Dec-13 0:54am

This one is not bad, but I would not trust if some online translator gives you a problem. I told you the ultimate way to translate: open-source ILSpy.
—SA

kgmmurugesh 16-Dec-13 2:07am

your code also shows different width. your code shows 355 points, I want same width in printdocument & Itextsharp. Is it possible?

Sergey Alexandrovich Kryukov 16-Dec-13 2:12am

(Not my code, by the way.) May be not. Did you use exact same algorithm and exact same fonts on both cases? You want not the same width, you want correct width.
—SA

kgmmurugesh 16-Dec-13 2:16am

I use the following code the measure width in iTextShap.

Private Sub ITextSharpPrint()

Using fs As System.IO.FileStream = New FileStream("C:\Kgm.pdf", FileMode.Create)

Dim document As New iTextSharp.text.Document(PageSize.A4, 0, 0, 0, 0)
Dim writer As PdfWriter = PdfWriter.GetInstance(document, fs)
Dim tFont As iTextSharp.text.Font

document.Open()
Dim cb As PdfContentByte = writer.DirectContent

cb.BeginText()

tFont = FontFactory.GetFont("Helvetica", 60, 0)

Dim lbase As BaseFont
lbase = tFont.BaseFont

cb.SetFontAndSize(tFont.BaseFont, 60)
cb.SetTextMatrix(100, document.PageSize.Height - 200)
cb.ShowText(lstrString)

MsgBox(lbase.GetWidthPoint(lstrstring, 60))

cb.EndText()
document.Close()
writer.Close()
fs.Close()

End Using
End Sub

Sergey Alexandrovich Kryukov 16-Dec-13 2:25am

I cannot see where did you call the method I recommended, MeasureDisplayStringWidth.
You compare to widths and complain that what I recommend does not help you. But where did you try what I recommend?
—SA

kgmmurugesh 16-Dec-13 2:27am

again, I give the full code.

Imports System.IO
Imports System.Drawing.Printing
Imports iTextSharp.text.pdf
Imports iTextSharp.text

Public Class Form1
Public egraphics As Graphics
Public prnDocument As New System.Drawing.Printing.PrintDocument

Private TMPbmp As New Bitmap(1, 1)
Private TMPgfx As Graphics = Graphics.FromImage(TMPbmp)
Private TxtSize As SizeF
Private lstrstring As String

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim psize As New Printing.PaperSize("Custom", 595, 842)

lstrstring = "Abcdghijyzw"

AddHandler prnDocument.PrintPage, AddressOf PrintPage

prnDocument.DefaultPageSettings.PaperSize = psize
'prnDocument.DefaultPageSettings.Landscape = True
prnDocument.DefaultPageSettings.Margins.Top = 0
prnDocument.DefaultPageSettings.Margins.Left = 0
prnDocument.DefaultPageSettings.Margins.Bottom = 0
prnDocument.DefaultPageSettings.Margins.Right = 0
'prnDocument.OriginAtMargins = True
prnDocument.Print()
ITextSharpPrint()
End Sub

Private Sub PrintPage(ByVal sender As Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
Dim fReportFont As System.Drawing.Font
Dim lstringformat As New StringFormat
lstringformat = System.Drawing.StringFormat.GenericTypographic

egraphics = e.Graphics
egraphics.PageUnit = GraphicsUnit.Point
fReportFont = New System.Drawing.Font(Trim("Helvetica"), 60, FontStyle.Regular)
egraphics.DrawString(lstrstring, fReportFont, New SolidBrush(Color.Black), 200, 100, lstringformat)
MsgBox(MeasureDisplayStringWidth(egraphics, lstrstring, fReportFont))

End Sub

Private Sub ITextSharpPrint()

Using fs As System.IO.FileStream = New FileStream("C:\Kgm.pdf", FileMode.Create)

Dim document As New iTextSharp.text.Document(PageSize.A4, 0, 0, 0, 0)
Dim writer As PdfWriter = PdfWriter.GetInstance(document, fs)
Dim tFont As iTextSharp.text.Font

document.Open()
Dim cb As PdfContentByte = writer.DirectContent

cb.BeginText()

tFont = FontFactory.GetFont("Helvetica", 60, 0)

Dim lbase As BaseFont
lbase = tFont.BaseFont

cb.SetFontAndSize(tFont.BaseFont, 60)
cb.SetTextMatrix(100, document.PageSize.Height - 200)
cb.ShowText(lstrString)

MsgBox(lbase.GetWidthPoint(lstrstring, 60))

cb.EndText()
document.Close()
writer.Close()
fs.Close()

End Using
End Sub

' WindowsFormsApplication1.Form1
Public Shared Function MeasureDisplayStringWidth(ByVal graphics As Graphics, ByVal text As String, ByVal font As System.Drawing.Font) As Integer
Dim format As StringFormat = New StringFormat()
Dim rect As RectangleF = New RectangleF(0.0F, 0.0F, 1000.0F, 1000.0F)
Dim ranges As CharacterRange() = {New CharacterRange(0, text.Length)}
Dim regions As System.Drawing.Region() = New System.Drawing.Region(0) {}

format.SetMeasurableCharacterRanges(ranges)
regions = graphics.MeasureCharacterRanges(text, font, rect, format)
rect = regions(0).GetBounds(graphics)
Return CInt((rect.Right + 1.0F))
End Function

End Class

Sergey Alexandrovich Kryukov 16-Dec-13 2:33am

Okay, this is for the PrintDocument page, but what about PDF width, how did you get it? You compare two cases and say they are different, but then you should have two cases.
—SA

kgmmurugesh 16-Dec-13 2:35am

I use the following code to get width in PDF. I use this code in ITextSharpPrint() procedure.

Dim lbase As BaseFont
lbase = tFont.BaseFont

cb.SetFontAndSize(tFont.BaseFont, 60)
cb.SetTextMatrix(100, document.PageSize.Height - 200)
cb.ShowText(lstrString)

MsgBox(lbase.GetWidthPoint(lstrstring, 60))

Sergey Alexandrovich Kryukov 16-Dec-13 10:07am

I see. But this GetWidthPoint could be very inaccurate...
—SA

kgmmurugesh 16-Dec-13 23:01pm

it's ok, is there any way to measure the height of text in printdocument & iTextsharp?

Sergey Alexandrovich Kryukov 17-Dec-13 3:08am

I'm afraid I'm out of methods. I thought one is enough... :-)
—SA

kgmmurugesh 17-Dec-13 3:22am

I want to write a single procedure to print the given data for printdocument & pdf formats, so that i need the height measurement in both.