Marcos Gerene

Consegui resolver o problemas. Tentei de varias formas com o .inc conforme o Ítalo falou, mas não obtive sucesso, entao barrei o IF do define QReport_PDF em todos os lugares que ele me impedia de fazer algo e funcionou perfeitamente, está gerando o PDF perfeitamente no lugar correto, o arquivo está ok, consigo visualizar e imprimir normalmente. Obrigado a todos pela força e até mais =)

Puts, tem varios mas estão todos em pasta de fontes (fontes que nao são meus) , acredito que nao vao interferir, na pasta do ACBR so existe este e devidamente alterado...

o código que te descrevi acima só executa se o IF que está entre {} for verdadeiro, e este if nunca é verdadeiro, mesmo como define estando descomentado no .inc que voce comentou... eu quis dizer que o codigo não é executado (cursor com F7/F8 não entra)...

Bom dia a todos, Estou com um problema com os PDFs também... Os XMLs estão sendo salvos corretamente na pasta que eu indiquei, mas não consigo salvar o PDF dos CTe's... A minha versão do Quick Report é a 4.06, já descomentei a linha conforme falou o Ítalo mas mesmo assim se eu no comando "CTE.Conhecimentos.ImprimirPDF;" expandir até o momento em que gera o PDF o cursor nunca execura o que está dentro do {$IFDEF QReport_PDF}... Código (estou usando o Demo) {$IFDEF QReport_PDF} var qf : TQRPDFDocumentFilter; i : Integer; {$ENDIF} begin {$IFDEF QReport_PDF} with Create ( nil ) do try FCTe := ACTe; FLogo := ALogo; FEmail := AEmail; FImprimeHoraSaida := AImprimeHoraSaida; FHoraSaida := AHoraSaida; FResumoCanhoto := AResumoCanhoto; FFax := AFax; FNumCopias := ANumCopias; FSistema := ASistema; FUrl := AUrl; FUsuario := AUsuario; FMargemSuperior := AMargemSuperior; FMargemInferior := AMargemInferior; FMargemEsquerda := AMargemEsquerda; FMargemDireita := AMargemDireita; FExpandirLogoMarca := AExpandirLogoMarca; FPosRecibo := APosRecibo; for i := 0 to ComponentCount -1 do begin if (Components is TQRShape) and (TQRShape(Components).Shape = qrsRoundRect) then begin TQRShape(Components).Shape := qrsRectangle; TQRShape(Components).Pen.Width := 1; end; end; AfterPreview := True; QRCTe.Prepare; qf := TQRPDFDocumentFilter.Create(AFile); qf.CompressionOn := False; QRCTe.QRPrinter.ExportToFilter( qf ); qf.Free; finally Free; end; {$ENDIF} ---------- Agradeço desde já a ajuda, Att, Marcos Spirito.