Error en preview en FWH 15-05

[groiss]

Cuando hago un preview de un documento impreso en formato apaisado, en esta versión la imagen del documento me pisa completamente las miniaturas de las páginas, si la página va en formato vertical no hay problema.
Un saludo

[Antonio Linares]

Jose Luis,

Acabo de probar el ejemplo FWH\samples\testprn3.prg y aqui lo hace bien.

Tendrías un ejemplo que lo reproduzca ? gracias

[groiss]

Antonio, perdona la demora, pero como verás he tenido que aislar bien el código, pues todo lo que hay alrededor es muy sensible, aquí te pongo el código como tal a mi se me ve mal es decir la imagen pisa la miniatura.

Code: Select all  Expand view

#INCLUDE "FIVEWIN.CH"
#INCLUDE "REPORT.CH"

STATIC oWnd



REQUEST HB_LANG_ESWIN
Request Hb_CodePage_ESWIN



FUNCTION Main()
public oBar, oBrush, oIcon,OCURDEDO ,conection, PRESCRIPTOR:="",USUARIO
PUBLIC USERAD,permiso,cusuario:="",supfont,ruta1,ruta2,rutadoc,perfil:="",persona:="",trata:=.f.,vertrata:=.f.
public agrad:= {{0.25, nRGB( 219, 230, 244 ), nRGB( 207, 221, 239 ) },{ 0.75, nRGB( 201, 217, 237 ), nRGB( 231, 242, 255 ) } }
public suptimer,hayconten:=.f.,paratimer:=.f.
HB_LANGSELECT('ESWIN')
HB_SetCodePage("ESWIN")

SET CENTURY ON
SET CONSOLE OFF
SET DATE ITALIAN
SET DECIMALS TO 0
set optimize on
SET DELETE ON
SET DELIMITERS OFF
SET EPOCH TO 1920
SET EXACT ON
SET EXCLUSIVE OFF
SET FIXED ON
SET PATH TO C:\LOTUS
SET DEFAULT TO
SET SOFTSEEK OFF
SET CURSOR OFF
SkinButtons()
SetDlgGradient( { { 1, nRGB( 201, 217, 237 ), nRGB( 231, 242, 255 ) } } )
SetGetColorFocus(RGB(238,232,170))
      DEFINE BRUSH oBrush STYLE NULL
      DEFINE FONT supFont NAME "MS SANS SERIF" size 0, -10 //"ARIAL" SIZE 0,-12
      DEFINE WINDOW oWnd FROM 1, 5 TO 20, 65   ;
             BRUSH oBrush                      ;
             TITLE "Módulo gestión de unidades ver. 4.0"


       oWnd:ofont:=supfont
      ACTIVATE WINDOW oWnd MAXIMIZED ON INIT (imptratacom())
RETURN( NIL )

function imptratacom()
local yilin:=0,xilin:=0,yflin:=0,xflin:=0
local oprn, ofont1, ofont,OFONT2, open , ofont3 ,ofont4, ofont5,ofont6, ofont7,open1, open2
local vnumero:=0,lafecha:=ctod("")
PRINTER oPrn DOC "INFORME"  preview
    DEFINE FONT oFont3 NAME "Arial" SIZE 0,-14 BOLD OF oPrn
    DEFINE FONT oFont1 NAME "Arial" SIZE 0,-10 OF oPrn
    DEFINE FONT oFont2 NAME "Arial" SIZE 0,-8 bold OF oPrn
        define font ofont name "Arial" SIZE 0,-8 of oprn
    DEFINE FONT oFont4 NAME "ArialN" SIZE 0,-16 BOLD OF oPrn
    DEFINE FONT oFont5 NAME "ArialN" SIZE 0,-12 bold OF oPrn
    DEFINE FONT oFont6 NAME "ArialN" SIZE 0,-10 bold OF oPrn
        define font ofont7 name "Arial" SIZE 0,-10 bold of oprn
        DEFINE PEN oPen2 WIDTH 12 of oprn
        DEFINE PEN oPen1 WIDTH 6 of oprn

        DEFINE PEN oPen WIDTH 3 of oprn
              oprn:SetLandscape()
          PAGE
          yilin:=0.9
              xilin:=23
              oPrn:Cmtr2Pix(@yilin, @xilin)
              *oPrn:SAYBITMAP(yilin, xilin,"LOGOSES",495,385  )
          yilin:=0.9
              xilin:=26
              oPrn:Cmtr2Pix(@yilin, @xilin)
              *oPrn:SAYBITMAP(yilin, xilin,"SEPAD",480,288  )
              oprn:cmsay(1.5,0.9, "CENTRO SOCIO-SANITARIO DE PLASENCIA", OFONT5)
              oprn:cmsay(0.9,0.9, "HOJA DE TRATAMIENTO", OFONT4)
              yilin:=2
              xilin:=0.9
              yflin:=2
              xflin:=22.5
          oPrn:Cmtr2Pix(@yilin, @xilin)
          oPrn:cmtr2Pix(@yflin, @xflin)
          oPrn:line(yilin, xilin, yflin, xflin, oPen2  )
              yilin:=2.8
              xilin:=0.8
              yflin:=4.4
              xflin:=28.5
          oPrn:Cmtr2Pix(@yilin, @xilin)
          oPrn:cmtr2Pix(@yflin, @xflin)
          oPrn:box(yilin, xilin, yflin, xflin, oPen2  )
              oprn:cmsay(3,15.2, "Unidad",ofont6)
              oprn:cmsay(3,19 ,"Nº Historia",ofont6)
              oprn:cmsay(3,23, "N.A.S.S",ofont6)
              oprn:cmsay(3.4,1, "Fecha Nacimiento",ofont6)
              oprn:cmsay(3.4,6, "Tipo dieta",ofont6)
              oprn:cmsay(3.4,17.5, "Médico",ofont6)
              oprn:cmsay(3.9,1, "ALERGIAS/OTRAS",ofont6)
              oprn:cmsay(4.5,1, "PRINCIPIO ACTIVO",ofont6)
              oprn:cmsay(4.5,6, "ESPECIALIDAD",ofont6)
              oprn:cmsay(4.5,16, "L.",ofont6)
              oprn:cmsay(4.5,12.5, "PAUTA",ofont6)
              oprn:cmsay(4.5,16.6, "INICIO",ofont6)
              oprn:cmsay(4.5,18.1, "FIN",ofont6)
              oprn:cmsay(4.5,19.5, "OBSERVACIONES",ofont6)
              yilin:=5
              xilin:=0.9
              yflin:=5
              xflin:=28.5
          oPrn:Cmtr2Pix(@yilin, @xilin)
          oPrn:cmtr2Pix(@yflin, @xflin)
          oPrn:line(yilin, xilin, yflin, xflin, oPen2  )
              yilin:=17
              xilin:=0.9
              yflin:=17
              xflin:=28.5
          oPrn:Cmtr2Pix(@yilin, @xilin)
          oPrn:cmtr2Pix(@yflin, @xflin)
          oPrn:line(yilin, xilin, yflin, xflin, oPen2  )
              yilin:=17.2
              xilin:=5.2
              yflin:=19.9
              xflin:=17
          oPrn:Cmtr2Pix(@yilin, @xilin)
          oPrn:cmtr2Pix(@yflin, @xflin)
          oPrn:box(yilin, xilin, yflin, xflin, oPen1  )
              yilin:=17.2
              xilin:=17.2
              yflin:=19.9
              xflin:=22.5
          oPrn:Cmtr2Pix(@yilin, @xilin)
          oPrn:cmtr2Pix(@yflin, @xflin)
          oPrn:box(yilin, xilin, yflin, xflin, oPen1  )
              yilin:=17.2
              xilin:=22.7
              yflin:=19.9
              xflin:=28.5
          oPrn:Cmtr2Pix(@yilin, @xilin)
          oPrn:cmtr2Pix(@yflin, @xflin)
          oPrn:box(yilin, xilin, yflin, xflin, oPen1  )
              oprn:cmsay(17.1,1, "Fecha de emisión",ofont6)
              oprn:cmsay(17.2,5.3 ,"Plan de cuidados",ofont6)
              oprn:cmsay(17.2,17.3, "El FACULTATIVO,",ofont5)
              oprn:cmsay(17.2,22.8, "EL ENFERMERO/A,",ofont5)
              oprn:cmsay(18.2,1, "Nº DE ORDEN",ofont6)
          oprn:cmsay(3.9,18.3, "Ingreso: ",ofont5)
              oprn:cmsay(17.5,2.1,dtoc(date()),ofont)
              oprn:cmsay(18.6,2.1,str(vnumero,12,0),ofont)
              oprn:cmsay(20,24,"Impreso el: "+DTOC(date()),ofont6)


          endpage
    ENDPRINT
    oFont:End()
    ofont1:end()
        open:end()
return nil
 

Un saludo

[Antonio Linares]

José Luis,

Muchas gracias por tu ejemplo. Lo acabo de probar y me aparece bien:



Puedes poner una imagen de como te aparece a ti ?

[groiss]

Así me aparece a mi:

Gracias

[Antonio Linares]

José Luis,

Que resolución de pantalla usas ?

[groiss]

Antonio:
La resolución que utilizo es de 1200x1024, pero pienso que debería presentarse bien entodas las resoluciones. ¿ No?
Saludos

[Antonio Linares]

José Luis,

Una solución es que quites la barra lateral usando antes de generar ese reporte:

TPreview():lListViewHide := .T.

y posteriormente cambiándolo a .F.

[groiss]

Antonio:
Eso haré, no actualizaba desde la 1204, y pensé que sería interesante la vista en miniaturas, pues así los profesionales ven que el tratamiento es de mas de una página, de una forma mas evidente, pues no puedo depender de las resoluciones de los monitores pues hay mas de 70 equipos ejecutando la misma aplicación y son de caracteristicas muy dispares.
Muchas gracias por tu tiempo.
Un saludo