la clase de TheFull imprime apaisada?

[goosfancito]

Buenos dias.

Tengo un reporte en el cual las dos ultimas hojas deben ser impresa apaisadas (por la cantidad de columnas que contiene debo hacerlo)
si en la TIMPRIME le pongo:

Code: Select all

::SetLandScape()

Code: Select all

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

      PAGE

      ::SetLandScape()

      ::cabecera_A( )
      ENDPAGE

me tira todo el reporte apaisado, como debo proceder para que se imprima solo las dos ultimas?

Gracias.