2013-07-19 32 views
0

我正在使用下面的代碼來生成pdf。有沒有一種方法可以指向圖像並將其用作標題? 「〜/圖片/ Header.png」?任何幫助,將不勝感激。謝謝。如何添加圖片作爲pdf標題?

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 
+2

我做了一個「添加圖像pdf itextsharp」的搜索,這是第一個結果:http://www.mikesdotnetting.com/Article/87/iTextSharp-Working-with-images –

回答

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,所以三百分之七十二* 100 = 24%。

移動圖像頁面各處,你可以使用SetAbsolutePosition方法,像這樣:

image.SetAbsolutePosition(36F, 36F) 

注:36F是PDF的邊緣,因此這將推動徽標的左上角PDF的一角,但仍保持邊界。

+0

真棒謝謝你這麼多 – user1342164

+0

如何我可以在每一頁重複這一點..? –