FPDF - Abrir archivo pdf para modificar

[bye_bye_nika]

Buenos días

Os pongo en materia: Tengo que crear pdfs desde mi web en asp. Mi objetivo es que cree un pdf con los datos del cliente.

He estado trasteando con el FPDF y creo pdfs y tal, pero me gustaría partir en vez de, desde una página en blanco, de otro pdf que tuviera como plantilla (con una imagen de fondo, logos, etc).

De entrada había probado ha crearlo desde cero, pero si incluyo una imagen como imagen de fondo no me deja "escribir" encima de ella.

¿Hay alguna manera de abrir un pdf ya existente en vez de generar uno en blanco?

Espero haberme explicado bien...

Muchas gracias y un saludo

[wwwmaster]

Yo use "IBM Lotus Symphony" que es gratuito para generar PDFs editables.

Y para manipularlos como plantilla y plancharles los datos "al vuelo" tuve que usar ASP.NET con la libreria iTextSharp x que no halle como hacerlo desde asp clasico

[Myakire]

De entrada había probado ha crearlo desde cero, pero si incluyo una imagen como imagen de fondo no me deja "escribir" encima de ella.

La solución de wwwmaster suena harto interesante, pero haciendo referencia a lo que dices de que no puedes colocar imágenes de fondo pues quizá es la forma en que lo haces, ya que tengo varios sitios donde se generan PDF con la librería FPDS con una imagen a manera de marca de agua

[bye_bye_nika]

Hola

Myakire: ¿Me puedes decir como haces lo de la marca de agua?

Las imágenes las meto con:

pdf.Image "images/imagen.jpg" , 50 , 50 , 50, 50 , "jpg"

A lo que me refería es que, si yo quiero poner un texto en la posicion 75,75 no me deja, no debe dejar meter 2 elementos uno encima de otro.

Gracias y saludos!!!!!

[axtm]

hola a todos
le pido el favor al moderador Myakire si me puede decir como colocar una imagen como marca de agua con fpdf, agradezco cualquier ayuda..

gracias

[Myakire]

Realmente no tiene nada de ciencia, pongo los encabezados de la factura y coloco la imagen antes de empezar a poner el cuerpo de la misma

El código es más o menos este:

Código ASP:

pdf.AddPage()
  pdf.SetLeftMargin(1.9)
    pdf.SetRightMargin(0.5)  
    pdf.SetY(40) '44
    pdf.SetX(MarIzq)
  pdf.SetTextColor 0,0,0
  call NuevaLinea("Arial",1,196,4,"",7,4,"","L",0)
    pdf.SetX(MarIzq)
                 
  call NuevaLinea("Arial",1,21,4,"NOMBRE:",7,0,"B","L",0)
  call NuevaLinea("Arial",36,136,4,vNomCliente,7,0,"","L",0)
  call NuevaLinea("Arial",172,16,4,"FACTURA:",7,0,"B","L",0)
  call NuevaLinea("Arial",188,9,4, vNoFactura&vSerie,7,4,"","L",0)
    pdf.SetX(MarIzq)
  call NuevaLinea("Arial",1,21,4,"RFC:",7,0,"B","L",0)
  call NuevaLinea("Arial",36,136,4,vRFC,7,0,"","L",0)
  call NuevaLinea("Arial",172,16,4,"FECHA:",7,0,"B","L",0)
  call NuevaLinea("Arial",188,9,4,vFecha,7,4,"","L",0)
    pdf.SetX(MarIzq)
  call NuevaLinea("Arial",1,21,4,"DOMICILIO:",7,0,"B","L",0)
  call NuevaLinea("Arial",36,136,4,vDom1,7,0,"","L",0)
  call NuevaLinea("Arial",172,16,4,"VENCE:",7,0,"B","L",0)
  call NuevaLinea("Arial",188,9,4,vFechaVen,7,4,"","L",0)
    pdf.SetX(MarIzq)
  call NuevaLinea("Arial",1,21,4," ",7,0,"B","L",0)
  call NuevaLinea("Arial",36,136,4,vDom2,7,0,"","L",0)
  call NuevaLinea("Arial",172,16,4,"",7,0,"B","L",0)
  call NuevaLinea("Arial",188,9,4," ",7,4,"","L",0)
    pdf.SetX(MarIzq)
  call NuevaLinea("Arial",1,21,4," ",7,0,"B","L",0)
  call NuevaLinea("Arial",36,136,4,vDom3,7,0,"","L",0)
  call NuevaLinea("Arial",172,30,4,vModelo,7,5,"B","R",0)
 
  .... bla bla bla etc
 
    pdf.SetX(MarIzq)
  call NuevaLinea("Courier",1,208,4, "-------------------------------------------------------------------------------------------------------------------------------------------------------", 6,2,"","L",0)
  
'************************ ESTA ES LA LINEA DE LA IMAGEN, PUEDEN VER QUE NO TIENE NADA DEL OTRO MUNDO ****************
    if Request("hidBorrador")="true" Then pdf.Image "borrador.JPG",60,80,90,80
'*************************************************************************************************************
 
pdf.SetTextColor 0,0,0 'Negro
 
pdf.SetFont "Courier","",6
Cnt = 0
 
PedimentoAnterior = ""
vUnaVez = False
while NOT rs.EOF
  pdf.SetX(MarIzq-5)
     pdf.Cell 4, 4, Cnt+1,0,0,"L"
    End If
  pdf.SetX(MarIzq+1)
  pdf.Cell Calcula(vecAnchos(0)), 4, rs("Inspec"),0,0,"L"         :PosIni = PosIni + Calcula(vecAnchos(0)) + Espacios
  pdf.SetX(MarIzq+PosIni)
 
---- resto del código que imprime la factura
 

saludos