Relatório FastReport

[Alain da Silva]

Pessoal, meu relatório feito no report sai a primeira página em branco (devagar) depois imprime o relatório de 7 paginas e imprime novamente uma página em branco.

O que esta errado.

#include "FiveWin.ch"

FUNCTION RELCLI()
   CARREGACONFIGPRINT()
   oFrPrn:= frReportManager():New()

   oFrPrn:SetWorkArea("ARQEMP", Select("ARQEMP"))
   oFrPrn:SetWorkArea("ARQCLI", Select("ARQCLI"))
   oFrPrn:LoadFromFile(".\relpadrao.fr3")


   oFrPrn:AddVariable("Cabecalho","NomeRel", "'"+"Relatório de Cliente"+"'")

   oFrPrn:DesignReport()  // Comentar para exibir report
   oFrPrn:ShowReport()   // Comentar para impressao direta
*  oFrPrn:ClearDataSets()
   oFrPrn:DestroyFR()
RETURN NIL

Obrigado

[kapiaba]

Veja se ajuda:

      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') )


      IF FILE( "C:\INST_NFE\CCE.FR3" )

         oFrPrn:LoadFromFile( "C:\INST_NFE\CCE.FR3" ) // para leitura direta de arquivo FR3

      ELSE

         oFrPrn:LoadFromFile( cDirExe + "CCE.FR3" )   // para leitura direta de arquivo FR3

      ENDIF


      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(FR_ZM_WHOLEPAGE)

      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()

[joaosolution]

Alain

Boa tarde

Acredito que o problema pode ser no arquivo .\relpadrao.fr3

Verifique se você não criou mais de uma página no arquivo, no topo da tela Page 1 e Page 2

Att

João Bosco

[Alain da Silva]

boa noite João, só tem uma page1. E também a banda ReportTitle1 só sai na primeira página, nas páginas seguintes ele não coloca. Qual a propriedade para sair em todas as páginas? Na Banda header eu marquei ReprintonNew e ele sai nas outras folhas mas o título não.

Obrigado

[Alain da Silva]

resolvi colocando tudo dentro do pageheader.

[Alain da Silva]

Desconsiderar