Tema: FPDF - Abrir archivo pdf para modificar
Ver Mensaje Individual
  #6 (permalink)  
Antiguo 24/03/2011, 10:09
Avatar de Myakire
Myakire
Colaborador
  
Fecha de Ingreso: enero-2002
Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 22 años, 3 meses
Puntos: 146
Respuesta: FPDF - Abrir archivo pdf para modificar
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: 
Ver original
  1. pdf.AddPage()
  2.   pdf.SetLeftMargin(1.9)
  3.     pdf.SetRightMargin(0.5)  
  4.     pdf.SetY(40) '44
  5.     pdf.SetX(MarIzq)
  6.   pdf.SetTextColor 0,0,0
  7.   call NuevaLinea("Arial",1,196,4,"",7,4,"","L",0)
  8.     pdf.SetX(MarIzq)
  9.                  
  10.   call NuevaLinea("Arial",1,21,4,"NOMBRE:",7,0,"B","L",0)
  11.   call NuevaLinea("Arial",36,136,4,vNomCliente,7,0,"","L",0)
  12.   call NuevaLinea("Arial",172,16,4,"FACTURA:",7,0,"B","L",0)
  13.   call NuevaLinea("Arial",188,9,4, vNoFactura&vSerie,7,4,"","L",0)
  14.     pdf.SetX(MarIzq)
  15.   call NuevaLinea("Arial",1,21,4,"RFC:",7,0,"B","L",0)
  16.   call NuevaLinea("Arial",36,136,4,vRFC,7,0,"","L",0)
  17.   call NuevaLinea("Arial",172,16,4,"FECHA:",7,0,"B","L",0)
  18.   call NuevaLinea("Arial",188,9,4,vFecha,7,4,"","L",0)
  19.     pdf.SetX(MarIzq)
  20.   call NuevaLinea("Arial",1,21,4,"DOMICILIO:",7,0,"B","L",0)
  21.   call NuevaLinea("Arial",36,136,4,vDom1,7,0,"","L",0)
  22.   call NuevaLinea("Arial",172,16,4,"VENCE:",7,0,"B","L",0)
  23.   call NuevaLinea("Arial",188,9,4,vFechaVen,7,4,"","L",0)
  24.     pdf.SetX(MarIzq)
  25.   call NuevaLinea("Arial",1,21,4," ",7,0,"B","L",0)
  26.   call NuevaLinea("Arial",36,136,4,vDom2,7,0,"","L",0)
  27.   call NuevaLinea("Arial",172,16,4,"",7,0,"B","L",0)
  28.   call NuevaLinea("Arial",188,9,4," ",7,4,"","L",0)
  29.     pdf.SetX(MarIzq)
  30.   call NuevaLinea("Arial",1,21,4," ",7,0,"B","L",0)
  31.   call NuevaLinea("Arial",36,136,4,vDom3,7,0,"","L",0)
  32.   call NuevaLinea("Arial",172,30,4,vModelo,7,5,"B","R",0)
  33.  
  34.   .... bla bla bla etc
  35.  
  36.     pdf.SetX(MarIzq)
  37.   call NuevaLinea("Courier",1,208,4, "-------------------------------------------------------------------------------------------------------------------------------------------------------", 6,2,"","L",0)
  38.   
  39. '************************ ESTA ES LA LINEA DE LA IMAGEN, PUEDEN VER QUE NO TIENE NADA DEL OTRO MUNDO ****************
  40.     if Request("hidBorrador")="true" Then pdf.Image "borrador.JPG",60,80,90,80
  41. '*************************************************************************************************************
  42.  
  43. pdf.SetTextColor 0,0,0 'Negro
  44.  
  45. pdf.SetFont "Courier","",6
  46. Cnt = 0
  47.  
  48. PedimentoAnterior = ""
  49. vUnaVez = False
  50. while NOT rs.EOF
  51.   pdf.SetX(MarIzq-5)
  52.      pdf.Cell 4, 4, Cnt+1,0,0,"L"
  53.     End If
  54.   pdf.SetX(MarIzq+1)
  55.   pdf.Cell Calcula(vecAnchos(0)), 4, rs("Inspec"),0,0,"L"         :PosIni = PosIni + Calcula(vecAnchos(0)) + Espacios
  56.   pdf.SetX(MarIzq+PosIni)
  57.  
  58. ---- resto del código que imprime la factura



saludos