TImprime

TImprime

Postby goosfancito » Thu Dec 24, 2020 12:14 pm

Hola.

Necesito imprimir una hoja en formato vertical y la siguiente en formato horizontal, pero no logro hacerlo. Por el momento lo que hago es imprimir la vertical, cierro la previsualizacion y abro la previsualizacion de la horizontal.

Los valores impresos son tomados de un array.

Hay alguna otra manera?

gracias.
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
User avatar
goosfancito
 
Posts: 1954
Joined: Fri Oct 07, 2005 7:08 pm

Re: TImprime

Postby karinha » Thu Dec 24, 2020 1:54 pm

Intenta:

Code: Select all  Expand view  RUN

   oPrn:Landscape := .T.
 


Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7844
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: TImprime

Postby karinha » Thu Dec 24, 2020 2:02 pm

Algo asi:

Code: Select all  Expand view  RUN

     IMPRIME INIT "LISTADO"
     
      ::nHoja := 1
     
      PAGE
      ::cabecera()
      ::lineas( )
      ::total_hoja( )
      ENDPAGE
     
      [...]
      ::nHoja := 5

      PAGE

      ::SetLandScape()

      ::cabecera_A( )
      ENDPAGE
 


Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7844
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: TImprime

Postby karinha » Thu Dec 24, 2020 2:07 pm

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7844
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: TImprime

Postby goosfancito » Thu Dec 24, 2020 2:08 pm

Gracias!
voy a probar.
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
User avatar
goosfancito
 
Posts: 1954
Joined: Fri Oct 07, 2005 7:08 pm

Re: TImprime

Postby goosfancito » Sat Dec 26, 2020 10:25 am

Hola,
Recorde que esta forma de hcerlo:
::setLandscape()
hace que TODAS las hojas sean apaisadas, yo solo quiero la numero 3 de 6 hojas que tengo
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
User avatar
goosfancito
 
Posts: 1954
Joined: Fri Oct 07, 2005 7:08 pm

Re: TImprime

Postby karinha » Sat Dec 26, 2020 1:48 pm

Hecho sin precedentes. Creo que solo de forma manual. Muestre las hojas que se van a imprimir y pida al usuario que elija qué páginas imprimir.

Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7844
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: TImprime

Postby goosfancito » Sun Dec 27, 2020 12:37 pm

Gracias.
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
User avatar
goosfancito
 
Posts: 1954
Joined: Fri Oct 07, 2005 7:08 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 36 guests