by colthop » Fri Nov 30, 2007 5: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