0

我正在使用下面的代码生成pdf。有没有办法可以指向图像并将其用作标题？“~/images/Header.png”？任何帮助，将不胜感激。谢谢你。

Dim myUniqueFileName = String.Format("{0}.pdf", random)
    Dim pdfWrite As PdfWriter = PdfWriter.GetInstance(Doc1, New FileStream(path & myUniqueFileName, FileMode.Create))
    Dim ev As New itsEvents
    pdfWrite.PageEvent = ev

    Doc1.Open()
    Dim test As String
    test = Session("PDF")
    Doc1.Add(New Paragraph(test))

    Doc1.Close()
End Sub
Public Class itsEvents
    Inherits PdfPageEventHelper
    Public Overrides Sub OnStartPage(ByVal writer As iTextSharp.text.pdf.PdfWriter, ByVal document As iTextSharp.text.Document)
        Dim ch As New Chunk("This is my Header on page " & writer.PageNumber)
        document.Add(ch)
    End Sub
End Class
4

1 回答 1

1

尝试这个：

Dim imagepath As String = Server.MapPath(".") & "/logo/Anjanlogo.jpg"
Dim image As iTextSharp.text.Image = iTextSharp.text.Image.GetInstance(imagepath)
image.ScalePercent(24F)
doc.Add(image)

注意：24F缩放来自这样一个事实，默认情况下，嵌入式图像为 72 DPI，大多数商业打印机使用 300 DPI，因此 72/300 * 100 = 24%。

要在页面周围移动图像，您可以使用该SetAbsolutePosition方法，如下所示：

image.SetAbsolutePosition(36F, 36F)

注意：36F是 PDF 的边距，所以这会将 logo 推到 PDF 的左上角，但仍然保持边框。

于 2013-07-19T17:59:12.623 回答