METHOD PrintPage() CLASS TPreview

METHOD PrintPage() CLASS TPreview

Postby thefull » Mon Feb 27, 2012 5:31 pm

Buenas Antonio
Me ocurre una cosa muy muy rara.
En un reporte que tenga más de una pagina, el boton de imprimir muestra el dialog ; DEFINE DIALOG oDlg RESOURCE "PRINT"
Pero.. si salgo he intento imprimir, el dialogo ya no vuelve a aparecer.
He puesto unos warnigs;


SET RESOURCES TO ::cResFile
? ::cResFile // Se muestra

// El dialgo SOLO lo crea la primera vez, despues ya no vuelve a salir...
DEFINE DIALOG oDlg RESOURCE "PRINT"

REDEFINE BUTTON ID 101 OF oDlg ;
ACTION oThis:PrintPrv( oDlg, nOption, nFirst, nLast )

REDEFINE BUTTON ID 102 OF oDlg ACTION oDlg:End()

REDEFINE RADIO oRad VAR nOption ID 103, 104, 105 OF oDlg ;
ON CHANGE If( nOption==3 ,;
( oPageIni:Enable(), oPageFin:Enable() ),;
( oPageIni:Disable(), oPageFin:Disable() ) )

REDEFINE GET oPageIni ;
VAR nFirst ID 106 PICTURE "@K 99999" ;
VALID If( nFirst < 1 .or. nFirst > nLast, ( MsgBeep(), .F. ), .T. ) ;
OF oDlg

REDEFINE GET oPageFin ;
VAR nLast ID 107 PICTURE "@K 99999" ;
VALID If( nLast < nFirst .or. nLast > Len( ::oDevice:aMeta ), ; // DEVICE
( MsgBeep(),.F. ), .T.) OF oDlg

oPageIni:Disable()
oPageFin:Disable()

SetResources( hOldRes )

ACTIVATE DIALOG oDlg ON INIT Msginfo( "H0LA" ) // Sale SOLO LA PRIMERA VEZ

? "SE MUESTRA"


Decir que es una mezcla de CUI y GUI, desde CUI se llama al preview de FWH mostrando la impresión.
Me gustaria enseñarte si te va bien... realmente, no vuelve a crear ese dialogo...

Saludos
Saludos
Rafa Carmona ( rafa.thefullARROBAgmail.com___quitalineas__)
User avatar
thefull
 
Posts: 729
Joined: Fri Oct 07, 2005 7:42 am
Location: Barcelona

Return to Bugs report & fixes / Informe de errores y arreglos

Who is online

Users browsing this forum: No registered users and 2 guests