FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Consulta de PREVIEW
Posts: 505
Joined: Sat Apr 22, 2006 09:09 AM
Consulta de PREVIEW
Posted: Fri Nov 30, 2007 02:46 PM

Hola otra vez:

Estoy haciendo un reporte con PREVIEW y cuando entra en el PREVIEW quita el menu que esta en este momento y pone en la primera linea el menu principal, hay alguna manera de quitar este menu.

Gracias

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.
Posts: 505
Joined: Sat Apr 22, 2006 09:09 AM
Consulta de PREVIEW
Posted: Fri Nov 30, 2007 05:25 PM

Hola de nuevo:
Sigo investigando y lo que hace al crearme el PREVIEW es crear una nueva ventana maximizada y le incorpora el menu principal y la barra de botones, me podrias indicar si sabeis como se puede quitar el codigo es:

DEFINE FONT oFont1 NAME "LUCIDA CONSOLE" SIZE 0, -12 BOLD
DEFINE FONT oFont2 NAME "LUCIDA CONSOLE" SIZE 0, -9
PrinterSetup()
if opci14 = 2
REPORT oReporte TITLE "L I S T A D O D E E M P R E S A S" CENTER ;
HEADER "Empresa : " + empr, "Nombre : " + trim(momb), " " LEFT ;
FOOTER " ", "Fecha : " + dtoc( datita ), "Página: " + STR( oReporte:nPage,10) RIGHT ;
FONT oFont1, oFont2 FROM USER
else
REPORT oReporte TITLE "L I S T A D O D E E M P R E S A S" CENTER ;
HEADER "Empresa : " + empr, "Nombre : " + trim(momb), " " LEFT ;
FOOTER " ", "Fecha : " + dtoc( datita ), "Página: " + STR( oReporte:nPage,10) RIGHT ;
FONT oFont1, oFont2 ;
PREVIEW MODAL CAPTION "Listado Empresas" FROM USER
endif
COLUMN TITLE "NĂşmero" DATA numero SIZE 6 FONT 2
COLUMN TITLE "Apellidos, Nombre" DATA apellidos+ ","+ nombre SIZE 53 FONT 2
COLUMN TITLE "N.I.F." DATA cif SIZE 9 FONT 2
COLUMN TITLE "DirecciĂłn" DATA cladir + " " + direccion + " " + numdir SIZE 34 FONT 2
COLUMN TITLE "Teléfono" DATA Telefono SIZE 9 FONT 2
COLUMN TITLE "Teléfono" DATA Telefono2 SIZE 9 FONT 2
COLUMN TITLE "Fax" DATA fax SIZE 9 FONT 2
COLUMN TITLE "" DATA "" SIZE 0 FONT 1
END REPORT
ACTIVATE REPORT oReporte while !eof()
oFont1:End()
oFont2:End()

opci14 determina si desea vista previa o no.
un saludo

Colt Hop ED, S.L.
Carlos Blas Fernández Domínguez
Tlfo: 645847093
E-Mail: carlos@colthop.es

Nunca se termina de aprender, por eso necesito siempre ayuda.
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Consulta de PREVIEW
Posted: Fri Nov 30, 2007 05:29 PM

Carlos,

Puedes quitarle el menu y la barra de botones, modificando el cĂłdigo de source\classes\rpreview.prg

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion