FiveTech Software tech support forums

www.FiveTechSoft.com
https://forums.fivetechsupport.com/

Preview a PDF con imagen de fondo

https://forums.fivetechsupport.com/viewtopic.php?t=44611

Page 1 of 3

Preview a PDF con imagen de fondo

Posted: Tue Jun 18, 2024 7:38 pm
by cmsoft
Estimados:
Tengo un problema al generar con la clase PRINT un documento y exportarlo a PDF con la clausula GRAY de una imagen de fondo
El preview lo genera correctamente (la imagen de fondo se ve en degrades) pero al presionar exportar a PDF genera el documento con un color GRIS de fondo
Si emito la impresion por impresora Microsoft Print to PDF, también sale en forma correcta.
Este un código de ejemplo:

Code: Select all | Expand

#include "FiveWin.ch"
FUNCTION Main()
//                1  2       3     4      5   6   7     8       9
Local aDatos := {;
                 {"Juan 1","Pago 1","Juan","Pedro","1000","Algo 1"},;
                 {"Juan 2","Pago 2","Juan","Pedro","2000","Algo 2"},;
                 {"Juan 3","Pago 3","Juan","Pedro","3000","Algo 3"},;
                 {"Juan 4","Pago 4","Juan","Pedro","4000","Algo 4"},;
                 {"Juan 5","Pago 5","Juan","Pedro","5000","Algo 5"},;
                 {"Juan 6","Pago 6","Juan","Pedro","6000","Algo 6"},;
                 {"Juan 7","Pago 7","Juan","Pedro","7000","Algo 7"};
                }
ImprimoRecibos(aDatos)
RETURN nil

STATIC FUNCTION ImprimoRecibos( aDatos )

   LOCAL oPrn, oFont,n := 0, nRow, i := 1, aSizes

   DEFINE FONT oFont NAME "Arial" SIZE 36, 70 

   PRINT oPrn DOC "recibos"  PREVIEW

   //aSizes := oPrn:Units2Pix(0,0,7.2,327.0,'CM')
   //xbrowse (aSizes)
   
   //oPrn:SetSize( aSizes[3], aSizes[4] )
   nRow := 4
   PAGE
      @ 0,0 PRINT TO oPrn IMAGE "fondo.jpg" SIZE oPrn:nHorzRes(), oPrn:nVertRes() PIXEL GRAY
      @ nRow ,  1 PRINT TO oPrn TEXT aDatos[i,1] SIZE 7,.5 CM FONT oFont LASTROW nRow ALIGN "C"
      @ nRow ,  1 PRINT TO oPrn TEXT aDatos[i,2] SIZE 7,.5 CM FONT oFont LASTROW nRow ALIGN "C"
      @ nRow ,  1 PRINT TO oPrn TEXT aDatos[i,3] SIZE 7,.5 CM FONT oFont LASTROW nRow ALIGN "C"
      @ nRow ,  1 PRINT TO oPrn TEXT aDatos[i,4] SIZE 7,.5 CM FONT oFont LASTROW nRow ALIGN "C"
      @ nRow ,  1 PRINT TO oPrn TEXT aDatos[i,5] SIZE 7,.5 CM FONT oFont LASTROW nRow ALIGN "C"
      @ nRow ,  1 PRINT TO oPrn TEXT aDatos[i,6] SIZE 7,.5 CM FONT oFont LASTROW nRow ALIGN "C"    
      @ nRow ,  1 PRINT TO oPrn IMAGE "..\bitmaps\olga1.jpg" SIZE 4, 4 CM LASTROW nRow
   ENDPAGE 

   ENDPRINT

RETURN nil
Esta es la imagen de fondo
Image
Asi se ve el preview
Image
Asi se ve el PDF generado seleccionando la impresora Microsoft Print to PDF
Image
Asi se ve el PDF generado desde el preview
Image

Alguno sugerencia?

Re: Preview a PDF con imagen de fondo

Posted: Wed Jun 19, 2024 2:59 pm
by karinha
Buen dia. Si usted usar PDFMACHINE.exe impresora virtual, funciona bién! Mira:

https://imgur.com/c3g6OrT

Image

https://broadgun.com/pdfmachine/pdfmachine-white/

Regards, saludos.

Re: Preview a PDF con imagen de fondo

Posted: Wed Jun 19, 2024 3:14 pm
by karinha
Testes:

Code: Select all | Expand

#include "FiveWin.ch"

FUNCTION Main()

   // 1  2       3     4      5   6   7     8       9
   LOCAL aDatos := { ;
      { "Juan 1", "Pago 1", "Juan", "Pedro", "1000", "Algo 1" }, ;
      { "Juan 2", "Pago 2", "Juan", "Pedro", "2000", "Algo 2" }, ;
      { "Juan 3", "Pago 3", "Juan", "Pedro", "3000", "Algo 3" }, ;
      { "Juan 4", "Pago 4", "Juan", "Pedro", "4000", "Algo 4" }, ;
      { "Juan 5", "Pago 5", "Juan", "Pedro", "5000", "Algo 5" }, ;
      { "Juan 6", "Pago 6", "Juan", "Pedro", "6000", "Algo 6" }, ;
      { "Juan 7", "Pago 7", "Juan", "Pedro", "7000", "Algo 7" };
      }

   ImprimoRecibos( aDatos )

RETURN NIL

FUNCTION ImprimoRecibos( aDatos )

   LOCAL oPrn, oFont, n := 0, nRow, i := 1, aSizes, oBrush

   // PRINT oPrn PREVIEW

   PRINT oPrn DOC "RECIBOS" PREVIEW MODAL

   // PRINT oPrn PREVIEW FILE "RECIBOS.pdf"

      DEFINE FONT oFont NAME "Arial" SIZE 36, 70 // FONT AQUI

      oPrn:SetPortrait()
      oPrn:SetPage(9)

      nRow := 4

      PAGE

         // @ 0.5,.6 PRINT TO oPrn IMAGE "NEW.PNG" SIZE 8, 3 CM GRAY

         // @ 0, 0 PRINT TO oPrn IMAGE "fondo.jpg" SIZE oPrn:nHorzRes(), oPrn:nVertRes() PIXEL GRAY

         @ 0, 0 PRINT TO oPrn IMAGE ALLTRIM( "FONDO.jpg" ) SIZE oPrn:nHorzRes(), oPrn:nVertRes() PIXEL GRAY

         // FUNCIONA
         // oPrn:SayImage( 0, 0, "FONDO.jpg", oPrn:nHorzRes(), oPrn:nVertRes(), NIL , .T., CLR_GRAY )

         @ nRow,  1 PRINT TO oPrn TEXT aDatos[ i, 1 ] SIZE 7, .5 CM FONT oFont LASTROW nRow ALIGN "C"
         @ nRow,  1 PRINT TO oPrn TEXT aDatos[ i, 2 ] SIZE 7, .5 CM FONT oFont LASTROW nRow ALIGN "C"
         @ nRow,  1 PRINT TO oPrn TEXT aDatos[ i, 3 ] SIZE 7, .5 CM FONT oFont LASTROW nRow ALIGN "C"
         @ nRow,  1 PRINT TO oPrn TEXT aDatos[ i, 4 ] SIZE 7, .5 CM FONT oFont LASTROW nRow ALIGN "C"
         @ nRow,  1 PRINT TO oPrn TEXT aDatos[ i, 5 ] SIZE 7, .5 CM FONT oFont LASTROW nRow ALIGN "C"
         @ nRow,  1 PRINT TO oPrn TEXT aDatos[ i, 6 ] SIZE 7, .5 CM FONT oFont LASTROW nRow ALIGN "C"

         @ nRow,  1 PRINT TO oPrn IMAGE "..\bitmaps\olga1.jpg" SIZE 4, 4 CM LASTROW nRow

      ENDPAGE

   ENDPRINT

   // NO FUNCIONA
   // FWSavePreviewToPDF( oPrn, "RECIBOS.pdf", .F. )

RETURN NIL
 
Regards, saludos.

Re: Preview a PDF con imagen de fondo

Posted: Wed Jun 19, 2024 3:15 pm
by cmsoft
Gracias Jao por responder, pero quiero usar las clases nativas de Fivewin.
Esto es lo que quiero resolver.
cmsoft wrote: Asi se ve el PDF generado desde el preview
Image
Porque de hecho en la impresión a PDF desde Microsoft Print to PDF tambien funciona bien
Tal vez estoy haciendo algo mal en la definicion

Re: Preview a PDF con imagen de fondo

Posted: Wed Jun 19, 2024 3:32 pm
by karinha
César, con ADOBE:

https://imgur.com/ZUBZUUD

Image

Regards, saludos.

Re: Preview a PDF con imagen de fondo

Posted: Wed Jun 19, 2024 3:40 pm
by cmsoft
Claro, pero ahi no sale en modo marca de agua (el degradez gris)
La idea es que el PDF generado respete las caracteristicas del Preview

Re: Preview a PDF con imagen de fondo

Posted: Wed Jun 19, 2024 3:56 pm
by karinha
cmsoft wrote:Claro, pero ahi no sale en modo marca de agua (el degradez gris)
La idea es que el PDF generado respete las caracteristicas del Preview
Creo, sea un BUG del FiveWin, ó el ADOBE és antiguo.

Mira usando .PNG

https://imgur.com/rx9fRTV

Image

Regards, saludos.

Re: Preview a PDF con imagen de fondo

Posted: Wed Jun 19, 2024 4:00 pm
by cmsoft
Pero si presionas ahi en generar pdf (en el boton del preview) como te genera el pdf?
Porque la vista previa esta bien, lo que queda mal es el pdf generado

Re: Preview a PDF con imagen de fondo

Posted: Wed Jun 19, 2024 4:22 pm
by karinha
César con este modelo, funciona bién el .PDF con GRAY y SIN GRAY.

https://imgur.com/zVOt9JV

Image

Code: Select all | Expand

#include "FiveWin.ch"

FUNCTION Main()

   // 1  2       3     4      5   6   7     8       9
   LOCAL aDatos := { ;
      { "Juan 1", "Pago 1", "Juan", "Pedro", "1000", "Algo 1" }, ;
      { "Juan 2", "Pago 2", "Juan", "Pedro", "2000", "Algo 2" }, ;
      { "Juan 3", "Pago 3", "Juan", "Pedro", "3000", "Algo 3" }, ;
      { "Juan 4", "Pago 4", "Juan", "Pedro", "4000", "Algo 4" }, ;
      { "Juan 5", "Pago 5", "Juan", "Pedro", "5000", "Algo 5" }, ;
      { "Juan 6", "Pago 6", "Juan", "Pedro", "6000", "Algo 6" }, ;
      { "Juan 7", "Pago 7", "Juan", "Pedro", "7000", "Algo 7" };
      }

   ImprimoRecibos( aDatos )

RETURN NIL

FUNCTION ImprimoRecibos( aDatos )

   LOCAL oPrn, oFont, n := 0, nRow, i := 1, aSizes, oBrush

   // PRINT oPrn PREVIEW

   // PRINT oPrn DOC "RECIBOS" PREVIEW MODAL

   PRINT oPrn PREVIEW FILE "RECIBOS.pdf" MODAL

      DEFINE FONT oFont NAME "Arial" SIZE 36, 70 // FONT AQUI

      oPrn:SetPortrait()
      oPrn:SetPage(9)

      nRow := 4

      PAGE

         @ 0.5,.6 PRINT TO oPrn IMAGE "COMPANY.PNG" SIZE 8, 3 CM // GRAY

         // @ 0, 0 PRINT TO oPrn IMAGE "fondo.jpg" SIZE oPrn:nHorzRes(), oPrn:nVertRes() PIXEL GRAY

         // @ 0, 0 PRINT TO oPrn IMAGE ALLTRIM( "FONDO.jpg" ) SIZE oPrn:nHorzRes(), oPrn:nVertRes() PIXEL GRAY

         @ 400, 0 PRINT TO oPrn IMAGE ALLTRIM( "COMPANY.PNG" ) SIZE oPrn:nHorzRes(), oPrn:nVertRes() PIXEL GRAY

         @ nRow,  1 PRINT TO oPrn TEXT aDatos[ i, 1 ] SIZE 7, .5 CM FONT oFont LASTROW nRow ALIGN "C"

         @ nRow,  1 PRINT TO oPrn TEXT aDatos[ i, 2 ] SIZE 7, .5 CM FONT oFont LASTROW nRow ALIGN "C"

         @ nRow,  1 PRINT TO oPrn TEXT aDatos[ i, 3 ] SIZE 7, .5 CM FONT oFont LASTROW nRow ALIGN "C"

         @ nRow,  1 PRINT TO oPrn TEXT aDatos[ i, 4 ] SIZE 7, .5 CM FONT oFont LASTROW nRow ALIGN "C"

         @ nRow,  1 PRINT TO oPrn TEXT aDatos[ i, 5 ] SIZE 7, .5 CM FONT oFont LASTROW nRow ALIGN "C"

         @ nRow,  1 PRINT TO oPrn TEXT aDatos[ i, 6 ] SIZE 7, .5 CM FONT oFont LASTROW nRow ALIGN "C"

         @ nRow,  1 PRINT TO oPrn IMAGE "..\bitmaps\olga1.jpg" SIZE 4, 4 CM LASTROW nRow

         // FUNCIONA
         // oPrn:SayImage( 0, 0, "FONDO.jpg", oPrn:nHorzRes(), oPrn:nVertRes(), NIL , .T., CLR_GRAY )

      ENDPAGE

   ENDPRINT

   // NO FUNCIONA
   // FWSavePreviewToPDF( oPrn, "RECIBOS.pdf", .F. )

RETURN NIL
 
Regards, saludos.

Re: Preview a PDF con imagen de fondo

Posted: Wed Jun 19, 2024 6:15 pm
by cmsoft
No, sigue saliendo mal
Y ademas no es la idea que lo ubique en un lugar de la hoja, sino como fondo de toda la hoja

Re: Preview a PDF con imagen de fondo

Posted: Wed Jun 19, 2024 7:10 pm
by karinha
Cesar, desculpe, mas no comprendo porque no puede ser asi:

Code: Select all | Expand

#include "FiveWin.ch"

FUNCTION Main()

   // 1  2       3     4      5   6   7     8       9
   LOCAL aDatos := { ;
      { "Juan 1", "Pago 1", "Juan", "Pedro", "1000", "Algo 1" }, ;
      { "Juan 2", "Pago 2", "Juan", "Pedro", "2000", "Algo 2" }, ;
      { "Juan 3", "Pago 3", "Juan", "Pedro", "3000", "Algo 3" }, ;
      { "Juan 4", "Pago 4", "Juan", "Pedro", "4000", "Algo 4" }, ;
      { "Juan 5", "Pago 5", "Juan", "Pedro", "5000", "Algo 5" }, ;
      { "Juan 6", "Pago 6", "Juan", "Pedro", "6000", "Algo 6" }, ;
      { "Juan 7", "Pago 7", "Juan", "Pedro", "7000", "Algo 7" };
      }

   ImprimoRecibos( aDatos )

RETURN NIL

FUNCTION ImprimoRecibos( aDatos )

   LOCAL oPrn, oFont, n := 0, nRow, i := 1, aSizes, oBrush

   // PRINT oPrn PREVIEW

   // PRINT oPrn DOC "RECIBOS" PREVIEW MODAL

   PRINT oPrn PREVIEW FILE "RECIBOS.pdf" MODAL

      DEFINE FONT oFont NAME "Arial" SIZE 36, 70 // FONT AQUI

      oPrn:SetPortrait()
      oPrn:SetPage(9)

      nRow := 4

      PAGE

         oPrn:SayImage( 0, 0, "FONDO.JPG", oPrn:nHorzRes(), oPrn:nVertRes(), NIL, .T., CLR_WHITE, CLR_HGRAY  )

         @ 0.5,.6 PRINT TO oPrn IMAGE "COMPANY.PNG" SIZE 8, 3 CM GRAY

         // @ 0.5,.6 PRINT TO oPrn IMAGE "COMPANY3.PNG" SIZE 8, 3 CM // GRAY

         // @ 0, 0 PRINT TO oPrn IMAGE "fondo.jpg" SIZE oPrn:nHorzRes(), oPrn:nVertRes() PIXEL GRAY

         // @ 0, 0 PRINT TO oPrn IMAGE ALLTRIM( "FONDO.jpg" ) SIZE oPrn:nHorzRes(), oPrn:nVertRes() PIXEL GRAY

         // @ 400, 0 PRINT TO oPrn IMAGE ALLTRIM( "COMPANY.PNG" ) SIZE oPrn:nHorzRes(), oPrn:nVertRes() PIXEL GRAY
         // 400, 0 PRINT TO oPrn IMAGE ALLTRIM( "COMPANY3.PNG" ) SIZE oPrn:nHorzRes(), oPrn:nVertRes() PIXEL // GRAY

         @ nRow,  1 PRINT TO oPrn TEXT aDatos[ i, 1 ] SIZE 7, .5 CM FONT oFont LASTROW nRow ALIGN "C"

         @ nRow,  1 PRINT TO oPrn TEXT aDatos[ i, 2 ] SIZE 7, .5 CM FONT oFont LASTROW nRow ALIGN "C"

         @ nRow,  1 PRINT TO oPrn TEXT aDatos[ i, 3 ] SIZE 7, .5 CM FONT oFont LASTROW nRow ALIGN "C"

         @ nRow,  1 PRINT TO oPrn TEXT aDatos[ i, 4 ] SIZE 7, .5 CM FONT oFont LASTROW nRow ALIGN "C"

         @ nRow,  1 PRINT TO oPrn TEXT aDatos[ i, 5 ] SIZE 7, .5 CM FONT oFont LASTROW nRow ALIGN "C"

         @ nRow,  1 PRINT TO oPrn TEXT aDatos[ i, 6 ] SIZE 7, .5 CM FONT oFont LASTROW nRow ALIGN "C"

         @ nRow,  1 PRINT TO oPrn IMAGE "..\bitmaps\olga1.jpg" SIZE 4, 4 CM LASTROW nRow

      ENDPAGE

   ENDPRINT

   // NO FUNCIONA
   // FWSavePreviewToPDF( oPrn, "RECIBOS.pdf", .F. )

RETURN NIL
 
Regards, saludos.

Re: Preview a PDF con imagen de fondo

Posted: Wed Jun 19, 2024 8:12 pm
by cmsoft
No puede ser así, porque lo que necesito es un fondo de hoja, que ocupe toda la hoja.
Igualmente, el ejemplo que me pasaste hace el mismo efecto de error cuando genero el PDF desde el PREVIEW que la imagen sale con un fondo gris que no representa como se ve en la imagen previsualizada

Re: Preview a PDF con imagen de fondo

Posted: Wed Jun 19, 2024 10:15 pm
by sysctrl2
Han probado con impresoras distintas?

Re: Preview a PDF con imagen de fondo

Posted: Wed Jun 19, 2024 10:35 pm
by sysctrl2
comprobado, solo en el prev se mira transparente :shock:

Re: Preview a PDF con imagen de fondo

Posted: Wed Jun 19, 2024 11:38 pm
by cmsoft
Claro, el preview se ve bien, pero al generar el pdf desde el preview se ve mal
Gracias Cesar por probar
All times are UTC
Page 1 of 3

Powered by phpBB® Forum Software © phpBB Limited