macs Posted February 7, 2018 Report Share Posted February 7, 2018 Pessoal, boa tarde! Gostaria de saber se existe alguma configuração a ser feita ao imprimir no fastreport. Para visualizar a impressão de uma página demora uma eternidade. Alguém tem ideia do que eu possa está fazendo de errado ou deixando de fazer? Fico no aguardo. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 7, 2018 Report Share Posted February 7, 2018 Rede Wirelles? Sem mostrar o código, fica difícil ayudar. Abs. Quote Link to comment Share on other sites More sharing options...
macs Posted February 7, 2018 Author Report Share Posted February 7, 2018 && -- Instanciando Classe de Relatório oFrPrn := FrReportManager():new() WITH OBJECT oFrPrn && -- Setando o Ícone a ser utilizado :SetIcon(1) && -- Definindo o Título da Jánela do Relatório :SetTitle( ::cDialog ) && -- Definindo as áreas de a serem utilizadas no relatório :SetWorkAreas( ::aWorkArea ) && -- Configurando o Arquivo FR3 configurado :LoadFromFile( cPathFr3 + Alltrim( ::cFileFastReport ) ) && -- Executando o Relatório :ShowReport(1) && -- Limpando os Datasets :ClearDataSets() && -- Finalizando classe estanciada :DestroyFR() END Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 7, 2018 Report Share Posted February 7, 2018 Veja 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", "Outline", .F. ) // .t. nao funciona 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() ENDIF lSemPreviewCCe := .F. lChamaAdobe := .F. // Incluido em: 27/01/2014 Ver no Adobe Reader. RETURN NIL Quote Link to comment Share on other sites More sharing options...
Theotokos Posted February 7, 2018 Report Share Posted February 7, 2018 Vc utiliza alguma imagem (BMP, JPG, etc) como logo algo assim? É que a tive problema qdo coloquei uma imagem de logotipo no relatório e o arquivo era muito grande... ai mesmo redimensionando no FR3 ficava muito lento... ai eu reduzir a imagem e coloquei novamente na fr3,,, no meu caso era isso e resolveu... Ah.. aconteceu tmb em um fr3 de etiqueta que tiha tmb... pois imprimia um logotipo para cadas etiqueta ai vê só... imagem grande.. demorava muito... reduzir a imagem tmb e resolveu.. Quote Link to comment Share on other sites More sharing options...
ADutheil Posted February 7, 2018 Report Share Posted February 7, 2018 Como seu relatório é muito pesado deixou de ser fastreport e ficou fatreport. aferra and macs 2 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted January 20, 2020 Report Share Posted January 20, 2020 SetTitle: http://fivetechsupport.com/forums/viewtopic.php?f=3&t=17499 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.