Otro problema con la vista previa

[Armando]

Amigos:

Sigo liado con la vista previa

En una aplicación creo un reporte con la TReport, la vista previa en mi PC de desarrollo
se ve de esta manera (Bien)



Pero en el servidor de mi cliente la vista previa se ve así (Mal), la muestra
en landscape



En mi código tengo definido el tipo de página y la orientación

Code: Select all | Expand

      oReporte:oDevice:SetPage(1)
      oReporte:oDevice:SetPortrait()
 

Alguna idea? de por donde van los tiros

Saludos

[karinha]

Armando, intenta asi:

Code: Select all | Expand

      oReport:oDevice:lPrvModal := .T. 
      oReport:oDevice:SetPage(9) //-> Formato A4
      // oReport:SetPortrait() //Vertical -> No funciona.
      PrnPortrait()   // vertical/Retrato
 

Regards, saludos.

[Armando]

Estimado Joa:

Es con la TReport, no con la TPrinter.

Saludos

[Antonio Linares]

Que resolución de pantalla y escala hay en cada PC ?

[karinha]

Armando,

Code: Select all | Expand

// C:\FWH\SAMPLES\CORHEAD.PRG

#include "fivewin.ch"
#include "report.ch"

FUNCTION Main()

   LOCAL oReport, oFont, oBold, oCol

   USE CUSTOMER NEW SHARED
   SET FILTER TO RecNo() <= 20
   GO TOP

   DEFINE FONT oFont NAME "TAHOMA"  SIZE 0, - 12
   DEFINE FONT oBold NAME "VERDANA" SIZE 0, - 13 BOLD

   REPORT oReport PREVIEW FONT oFont, oBold

      oReport:oDevice:lPrvModal := .T.
      oReport:oDevice:SetPage( 9 ) // -> Formato A4
      // oReport:oDevice:SetPortrait() //Vertical
      PrnPortrait()                // vertical/Retrato

      oReport:aClrText[ 1 ] := CLR_BLACK
      oReport:aClrText[ 2 ] := CLR_HRED

      COLUMN oCol TITLE "NAME" DATA FIELD->FIRST FONT 1

      oCol:bTitleFont   := {|| 2 }

      COLUMN oCol TITLE "CITY" DATA FIELD->CITY  FONT 1

      oCol:bTitleFont   := {|| 2 }

      ENDREPORT

   ACTIVATE REPORT oReport

   RELEASE FONT oFont, oBold

RETURN NIL
 

Regards ,saludos.

[Armando]

Que resolución de pantalla y escala hay en cada PC ?

Maestro:

En mi PC de desarrollo tengo 1920 x 1080 y
En el servidor de mi cliente hay 1024 x 768

Otros reportes creados con la misma TReport se ven perfectos, lo que me hace
pensar que es mi .PRG el que tiene algo mal. el tema es qué?

De hecho, al principio todo iba bien pero en algún cambio tronó, he ido deshaciendo
los últimos cambio pero no hay éxito. seguiré intentando.

Saludos