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
#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
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 146 guests