TImprime

Post Reply
User avatar
goosfancito
Posts: 1956
Joined: Fri Oct 07, 2005 7:08 pm

TImprime

Post by goosfancito »

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
karinha
Posts: 7948
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil
Been thanked: 3 times
Contact:

Re: TImprime

Post by karinha »

Intenta:

Code: Select all | Expand


   oPrn:Landscape := .T.
 


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

Re: TImprime

Post by karinha »

Algo asi:

Code: Select all | Expand


     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: 7948
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil
Been thanked: 3 times
Contact:

Re: TImprime

Post by karinha »

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
goosfancito
Posts: 1956
Joined: Fri Oct 07, 2005 7:08 pm

Re: TImprime

Post by goosfancito »

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

Re: TImprime

Post by goosfancito »

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
karinha
Posts: 7948
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil
Been thanked: 3 times
Contact:

Re: TImprime

Post by karinha »

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
goosfancito
Posts: 1956
Joined: Fri Oct 07, 2005 7:08 pm

Re: TImprime

Post by goosfancito »

Gracias.
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
Post Reply