Cerrar Previsualizacion de Reportes

[dobfivewin]

Estimados

Estoy Previsualizacion de Reportes antes de imprimirlos, como todos saben lo hace en segundo plano, la consulta es: como puedo cerrar esta previsualizacion si me cierran la aplicacion donde se generó dicha previsualizacion.

david
argentina

[QAZWSX2K]

hola, haz la previsualizacion asi: "preview MODAL "

[dobfivewin]

Estimados, muchas gracias por tu respuestas...

Inicializo la Impresion asi:

Code: Select all  Expand view

printersetup()

oPrn:=PrintBegin(Titulo,.F.,lPrv,,.T.)

DEFINE FONT oFnt1 NAME 'Arial'           SIZE 0,-9      OF oPrn
DEFINE FONT oFnt2 NAME 'Arial'           SIZE 0,-9 BOLD OF oPrn
DEFINE FONT oFnt3 NAME 'Arial'           SIZE 0,-12 BOLD OF oPrn // NESCAPEMENT 300
DEFINE FONT oFnt4 NAME 'Ms Sans SerIfl'  SIZE 0,-9      OF oPrn

oPrn:lPrvModal:=.T.
oPrn:SetPortrait()

etc.etc.etc.

donde sugeris que haga lo que me sugeris..

Ahora como dije antes, la Previsualizacion se realiza un 2° plano, osea que yo puedo volver a la aplicacion que generó dicha previsualizacion.... Se puede cerrar la misma desde de la aplicacion que genero el reporte??

salu2

david
argentina

[dobfivewin]

Hola Amigos...

No se si se puede hacer esto o es que no se puede...

salu2

david
argentina

[Antonio Linares]

David,

Que título te aparece en la ventana del preview ?

Se puede localizar esa ventana por el titulo y cerrarla, usando FindWindow()

[dobfivewin]

Gracias por la respuesta....

el titulo que me sale en la ventana es el colocado al crear el reporte:

oPrn:=PrintBegin(Titulo,.F.,lPrv,,.T.)

ahora, deberia poner asi ?

FindWindow(Titulo)

asi no hace nada....

gracias nuevamente

david
argentina

[Antonio Linares]

David,

SendMessage( FindWindow( 0, cTitulo ), WM_CLOSE )

Fijate en el cero antes del titulo

[dobfivewin]

Gracias Antonio por tu respuesta...

pero no cierra la venta de Preview ... y no me da ningun error

david
argentina

[dobfivewin]

Alguna otra opcion??

salu2

david

[dobfivewin]

[Patricio Avalos Aguirre]

Hola

Yo lo he solucionado de la siguiente manera.

Code: Select all  Expand view

procedure X()
local lPrn := .f.

define dialog...

redefine button .. ACTION ( lPrn := .t., imprimir(), lPrn := .f. )

activate dialog VALID iif( lPrn, (MsgInfo( "Favor cierre la impresion antes de salir", "Usuario" ), .f. ), .t. )

return
 

[dobfivewin]

Me parece una muy buena opcion... la voy a aplicar....

Muchas gracias

david
argentina

[Daniel Garcia-Gil]

David...

Haciendo una recopilacion de lo que he encontrado aqui puedes hacer lo siguiente.... lo he probado y funciona...

Puedes tener un array con solo los nombres de los reportes, este array lo pasas como parametro a la funcion que te crea el reporte y lo cargas depues de creado el reporte...
De esta forma siempre vas a tener el nombre del todas las ventanas en el modulo que crea el reporte

colocas un valid al window/dialog cerrando las ventanas que este abrio

Ejemplo

Code: Select all  Expand view

   
...
...    
     define window oWnd title "Test Report"
          CreaReporte( aRep )
     activate window oWnd valid( aEval( aRep, {| cName | sendmessage( findwindow( 0,cName ), WM_CLOSE ) } ), .t. )
...
...

   Functionn CreaReporte( aRep )
   
           REPORT oReport ;
          TITLE "*** LISTADO DE PRUEBA ***","",OemtoAnsi("FiveTech Software"),"" ;
          FONT oFont1, oFont2 ;
          HEADER "Fecha: "+dtoc(date()),"Hora:  "+time() ;
          FOOTER OemtoAnsi("P gina: ")+str(oReport:nPage,3) ;
          PREVIEW   // TO PRINTER
...
...

     ACTIVATE REPORT oReport

     aadd( aRep, oReport:cName )

return NIL
 

[dobfivewin]

Muchas gracias...

y con la clase TPRINTER como reemplazo esto: aadd( aRep, oReport:cName )



oPrn:=PrintBegin(Titulo,.F.,lPrv,,.T.)

aadd( aRep, oPrn:cName ) me da error al ejecutar

aadd( aRep, Titulo ) No me ningun error, pero NO me cierra la venta...

ahora..... esta bien que lo haga así?

Code: Select all  Expand view

....
  @ 3,  5 BUTTON 'Aceptar' OF oDlgReporte ;
                     ACTION ( FIC_EQUI2(mCODI) ,;
                            oDlgReporte:End() );
                   SIZE 50, 10

  @ 3, 25 BUTTON 'Salir'   OF oDlgReporte ACTION ( oDlgReporte:End() ) SIZE 50, 10

ACTIVATE DIALOG oDlgReporte CENTERED;
                ON INIT ( oCODI:SetFocus() , .f. )

aEval( aRep, {| cName | sendmessage( findwindow( 0,cName ), WM_CLOSE ) } )

return .t.

[Daniel Garcia-Gil]

El equivalente para la clase Print seria oPrn:cDocument

aadd( aRep, oPrn:cDocument )