vb.net - itextsharp: vb.net で画像を強制的に幅全体に表示する

Question

以下は、いくつかの画像を含む生成された PDF です。画像がPDFファイルの幅全体を占めるように強制するにはどうすればよいですか? 代替テキスト http://img52.imageshack.us/img52/3324/fullscreencapture121420u.png

Answer 1

これには、ScalePercent メソッドが非常にうまく機能します。

    Dim pgSize As New iTextSharp.text.Rectangle(595, 792) //A4 width, Letter height
    Dim leftMargin as integer = 20
    Dim rightMargin as integer = 20
    Dim doc As New iTextSharp.text.Document(pgSize, leftMargin, rightMargin, 48, 24)
    //Create PDF and write other stuff.
    Dim img As System.Drawing.Image = My.Resources.My_Image
    Dim png As System.Drawing.Imaging.ImageFormat = System.Drawing.Imaging.ImageFormat.Png
    Dim pic1 As iTextSharp.text.Image = iTextSharp.text.Image.GetInstance(img, png)

    Dim scaleFactor As Single = (pgSize.Width - leftMargin - rightMargin) / img.Width * 100

    pic1.ScalePercent(scaleFactor)
    pic1.SetAbsolutePosition(my_X, my_Y)
    doc.Add(pic1)