Preview a PDF saca en espejo

[cmsoft]

Estimados:
No se si a alguien le habra dado este error, pero en varias computadoras de clientes, las exportaciones me salen los textos fijos en espejo. En el preview lo veo bien, pero cuando graba el pdf lo hace invirtiendo cada letra en forma espejada.
Muestro un ejemplo:
http://subefotos.com/ver/?e28d97e542008ea7ee20487997e60ccbo.jpg
Agradecere vuestra ayuda.
Saludos
Lo que muestra bien es una imagen que pongo al fondo

Uso fwh16 y bcc77

[karinha]

Muestra el código que genera el .pdf.

[armando.lagunas]

solo una idea:

al parecer afecta a la fuente que usas en la impresión (según veo en la foto), prueba cambiando por otra.

si en tu pc / laptop funciona ok, quizás sea lo que te he expuesto.

Saludos.

[cmsoft]

Te pego el codigo!
Voy a hacer pruebas con cambiar el tipo de letra, uso couriew new porque es fija, asi no tengo que calcular posiciones.
Hago las pruebas y comento.

Code: Select all  Expand view

**************************************************************
** Impresion del orden de pagos
PROCEDURE oPago(nNumero)
LOCAL oRep, nRow, nCol, oFont1, oFont2, i, oQryPag, oQryPagCon, oQryPagFac,oQryPro
oQryPag      := oApp:oServer:Query( "SELECT * FROM ordpag WHERE numero = " + ClipValue2SQL(nNumero))
oQryPagFac := oApp:oServer:Query( "SELECT * FROM ordfac WHERE numero = " + ClipValue2SQL(nNumero))
oQryPagCon := oApp:oServer:Query( "SELECT * FROM ordcon WHERE numero = " + ClipValue2SQL(nNumero))
oQryPro := oApp:oServer:Query( "SELECT * FROM provee WHERE codigo = " + ClipValue2SQL(oQryPag:proveedor))
IF oQryPag:nRecCount = 0
   MsgStop("Orden de pago no existe!!","Error")
   RETURN
ENDIF  
DEFINE FONT oFont1 NAME "COURIER NEW" SIZE -nRow*0.85,nCol*2.5 BOLD
DEFINE FONT oFont2 NAME "COURIER NEW" SIZE -nRow*0.85,nCol*2.5
PRINT oRep NAME "Orden Pago" PREVIEW MODAL
      nRow = oRep:nVertRes() / 80
      nCol = oRep:nHorzRes() / 120
      PAGE
        oRep:SayImage(0,0,"OPAGO.JPG",oRep:nHorzRes(),oRep:nVertRes(), nil, .t.)
        oRep:Say(nRow*06,nCol*65,"Fecha de pago:"+ DTOC(oQryPag:fecha),oFont1)
        oRep:Say(nRow*08,nCol*65,"          Nro:"+STRTRAN(STR(oQryPag:numero,10)," ","0"),oFont1)
        oRep:Say(nRow*12,nCol*3,"Proveedor:("+STR(oQryPro:codigo,08)+")"+LEFT(oQryPro:nombre,40), oFont1)
        oRep:Say(nRow*13,nCol*3,"C.U.I.T. :"+oQryPro:cuit,oFont1)
        oRep:Say(nRow*14,nCol*3,"Direccion:"+LEFT(oQryPro:direccion,30), oFont1)
        oRep:Say(nRow*15,nCol*3,"Localidad:"+oQryPro:localidad,oFont1)      
        i := 3
        oRep:Say(nRow*(17+i),nCol*03,"Comprobante Nro        Importe",oFont1)
        DO WHILE !oQryPagFac:Eof()
           oRep:Say(nRow*(18+i),nCol*03,oQryPagFac:numfac+"  "+STR(oQryPagFac:importe,14,2),oFont2)
           oQryPagFac:SKIP()
           i++
        ENDDO
        oRep:Say(nRow*(18+i),nCol*40,"Neto pagado:"+STR(oQryPag:total,16,2),oFont2)
        i := 22 + i
        oRep:Say(nRow*(i),nCol*03,"====================== Forma de pago =======================",oFont1)
        i ++
        DO WHILE !oQryPagCon:Eof()
           oRep:Say(nRow*(i),nCol*03,LEFT(oQryPagCon:observa,35)+" "+STR(oQryPagCon:importe,12,2),oFont2)
           oQryPagCon:SKIP()
           i++
        ENDDO
        i := i + 3
        oRep:Say(nRow*(i+2),nCol*03,"_________________________",oFont2)
        oRep:Say(nRow*(i+3),nCol*03,"Por " + oQryPro:nombre,oFont2)
      ENDPAGE
ENDPRINT
RETURN