How to fit TIFF image to PDF A4 page size using iTextSharp and VB.NET?

Question

3.63/5 (4 votes)

See more:

Hi,

I found a C# source code for converting TIFF to PDF and I convert it to VB.NET.

VB

Dim doc As New Document(PageSize.A4, 0, 0, 0, 0)
Dim writer As PdfWriter = PdfWriter.GetInstance(doc, New FileStream(pdfPath, FileMode.Create))
Dim bmp As New Bitmap(tiffPath)
Dim pages As Integer = bmp.GetFrameCount(Imaging.FrameDimension.Page)
doc.Open()
Dim cb As PdfContentByte = writer.DirectContent
For i As Integer = 0 To pages - 1
    bmp.SelectActiveFrame(Imaging.FrameDimension.Page, i)
    Dim img As Image = Image.GetInstance(bmp, Imaging.ImageFormat.Bmp)

    img.ScalePercent(72.0F / img.DpiX * 100)
    img.SetAbsolutePosition(0, 0)
    cb.AddImage(img)
    doc.NewPage()
Next i
doc.Close()

The above code is running fine, my problem is I don't know how to make the image fit to A4 page size. The image is always in portrait but bigger than A4 size.

Please Help... Thanks

Posted 18-Dec-13 23:20pm

hansoctantan

Updated 20-Dec-13 0:52am

Maciej Los

v5

Add a Solution

Comments

Maciej Los 19-Dec-13 15:11pm

Interesting question. A5!

Sergey Alexandrovich Kryukov 19-Dec-13 15:41pm

What is interesting? OP has 72% scaling. OP does not tell us that it does not scale at all/ Don't you think that different percentage would make the image smaller? :-)
—SA

Maciej Los 19-Dec-13 15:53pm

I think, there is no problem with changing the value of scaling. A problem is: how to detect image scaling to fit it into A4 page.

Sergey Alexandrovich Kryukov 19-Dec-13 23:05pm

Oh, you are right.
—SA

Maciej Los 20-Dec-13 1:39am

;)

hansoctantan 20-Dec-13 6:04am

I try changing the Scale but failed to make it fit, I try making a conversion that will fit any sizes of tiff even its bigger than A4 size

Maciej Los 20-Dec-13 6:53am

Do not add "Repost" sentence in a "Subject" of your question if you don't want to get votes down.

hansoctantan 20-Dec-13 9:06am

sorry but how can i make my question active.. still my question don't have an answer

Maciej Los 20-Dec-13 9:12am

Your question is still active. It means it is displayed on "Unanswered list". Please, be patient and wait for your answer. In a meanwhile, try to find solution yourself.

hansoctantan 20-Dec-13 9:20am

ok, thanks

1 solution

Add a Solution

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

dario.rinaldi · Accepted Answer · 2014-04-04T05:00:00

Solution 1

Have you tried:

var image = iTextSharp.text.Image.GetInstance(page, ImageFormat.Png);
image.SetAbsolutePosition(0, 0);
image.ScaleAbsoluteHeight(_doc.PageSize.Height);
image.ScaleAbsoluteWidth(_doc.PageSize.Width);
_directContent.AddImage(image);
            
_doc.NewPage();

It works well for me.

Posted 4-Apr-14 5:00am

dario.rinaldi

Comments

NBhalodiya 23-Dec-19 1:47am

Thanks its also works for me.

How to fit TIFF image to PDF A4 page size using iTextSharp and VB.NET?

1 solution

Solution 1

Add your solution here

Preview 0

How to fit TIFF image to PDF A4 page size using iTextSharp and VB.NET?

1 solution

Solution 1

Add your solution here

Preview 0

Existing Members

...or Join us