FiveTech Software tech support forums

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

No logro definir tamaño de papel

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

Page 2 of 2

Re: No logro definir tamaño de papel resuelto

Posted: Thu Aug 15, 2024 10:32 am
by jpcavagnaro
Hola gracias por responder, pude solucionarlo con :

oPrn:setpage(1)
t := oPrn:GetPhySize()
? t[1], t[2]


oPrn:setpage(5)
t := oPrn:GetPhySize()
? t[1], t[2]

oPrn:setpage(5)
t := oPrn:GetPhySize()
? t[1], t[2]


Con esto si devuelve el tamaño de hoja que se estableció, de esta forma resolví mi problema

Muchas Gracias

Re: No logro definir tamaño de papel

Posted: Thu Aug 15, 2024 1:50 pm
by acuellar
Estimado jpcavagnaro

Si va a usar Centimetros

Intente con:

Code: Select all | Expand

 nAncho:=oPrn:PageWidth("CM")
 nAlto:=oPrn:PageHeight("CM")
  @1.0,5.9 PRINT TO oPrn TEXT "PRUEBA" SIZE nAncho,nAlto CM
 
Tambien puede usar CMSay, CMLine...

Re: No logro definir tamaño de papel

Posted: Thu Aug 15, 2024 4:36 pm
by karinha
Adhemar, muchas gracias estimado.

Code: Select all | Expand

// C:\FWH\SAMPLES\PRINTADH.PRG - By Adhemar.

#include "FiveWin.ch"

FUNCTION Main()

   LOCAL oPrn, oFont, oBold, n, nAncho, nAlto, nLinea, nColumn
   // 60 caracteres en el maximo
   LOCAL cTxt1 := "Lo que quiero es imprimir un informe en hoja A4 y que se"
   LOCAL cTxt2 := "respete el tamaño sin que tenga en cuenta la impresora  "
   LOCAL cTxt3 := "predeterminada. El tema es que se usa en varias pc y    "
   LOCAL cTxt4 := "tienen distintas impresoras y tamaños de papel          "
   LOCAL cTxt5 := "predeterminados y sale en algunas bien y en otras mal,  "
   LOCAL cTxt6 := "porque no se respeta el A4 que necesito.                "
   LOCAL cTxt7 := "Cómo imprimir en centímetros en cualquier impresora     "
   LOCAL cTxt8 := "                                     jpcavagnaro - Jorge"

   nLinea  := 2.0
   nColumn := 1.5

   PRINT oPrn PREVIEW

      DEFINE FONT oFont NAME "TAHOMA" SIZE 0, - 10 OF oPrn
      DEFINE FONT oBold NAME "TAHOMA" SIZE 0, - 18 OF oPrn BOLD

      oPrn:SetPage( 9 )   //-> A4 //9
      oPrn:SetPortrait()  //-> Vertical(Retrato)

      nAncho := oPrn:PageWidth("CM")
      nAlto  := oPrn:PageHeight("CM")

      PAGE

         @ nLinea, nColumn PRINT TO oPrn TEXT cTxt1 SIZE nAncho, nAlto CM ;
            FONT oBold

         nLinea := nLinea + 1.00

         @ nLinea, nColumn PRINT TO oPrn TEXT cTxt2 SIZE nAncho, nAlto CM ;
            FONT oBold

         nLinea := nLinea + 1.00

         @ nLinea, nColumn PRINT TO oPrn TEXT cTxt3 SIZE nAncho, nAlto CM ;
            FONT oBold

         nLinea := nLinea + 1.00

         @ nLinea, nColumn PRINT TO oPrn TEXT cTxt4 SIZE nAncho, nAlto CM ;
            FONT oBold

         nLinea := nLinea + 1.00

         @ nLinea, nColumn PRINT TO oPrn TEXT cTxt5 SIZE nAncho, nAlto CM ;
            FONT oBold

         nLinea := nLinea + 1.00

         @ nLinea, nColumn PRINT TO oPrn TEXT cTxt6 SIZE nAncho, nAlto CM ;
            FONT oBold

         nLinea := nLinea + 1.00

         @ nLinea, nColumn PRINT TO oPrn TEXT cTxt7 SIZE nAncho, nAlto CM ;
            FONT oBold

         nLinea := nLinea + 2.00

         @ nLinea, nColumn PRINT TO oPrn TEXT cTxt1 SIZE nAncho, nAlto CM ;
            FONT oBold

         nLinea := nLinea + 1.00

         @ nLinea, nColumn PRINT TO oPrn TEXT cTxt2 SIZE nAncho, nAlto CM ;
            FONT oBold

         nLinea := nLinea + 1.00

         @ nLinea, nColumn PRINT TO oPrn TEXT cTxt3 SIZE nAncho, nAlto CM ;
            FONT oBold

         nLinea := nLinea + 1.00

         @ nLinea, nColumn PRINT TO oPrn TEXT cTxt4 SIZE nAncho, nAlto CM ;
            FONT oBold

         nLinea := nLinea + 1.00

         @ nLinea, nColumn PRINT TO oPrn TEXT cTxt5 SIZE nAncho, nAlto CM ;
            FONT oBold

         nLinea := nLinea + 1.00

         @ nLinea, nColumn PRINT TO oPrn TEXT cTxt6 SIZE nAncho, nAlto CM ;
            FONT oBold

         nLinea := nLinea + 1.00

         @ nLinea, nColumn PRINT TO oPrn TEXT cTxt7 SIZE nAncho, nAlto CM ;
            FONT oBold

         nLinea := nLinea + 2.00

         @ nLinea, nColumn PRINT TO oPrn TEXT cTxt1 SIZE nAncho, nAlto CM ;
            FONT oBold

         nLinea := nLinea + 1.00

         @ nLinea, nColumn PRINT TO oPrn TEXT cTxt2 SIZE nAncho, nAlto CM ;
            FONT oBold

         nLinea := nLinea + 1.00

         @ nLinea, nColumn PRINT TO oPrn TEXT cTxt3 SIZE nAncho, nAlto CM ;
            FONT oBold

         nLinea := nLinea + 1.00

         @ nLinea, nColumn PRINT TO oPrn TEXT cTxt4 SIZE nAncho, nAlto CM ;
            FONT oBold

         nLinea := nLinea + 1.00

         @ nLinea, nColumn PRINT TO oPrn TEXT cTxt5 SIZE nAncho, nAlto CM ;
            FONT oBold

         nLinea := nLinea + 1.00

         @ nLinea, nColumn PRINT TO oPrn TEXT cTxt6 SIZE nAncho, nAlto CM ;
            FONT oBold

         nLinea := nLinea + 1.00

         @ nLinea, nColumn PRINT TO oPrn TEXT cTxt7 SIZE nAncho, nAlto CM ;
            FONT oBold

         nLinea  := nLinea  + 3.00
         nColumn := nColumn + 4.50

         @ nLinea, nColumn PRINT TO oPrn TEXT cTxt8 SIZE nAncho, nAlto CM ;
            FONT oBold

         IF nLinea >= 27 // nueva pagina

            nLinea  := 2.0
            nColumn := 1.5

            ENDPAGE

            PAGE

            @ nLinea, nColumn PRINT TO oPrn TEXT cTxt1 SIZE nAncho, nAlto CM ;
               FONT oBold

            nLinea := nLinea + 1.00

            @ nLinea, nColumn PRINT TO oPrn TEXT cTxt2 SIZE nAncho, nAlto CM ;
               FONT oBold

            nLinea := nLinea + 1.00

            @ nLinea, nColumn PRINT TO oPrn TEXT cTxt3 SIZE nAncho, nAlto CM ;
               FONT oBold

            nLinea := nLinea + 1.00

            @ nLinea, nColumn PRINT TO oPrn TEXT cTxt4 SIZE nAncho, nAlto CM ;
               FONT oBold

            nLinea := nLinea + 1.00

            @ nLinea, nColumn PRINT TO oPrn TEXT cTxt5 SIZE nAncho, nAlto CM ;
               FONT oBold

            nLinea := nLinea + 1.00

            @ nLinea, nColumn PRINT TO oPrn TEXT cTxt6 SIZE nAncho, nAlto CM ;
               FONT oBold

            nLinea := nLinea + 1.00

            @ nLinea, nColumn PRINT TO oPrn TEXT cTxt7 SIZE nAncho, nAlto CM ;
               FONT oBold

            nLinea := nLinea + 2.00

            @ nLinea, nColumn PRINT TO oPrn TEXT cTxt1 SIZE nAncho, nAlto CM ;
               FONT oBold

            nLinea := nLinea + 1.00

            @ nLinea, nColumn PRINT TO oPrn TEXT cTxt2 SIZE nAncho, nAlto CM ;
               FONT oBold

            nLinea := nLinea + 1.00

            @ nLinea, nColumn PRINT TO oPrn TEXT cTxt3 SIZE nAncho, nAlto CM ;
               FONT oBold

            nLinea := nLinea + 1.00

            @ nLinea, nColumn PRINT TO oPrn TEXT cTxt4 SIZE nAncho, nAlto CM ;
               FONT oBold

            nLinea := nLinea + 1.00

            @ nLinea, nColumn PRINT TO oPrn TEXT cTxt5 SIZE nAncho, nAlto CM ;
               FONT oBold

            nLinea := nLinea + 1.00

            @ nLinea, nColumn PRINT TO oPrn TEXT cTxt6 SIZE nAncho, nAlto CM ;
               FONT oBold

            nLinea := nLinea + 1.00

            @ nLinea, nColumn PRINT TO oPrn TEXT cTxt7 SIZE nAncho, nAlto CM ;
               FONT oBold

            nLinea := nLinea + 2.00

            @ nLinea, nColumn PRINT TO oPrn TEXT cTxt1 SIZE nAncho, nAlto CM ;
               FONT oBold

            nLinea := nLinea + 1.00

            @ nLinea, nColumn PRINT TO oPrn TEXT cTxt2 SIZE nAncho, nAlto CM ;
               FONT oBold

            nLinea := nLinea + 1.00

            @ nLinea, nColumn PRINT TO oPrn TEXT cTxt3 SIZE nAncho, nAlto CM ;
               FONT oBold

            nLinea := nLinea + 1.00

            @ nLinea, nColumn PRINT TO oPrn TEXT cTxt4 SIZE nAncho, nAlto CM ;
               FONT oBold

            nLinea := nLinea + 1.00

            @ nLinea, nColumn PRINT TO oPrn TEXT cTxt5 SIZE nAncho, nAlto CM ;
               FONT oBold

            nLinea := nLinea + 1.00

            @ nLinea, nColumn PRINT TO oPrn TEXT cTxt6 SIZE nAncho, nAlto CM ;
               FONT oBold

            nLinea := nLinea + 1.00

            @ nLinea, nColumn PRINT TO oPrn TEXT cTxt7 SIZE nAncho, nAlto CM ;
               FONT oBold

            nLinea  := nLinea  + 3.00
            nColumn := nColumn + 4.50

            @ nLinea, nColumn PRINT TO oPrn TEXT cTxt8 SIZE nAncho, nAlto CM ;
               FONT oBold

         ENDIF

      ENDPAGE

   ENDPRINT

   RELEASE FONT oFont, oBold

RETURN NIL

// FIN / END - kapiabafwh@gmail.com
 
Regards, saludos.

Re: No logro definir tamaño de papel

Posted: Thu Aug 15, 2024 7:41 pm
by acuellar
De nada estimado Joao

Para evitar ésto nLinea := nLinea + 1.00
Usa: LASTROW nLinea

Code: Select all | Expand

  @ nLinea, nColumn PRINT TO oPrn TEXT cTxt1 SIZE nAncho, nAlto CM  FONT oBold LASTROW nLinea 
      //   nLinea := nLinea + 1.00 //ya no es necesario 
 

Re: No logro definir tamaño de papel

Posted: Fri Aug 16, 2024 11:53 am
by karinha
acuellar wrote:De nada estimado Joao

Para evitar ésto nLinea := nLinea + 1.00
Usa: LASTROW nLinea

Code: Select all | Expand

  @ nLinea, nColumn PRINT TO oPrn TEXT cTxt1 SIZE nAncho, nAlto CM  FONT oBold LASTROW nLinea 
      //   nLinea := nLinea + 1.00 //ya no es necesario 
 
Gracias estimado. Simplesmente PERFECTO!! Thank you very much!

Regards, saludos.
All times are UTC
Page 2 of 2

Powered by phpBB® Forum Software © phpBB Limited