Problemas com FastReport (Resolvido)

[Edu]

Bom dia amigos!

Estou com problemas num relatório usando fastreport. A impressão exibe normal mas ao sair da exibição o sistema para de funcionar. Alguém saberia me explicar o que estou errando ou teria algum exemplo? 

Obs.: Estou usando SqlRdd.

Segue o código:

FUNCTION Imprime_Caixa()

   local cQuery, cQuery2
    
   cQuery := "Select * from tb_caixa"
   cQuery2:= "Select * from tb_empresa"

   USE (cQuery)  ALIAS "CAIXA" SHARED NEW VIA "SQLRDD"
   USE (cQuery2) ALIAS "EMPRESA" SHARED NEW VIA "SQLRDD"

   oFrPrn:= frReportManager():New()

   oFrPrn:SetWorkArea("tb_empresa", Select("EMPRESA"))
   oFrPrn:SetWorkArea("tb_caixa", Select("CAIXA"))
   oFrPrn:LoadFromFile(".\caixa.fr3")

*   oFrPrn:DesignReport()  // modo design
   oFrPrn:ShowReport()     
   oFrPrn:ClearDataSets()
   oFrPrn:DestroyFR()

   CAIXA->(DBCLOSEAREA())
   EMPRESA->(DBCLOSEAREA())

RETURN NIL

*********************************

[Theotokos]

isso aconteceu comigo e resolvi chamando a rotina com MsgRun()

 

MsgRun("Imprimindo Relatorio","Relatorio",{|| Imprime_Caixa() })

 

 

 

[kapiaba]

// VAJA SE AJUDA:

FUNCTION...
	      oFrPrn := frReportManager():new()
	      oFrPrn:SetIcon(2) //1                       // Icone da janela do FRH
	      oFrPrn:SetTitle( cTitulo + nNumeroCCe ) // Titulo da janela do FRH
	      oFrPrn:SetWorkArea( 'empresa' , select('EMPRESA') )
	      cRes := "CARTA_CCE"  // EM: NFE.RES COMO RCDATA
	      oFrPrn:LoadFromResource( cRes )  // MUDEI EM: 31/10/2016 - Joao
 
      oFrPrn:PrepareReport()  // sem isso, nao gera o .PDF da CC-e
	      // inibe o botao de edicao do relatorio pelo usuario-seguranca.
      oFrPrn:PreviewOptions:SetAllowEdit( .F. )
	      oFrPrn:PreviewOptions:SetMaximized(.T.)
	      oFrPrn:PreviewOptions:SetZoomMode(2)  // 2 - 124% no visor.
	      // Numero de copias
      oFrPrn:PrintOptions:SetCopies( nCopias )
	      oFrPrn:SetProperty("PDFExport","FileName", CNOMEPDF ) // NOME DO .PDF
	      oFrPrn:SetProperty( "PDFExport","ShowDialog", .F. )  // .T. pede confirmacao
	      oFrPrn:SetProperty( "PDFExport", "Compressed", .T. )
      oFrPrn:SetProperty( "PDFExport", "EmbeddedFonts", .T. )
      oFrPrn:SetProperty( "PDFExport" ,"PrintOptimized",.T.)
	      oFrPrn:SetProperty( "PDFExport", "Subject", "" )
	      IF lChamaAdobe  // Chama o ADOBE Para Visualizacao junto com o Preview
         oFrPrn:SetProperty("PDFExport","OpenAfterExport",  .T. ) // Gera e mostra no ADOBE
      ELSE
         oFrPrn:SetProperty("PDFExport","OpenAfterExport",  .F. ) // Gera e Nao mostra ADOBE
      ENDIF
	      oFrPrn:DoExport("PDFExport")
	      IF lSemPreviewCCe // := .T. NAO QUERO PREVIEW - DIRETO NA IMPRESSORA.
	         // Pede a Impressora para Esolher uma Virtual, pois nao gera o .PDF aqui
         oFrPrn:PrintOptions:SetShowDialog(.F.) // .f. Direto na impressora
         oFrPrn:Print( .T. )
	      ELSE  // COM PREVIEW NO FASTREPORT
	         oFrPrn:ShowReport(1)   // aqui para gerar o preview do relatorio
	      ENDIF
	      //-- Limpa os datasets
      oFrPrn:ClearDataSets()
      //-- Fecha/Limpa
      oFrPrn:Clear()
      oFrPrn:ClearReports() // - clear all reports except report with number 0.
      //-- Destroi
      oFrPrn:DestroyFR()
	   lSemPreviewCCe := .F.
   lChamaAdobe    := .F. // Incluido em: 27/01/2014 Ver no Adobe Reader.
	RETURN NIL

 

[Edu]

Bom dia!

Consegui com a dica do Theotokos, apesar de não fazer muito sentido, mas...

Obrigado a todos!