Impresion a Pdf

[juan_arroyo_t]

Por favor necesito la ayuda del foro

Tengo configurada mi aplicacion para imprimir con TPrinter y USER PREVIEW

Se trata de imprimir una factura que lleva una imagen (logo)

Al momento de que me aparece el cuadro de diálogo de imprimir, yo selecciono una impresora virtual ( en este caso uso DOPDF), pulso imprimir y cuando veo mi factura, la imagen del logo está más grande.

Sin embargo cuando mando imprimir la factura directamente a la impresora todo sale normal, la cuestión es que requiero primeramente crear el pdf

Anexo el link de imagenes




Saludos

[QAZWSX2K]

yo te recomendaria que reduzcas el tamaño en pixel de la imagen ya que en fivewin probablemente usas adjust en un espacio predeterminado y al pasar a pdf no lo haga, esto como solucion rapida claro

[juan_arroyo_t]

QAZWSX2K

Gracias por tu respuesta

Estoy usando el adjust en en otros módulos de mi aplicacion por ejemplo :

Code: Select all  Expand view

STATIC FUNCTION barra(oDlg, oLbx)
    DEFINE BUTTONBAR oBar SIZE 32,32 3DLOOK OF oDlg

    DEFINE BUTTON OF oBar ;
        FILENAME ".\bmps\ag.bmp" ;
        ADJUST ;
        NOBORDER TOOLTIP "Agregar" ;
        ACTION AltCli(oDlg, oLbx)
   
    DEFINE BUTTON OF oBar ;
        FILENAME ".\bmps\mod.bmp" ;
        ADJUST ;
        NOBORDER TOOLTIP "Modificar" ;
        ACTION ModCli(oLbx)

Si yo reduzco los pixeles va a suceder lo mismo no ?

Yo tengo este fragmento en mi modulo donde imprimo el logo

Code: Select all  Expand view

STATIC FUNCTION Cabeceras( oPrn, oFontD, oFontC, oPen, nHojaImp, nPosLin, ;
                           oXmlNodo, oXmlFact )
    LOCAL aFrom, aTo
   
    * Encabezado de datos de factura emitida
   
    aFrom :=oPrn:Cmtr2Pix( 1.0, 0.7 )
   aTo   :=oPrn:Cmtr2Pix( 8.0, 1.1 )
   
      oPrn:SayBitmap(aFrom[1],aFrom[2],".\bmps\TitSer.Bmp",aTo[1],aTo[2])
    
   
   // Caja de partidas

Saludos