Impresion PDF en espejo (Solucionado)

[cmsoft]

Estimados:
Tengo un problema al emitir un PDF desde el Preview con PRINT. Me sale en espejo como muestra la figura

El programa para emitir el reporte es el siguiente

Code: Select all

STATIC FUNCTION Recaudo(cEan,cNumRef,nImporte,dFechaMax)
LOCAL oPrn, oFont1, oFont2, oFont3

      
  AddFontResource( "Bar25ifh.ttf" )
  DEFINE FONT oFont1 NAME "TAHOMA"          SIZE -24, 48  OF oPrn
  DEFINE FONT oFont2 NAME "Arial"           SIZE -24, 48  BOLD OF oPrn      


   PRINT oPrn NAME "Recaudo" PREVIEW
      PAGE
         @ 1.0, 1   PRINT TO oPrn TEXT "Codigo EAN:" ;
              SIZE 3,.5 CM FONT oFont1 ALIGN "R"
         @ 1.0, 4.1 PRINT TO oPrn TEXT cEan ;
                  SIZE 6,.5 CM FONT oFont2 ALIGN "L"
         @ 1.5, 1   PRINT TO oPrn TEXT "Referencia:" ;
              SIZE 3,.5 CM FONT oFont1 ALIGN "R"
         @ 1.5, 4.1 PRINT TO oPrn TEXT cNumRef ;
                  SIZE 6,.5 CM FONT oFont2 ALIGN "L"
         @ 2.0, 1   PRINT TO oPrn TEXT "Importe:" ;
              SIZE 3,.5 CM FONT oFont1 ALIGN "R"
         @ 2.0, 4.1 PRINT TO oPrn TEXT STR(nImporte,12,2) ;
                  SIZE 6,.5 CM FONT oFont2 ALIGN "L"
         @ 2.5, 1   PRINT TO oPrn TEXT "Fecha pago:" ;
              SIZE 3,.5 CM FONT oFont1 ALIGN "R"
         @ 2.5, 4.1 PRINT TO oPrn TEXT DTOC(dFechaMax) ;
                  SIZE 6,.5 CM FONT oFont2 ALIGN "L"         
         
      ENDPAGE      
   ENDPRINT

   oFont1:End()      // Destroy the font object
   oFont2:End()      // Destroy the font object   

RETURN NIL
 

Alguna pista del porque?
Gracias de antemano

[karinha]

César, mira aqui, que fantástico:

http://forums.fivetechsupport.com/viewt ... =6&t=35711

Saludos.

[cmsoft]

Hola Karinha, si eso codigo se lo pase yo a Francisco.
El tema es cuando pongo exportar a PDF con el boton del PREVIEW. Me genera el PDF pero con el texto en espejo.

[karinha]

César:

[karinha]

César:

Code: Select all

#include "FiveWin.ch"

FUNCTION Main()

   LOCAL cEan,cNumRef,nImporte,dFechaMax

   cEan      := "534140083583"
   cNumRef   := "835831528"
   nImporte  := 3853.88
   dFechaMax := DATE()

   Recaudo( cEan, cNumRef, nImporte, dFechaMax )

RETURN NIL

FUNCTION Recaudo( cEan, cNumRef, nImporte, dFechaMax)

   LOCAL oPrn, oFont1, oFont2, oFont3

   // AddFontResource( "Bar25ifh.ttf" )
   AddFontResource( "EAN-13.TTF" )  // TESTE PARA CESAR

   PRINT oPrn NAME "Recaudo" PREVIEW MODAL

      DEFINE FONT oFont1 NAME "Bar 25i f HR"  SIZE  14, 00  OF oPrn
      DEFINE FONT oFont2 NAME "Arial"         SIZE -14, 00  BOLD OF oPrn

      PAGE
         @ 1.0, 1   PRINT TO oPrn TEXT "Codigo EAN:" ;
              SIZE 3,.5 CM FONT oFont1 ALIGN "R"

         @ 1.0, 4.1 PRINT TO oPrn TEXT cEan ;
                  SIZE 6,.5 CM FONT oFont2 ALIGN "L"

         @ 1.5, 1   PRINT TO oPrn TEXT "Referencia:" ;
              SIZE 3,.5 CM FONT oFont1 ALIGN "R"

         @ 1.5, 4.1 PRINT TO oPrn TEXT cNumRef ;
                  SIZE 6,.5 CM FONT oFont2 ALIGN "L"

         @ 2.0, 1   PRINT TO oPrn TEXT "Importe:" ;
              SIZE 3,.5 CM FONT oFont1 ALIGN "R"

         @ 2.0, 4.1 PRINT TO oPrn TEXT STR(nImporte,12,2) ;
                  SIZE 6,.5 CM FONT oFont2 ALIGN "L"

         @ 2.5, 1   PRINT TO oPrn TEXT "Fecha pago:" ;
              SIZE 3,.5 CM FONT oFont1 ALIGN "R"

         @ 2.5, 4.1 PRINT TO oPrn TEXT DTOC(dFechaMax) ;
                  SIZE 6,.5 CM FONT oFont2 ALIGN "L"
         
      ENDPAGE      

   ENDPRINT

   oFont1:End()      // Destroy the font object
   oFont2:End()      // Destroy the font object

   // RemoveFontResource( "Bar25ifh.ttf" )
   RemoveFontResource( "EAN-13.ttf" )

RETURN NIL
 

Saludos

[karinha]

César,

[karinha]

César, con el Código de Barras:

Code: Select all

#include "FiveWin.ch"

FUNCTION Main()

   LOCAL cEan,cNumRef,nImporte,dFechaMax

   cEan      := "534140083583"
   cNumRef   := "835831528"
   nImporte  := 3853.88
   dFechaMax := DATE()

   Recaudo( cEan, cNumRef, nImporte, dFechaMax )

RETURN NIL

FUNCTION Recaudo(cEan,cNumRef,nImporte,dFechaMax)

   LOCAL oPrn, oFont1, oFont2, oFont3

   AddFontResource( "Bar25ifh.ttf" )
   // AddFontResource( "EAN-13.TTF" )  // TESTE PARA CESAR

   PRINT oPrn NAME "Recaudo" PREVIEW MODAL

      DEFINE FONT oFont1 NAME "Bar 25i f HR"  SIZE  14, 00  OF oPrn
      DEFINE FONT oFont2 NAME "Arial"         SIZE -14, 00  BOLD OF oPrn

      PAGE
         @ 1.0, 1   PRINT TO oPrn TEXT "Codigo EAN:" ;
              SIZE 3,.5 CM FONT oFont2 ALIGN "R"

         @ 1.0, 4.1 PRINT TO oPrn TEXT cEan ;
                  SIZE 6,.5 CM FONT oFont1 ALIGN "L"

         @ 1.5, 1   PRINT TO oPrn TEXT "Referencia:" ;
              SIZE 3,.5 CM FONT oFont2 ALIGN "R"

         @ 1.5, 4.1 PRINT TO oPrn TEXT cNumRef ;
                  SIZE 6,.5 CM FONT oFont2 ALIGN "L"

         @ 2.0, 1   PRINT TO oPrn TEXT "Importe:" ;
              SIZE 3,.5 CM FONT oFont2 ALIGN "R"

         @ 2.0, 4.1 PRINT TO oPrn TEXT STR(nImporte,12,2) ;
                  SIZE 6,.5 CM FONT oFont2 ALIGN "L"

         @ 2.5, 1   PRINT TO oPrn TEXT "Fecha pago:" ;
              SIZE 3,.5 CM FONT oFont2 ALIGN "R"

         @ 2.5, 4.1 PRINT TO oPrn TEXT DTOC(dFechaMax) ;
                  SIZE 6,.5 CM FONT oFont2 ALIGN "L"
         
      ENDPAGE      

   ENDPRINT

   oFont1:End()      // Destroy the font object
   oFont2:End()      // Destroy the font object

   RemoveFontResource( "Bar25ifh.ttf" )
   // RemoveFontResource( "EAN-13.ttf" )

RETURN NIL
 

[cmsoft]

Gracias Karinha por todas las pruebas, pero tengo el mismo resultado con tu código.
Con el preview se ve asi:

Con el pdf generado con el preview se ve asi:


En esta PC no tengo instalado ni el Acrobat ni el CutePDF ni ningun administrador de archivos PDF.
Cuando instalo en clientes que no tienen esos programas es el problema.

[karinha]

Instale una impresora virtual, por ejemplo:

https://www.pdfmachine.com/

Saludos.

[cmsoft]

Si, esa es un solución, pero lo clientes tiene que hacer lo mismo y elegir la impresora virtual como salida cuando quieren exportar a PDF. Y como el Preview tiene la opcion de exportar a PDF es raro que nadie haya tenido este problema no?

[karinha]

No comprendo, por cual razón no instalar el Adobe Acrobat Reader DC?

https://get.adobe.com/br/reader/

Saludos.

[cmsoft]

Porque el sistema que entrego lo distribuyo en forma de instalador descargando de la web, y de esa manera dependo de que el cliente que lo descarga (que es un proceso automatico del que no tengo intervesion) tenga instalado el Acrobat Reader.. (u otro similar).

[karinha]

Mira se comprende. Adapta a tu sistema.

Code: Select all

FUNCTION ShowPDF_READER( cAlias )

   LOCAL oWndPdf, oPdf, cTmp, NFEVisualSUM, nNumNfeSUM, nRecNo, oTaskP

   nRecNo     := ( cAlias )->( RecNo() ) //-> CCE.DBF
   GoTo( nRecNo )

   nNumNfeSUM := VAL( SUBSTR( ( cAlias )->CHAVE, 29, 6 ) )

   NFEVisualSUM := "C:\NFEPDF\"+"CCE"+ALLTRIM( STR( nNumNfeSUM ) )+".PDF"

   /*
   MsgWait( "LOCALIZANDO O ARQUIVO DA CARTA DE CORRECAO", ;
            "AGUARDE UM MOMENTO POR FAVOR...           ", 2.5 )
   */

   // USANDO ADOBE READER DIRETO VIA CODIGO - ACTIVEX DO FWH17.01
   IF .NOT. FILE( NFEVisualSUM )  

      ? "Arqchivo no localizado"

      RETURN NIL

   ENDIF

   DEFINE WINDOW oWndPdf TITLE "FiveWin ActiveX Support - Visualizar/Imprimir o *.PDF Usando o Adobe Reader"

   oPdf = TActiveX():New( oWndPdf, "AcroPDF.PDF.1" , 1, 1, 20, 50 )

   oWndPdf:oClient := oPdf

   oPdf : src = NFEVisualSUM

   // Mostra Preview Pequeno no lado esquerdo da tela...
   // oPdf:Do( "SetPageMode", "thumbnail and pages" )

   oPdf:SetProp( "Src", cTmp )

   oPdf:Do( "LoadFile", Lfn2Sfn(cTmp) )

   oPdf:Do( "GetVersions" )

   oPdf:Do( "SetCurrentPage", 1 )

   // oPdf:Print() // Nao funciona direto na impressora..
   // oPdf:Do( "PrintAll" )  // Assim funciona. pede a impressao

   // Mostra a Barra de Botoes do ADOBE READER
   oPdf:Do( "SetShowToolbar", .T. )

   // Liga/Desliga barra de Scroll do lado direto do Adobe Reader
   oPdf:Do( "SetShowScrollbars", .T. )  // Liga/Desliga Scroll

   ACTIVATE WINDOW oWndPdf MAXIMIZED      ;
            ON INIT( PDFActivex( oPdf ) ) ;
            VALID( oWndPdf := NIL, oPdf:End(), .T. )

RETURN NIL

FUNCTION PDFActivex( MyProgID )

   LOCAL adretor := .T.
 
   if IsActivex( "PDF.PdfCtrl.1" ); MyProgID := "PDF.PdfCtrl.1"; endif
   if IsActivex( "PDF.PdfCtrl.2" ); MyProgID := "PDF.PdfCtrl.2"; endif
   if IsActivex( "PDF.PdfCtrl.3" ); MyProgID := "PDF.PdfCtrl.3"; endif
   if IsActivex( "PDF.PdfCtrl.4" ); MyProgID := "PDF.PdfCtrl.4"; endif
   if IsActivex( "PDF.PdfCtrl.5" ); MyProgID := "PDF.PdfCtrl.5"; endif
   if IsActivex( "PDF.PdfCtrl.6" ); MyProgID := "PDF.PdfCtrl.6"; endif
   if IsActivex( "PDF.PdfCtrl.7" ); MyProgID := "PDF.PdfCtrl.7"; endif
   if IsActivex( "acroPDF.PDF.1" ); MyProgID := "acroPDF.PDF.1"; endif
   if IsActivex( "acroPDF.PDF.2" ); MyProgID := "acroPDF.PDF.2"; endif

   IF Empty( MyProgID )

      MsgInfo( "PDF Activex não instalado !!!"+CRLF+ ;
               " É necessário que seja instalado o programa ADOBE READER, consulte o suporte do sistema.",.F.)

      adretor := .F.

   ENDIF

RETURN(adretor)

Saludos.

[cmsoft]

Hola Karinha: Gracias por tu interes. La idea es poder generar el PDF sin tener el Acrobat Reader ni ningun otro complemento instalado, y que lo genere sin el efecto espejo.

[karinha]

Code: Select all

   LOCAL cFile

   nPDF := 1 // 2 3 4 5 6

   cFile := "C:\MYPDF\"+"MYPDF"+ALLTRIM( nPDF )+".PDF"

   PRINT oPrn NAME "MYPDF" FILE cFile

Ó

   FWSavePreviewToPDF( oPrn )  // Esta en: PRV2PDF.PRG do Five.

Saludos