如何使用iTextSharp和VB.NET将TIFF图像适合PDF A4页面大小？ [英] How to fit TIFF image to PDF A4 page size using iTextSharp and VB.NET?

问题描述

我找到了一个用于将TIFF转换为PDF的C＃源代码，并将其转换为VB.NET。

Hi,

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

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()

上面的代码运行正常，我的问题是我不知道如何使图像适合A4页面大小。图像始终为纵向，但大于A4尺寸。



请帮助...谢谢

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

推荐答案

你有没有尝试过：

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.

这篇关于如何使用iTextSharp和VB.NET将TIFF图像适合PDF A4页面大小？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！