Buenas tardes, como siempre recurro a ustedes por la gran ayuda que me han brindado. en este momento poseo un problema y es que necesito poner una imagen como marca de agua en un pdf que estoy generando con la libreria itextsharp, pero he leido y no he encontrado como hacerlo por ahora tengo este pequeño codigo para generar el pdf. ya he incluido una imagen que ocupa toda la hoja del pdf pero necesito ponerla como marca de agua o repetirla en todas las hojas que genere el pdf. muchas gracias de antemano por su ayuda.
otable.AddCell("Productos")
otable.AddCell("Cant")
otable.AddCell("Valor")
Dim ciclo As Integer
For ciclo = 0 To tleer.Rows.Count - 1
otable.AddCell(tleer.Rows(ciclo)("Id_Producto").To String)
otable.AddCell(tleer.Rows(ciclo)("Cant").ToString)
otable.AddCell(tleer.Rows(ciclo)("Valor_Cliente"). ToString)
Next
'Creamos el objeto documento PDF
Dim documentoPDF As New Document
PdfWriter.GetInstance(documentoPDF,
New FileStream(TextBox2.Text, FileMode.Create))
documentoPDF.Open()
documentoPDF.SetPageSize(PageSize.LETTER)
'inicio de imagen
Dim fondo As iTextSharp.text.Image 'Declaracion de una imagen
Dim fondo2 As iTextSharp.text.
fondo = iTextSharp.text.Image.GetInstance(Application.Star tupPath & "\archivo.png") 'Dirreccion a la imagen que se hace referencia
fondo.SetAbsolutePosition(0, 0) 'Posicion en el eje cartesiano
fondo.ScaleAbsoluteWidth(600) 'Ancho de la imagen
fondo.ScaleAbsoluteHeight(850) 'Altura de la imagen
documentoPDF.Add(fondo) ' Agrega la imagen al documento
'final de imagen
'inicio firma
Dim firma As iTextSharp.text.Image
firma = iTextSharp.text.Image.GetInstance(Application.Star tupPath & "\firma.png")
firma.ScaleAbsoluteWidth(90)
firma.ScaleAbsoluteHeight(120)
'final firma
'imagenes
Dim uno1 As iTextSharp.text.Image
uno1 = iTextSharp.text.Image.GetInstance(Application.Star tupPath & "\imagenpdf\1.png")
uno1.ScaleAbsoluteWidth(90)
uno1.ScaleAbsoluteHeight(120)
' fin imagenes
documentoPDF.Add(New Paragraph(" ")) 'Salto de linea
documentoPDF.Add(New Paragraph(" ")) 'Salto de linea
documentoPDF.Add(New Paragraph(" ")) 'Salto de linea
'Escribimos el texto en el objeto documento PDF
documentoPDF.Add(New Paragraph("Bogotá D.C " & fecha, FontFactory.GetFont(FontFactory.HELVETICA, 14, iTextSharp.text.Font.NORMAL)))
documentoPDF.Add(New Paragraph(" ")) 'Salto de linea
documentoPDF.Add(New Paragraph("Estimado Señor(a) : " & " " & Form3.TextBox3.Text & " " & Form3.TextBox4.Text, FontFactory.GetFont(FontFactory.HELVETICA, 12, iTextSharp.text.Font.NORMAL)))
documentoPDF.Add(New Paragraph(" Cotización No : " & Form3.TextBox8.Text, FontFactory.GetFont(FontFactory.HELVETICA, 18, iTextSharp.text.Font.NORMAL)))
documentoPDF.Add(New Paragraph("Cordial Saludo:", FontFactory.GetFont(FontFactory.HELVETICA, 11, iTextSharp.text.Font.NORMAL)))
documentoPDF.Add(New Paragraph(" "))
documentoPDF.Add(New Paragraph(" "))
documentoPDF.Add(New Paragraph(" "))
documentoPDF.Add(New Paragraph(" "))
documentoPDF.Add(New Paragraph("Somos una empresa en donde estamos abiertos a toda clase de opiniones.", FontFactory.GetFont(FontFactory.HELVETICA, 11, iTextSharp.text.Font.NORMAL)))
documentoPDF.Add(New Paragraph(" "))
documentoPDF.Add(New Paragraph("Quedamos atentos a sus comentarios.", FontFactory.GetFont(FontFactory.HELVETICA, 11, iTextSharp.text.Font.NORMAL)))
documentoPDF.Add(New Paragraph(" "))
documentoPDF.Add(New Paragraph("Cordialmente,", FontFactory.GetFont(FontFactory.HELVETICA, 11, iTextSharp.text.Font.NORMAL)))
documentoPDF.Add(New Paragraph(" "))
documentoPDF.Add(firma)
documentoPDF.Add(New Paragraph("____________________________"))
documentoPDF.Add(New Paragraph(Nombre & " " & apellidos, FontFactory.GetFont(FontFactory.HELVETICA, 12, iTextSharp.text.Font.NORMAL)))
documentoPDF.Add(otable)
documentoPDF.Add(New Paragraph(" "))
Dim Cell As PdfPCell = New PdfPCell(New Phrase("Observaciones"))
observacione.AddCell(Cell)
observacione.AddCell(TextBox4.Text)
documentoPDF.Add(observacione)
documentoPDF.Add(New Paragraph(" "))
documentoPDF.Close()
'Comprobamos si se ha creado el fichero PDF
If System.IO.File.Exists(TextBox2.Text) Then
If MsgBox("Texto convertido a fichero PDF correctamente " + _
"¿desea abrir el fichero PDF resultante?",
MsgBoxStyle.Question + MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
'Abrimos el fichero PDF con la aplicación asociada
System.Diagnostics.Process.Start(TextBox2.Text)
End If
Else
MsgBox("El fichero PDF no se ha generado, " + _
"compruebe que tiene permisos en la carpeta de destino.",
MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly)
End If
Catch ex As Exception
MsgBox("Se ha producido un error al intentar convertir el texto a PDF: " + _
vbCrLf + vbCrLf + ex.Message,
MsgBoxStyle.Critical + MsgBoxStyle.OkOnly)
End Try
End If
