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
Código ASP:
Ver originalpdf.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