2013-07-19 3 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, так 72/300 * 100 = 24%.

Чтобы переместить изображение вокруг страницы вы можете использовать SetAbsolutePosition метод, как это:

image.SetAbsolutePosition(36F, 36F) 

Примечание: 36F это окраина PDF, так что это будет толкать логотип в левом верхнем углу углу PDF, но все равно сохраняют границу.

+0

Огромное спасибо вам огромное – user1342164

+0

how могу ли я повторить это на каждой странице ..? –

Смежные вопросы