Hola Antonio
Tu crees que este Report tiene un page o un endapage de más?
Pues en este Report cuando termina de imprimir hacia el Preview las 2,3, 4 o X páginas, sale el error.
Si me dijeras en la clase Tprinter pues no sé me lo miraría mucho los Pages EndPages, pero alli solo me da un error 1131
Bound Array en Tpreview:BottomPage y no presenta todas las páginas, sólo la primera, y si pinchas el boton última página
sale ese error.
Pero aqui, en cualquier Report que le ponga el preview sale ese error 6, y mis reports son como este del código que te pongo.
No creo que sea por los Pages EndPages.
Un saludo Antonio
Pedro
Code: Select all
*-------------------------------------------------------------------------------
Function Reportea(cAlias,aTextos)
*-------------------------------------------------------------------------------
LOCAL oFont1, oFont2, oPen1, oPen2
Local oReport
Local nSele := SELECT()
DEFINE FONT oFont1 NAME "ARIAL" SIZE 0,-10
DEFINE FONT oFont2 NAME "ARIAL" SIZE 0,-9
DEFINE PEN oPen1 WIDTH 3 COLOR CLR_HGREEN
DEFINE PEN oPen2 WIDTH 1 COLOR CLR_HMAGENTA
dbSelectArea(cAlias)
(cAlias)->(dbGotop())
PrinterSetup()
REPORT oReport TITLE aTextos[1],"",aTextos[2],"" ;
FONT oFont1, oFont2 ;
PEN oPen1, oPen2 ;
HEADER "Fecha: "+dtoc(date()),"","Página:"+Str(oReport:nPage,3) RIGHT ;
PREVIEW
COLUMN TITLE "LIN" ;
DATA (cAlias)->(RECNO()) ;
PICTURE "999";
FONT 2 ;
GRID 2
COLUMN TITLE "CLIENTE" ;
DATA (cAlias)->CLIENTE ;
FONT 2 ;
GRID 2
COLUMN TITLE "NOMBRE" ;
DATA (cAlias)->NOMBRE ;
FONT 2 ;
GRID 2
COLUMN TITLE "FECHA" ;
DATA Dtoc((cAlias)->FECHA) ;
FONT 2 ;
GRID 2
COLUMN TITLE "NUMERO" ;
DATA (cAlias)->NUMERO ;
PICTURE "99,999";
FONT 2 ;
GRID 2
COLUMN TITLE "NETO " ;
DATA (cAlias)->BRUTO - ((cAlias)->IMPDTO + (cAlias)->IMPCENTR + (cAlias)->IMPRAPPEL + (cAlias)->IMPPTOPAGO) TOTAL ;
PICTURE "99,999.99";
FONT 2 ;
GRID 2
COLUMN TITLE "CUOTA IVA" ;
DATA (cAlias)->CUOTA TOTAL ;
PICTURE "99,999.99";
FONT 2 ;
GRID 2
COLUMN TITLE "RECGO IVA" ;
DATA (cAlias)->RECARGO TOTAL ;
PICTURE "99,999.99";
FONT 2 ;
GRID 2
COLUMN TITLE "TOTAL " ;
DATA (cAlias)->total;
PICTURE "999,999.99";
TOTAL ;
FONT 2 ;
GRID 2
COLUMN TITLE "GRASAS" ;
DATA (cAlias)->GRASAS ;
TOTAL ;
PICTURE "99,999.99";
FONT 2 ;
GRID 2
COLUMN TITLE "M" ;
DATA (cAlias)->marcado ;
FONT 2 ;
GRID 2
END REPORT
ACTIVATE REPORT oReport
oFont1:End()
oFont2:End()
oPen1:End()
oPen2:End()
oReport:End()
RETURN NIL