Alain da Silva Posted July 12, 2016 Report Share Posted July 12, 2016 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 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted July 12, 2016 Report Share Posted July 12, 2016 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() Quote Link to comment Share on other sites More sharing options...
joaosolution Posted July 12, 2016 Report Share Posted July 12, 2016 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 Quote Link to comment Share on other sites More sharing options...
Alain da Silva Posted July 13, 2016 Author Report Share Posted July 13, 2016 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 Quote Link to comment Share on other sites More sharing options...
Alain da Silva Posted July 13, 2016 Author Report Share Posted July 13, 2016 resolvi colocando tudo dentro do pageheader. Quote Link to comment Share on other sites More sharing options...
Alain da Silva Posted July 13, 2016 Author Report Share Posted July 13, 2016 Desconsiderar Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.