Thomas

Desculpe a demora ao responder, talvez nem adiante a minha resposta, mas vamos lá... @hleorj não testei com QuebraLinhaEmDetalhamentoEspecifio = True. @Juliomar Marchetti A impressão em paisagem fiz a mesma alteração apesar de não anexar ai ela fica igual (Não tenho anexar agora) se ainda precisar posso conseguir.

@hleorj Segue em anexo. antes.pdf depois.pdf

Boa tarde, Realizei uma mudança na impressão das DANFEs do fortes em relação as tags de medicamentos nos produtos da NFe. Está mudança diminui o espaço ocupado pelas informações o que diminui bastante o consumo de folhas. Fontes alterados em anexo. Antes de implementar essa alteração atualizei os fontes. ACBrNFeDANFeRLRetrato.pas ACBrNFeDANFeRLRetrato.dfm ACBrNFeDANFeRLPaisagem.pas ACBrNFeDANFeRLPaisagem.dfm ACBrNFeDANFeRLClass.pas ACBrNFeDANFeRL.dfm

Ok, agora deu certo. Muito Obrigado!

Mesmo problema ocorre para mim.

Atualizei os componentes do Trunk2 e está me retornando a mensagem "Rejeicao: UF informada no campo cUF nao e atendida pelo Web Service" Estou passando RS no campo cUF . Alguém está com este problema?

Bom dia, Resolvi formatar o meu computador e reinstalei tudo novamente e agora funcionou tudo perfeitamente. Muito obrigado Régys pela atenção! Abraço.

Fiz o teste isolando o processo de geração do PDF fora da minha aplicação e realmente funciona, agora quando tento fazer a mesma coisa dentro da minha aplicação retorna o erro de Project ... raised exception class Exception with message 'File is corrupted'. O erro é gerado na linha 2566 do RLMetaFile. procedure TRLGraphicSurface.LoadFromStream(AStream: TStream); procedure LoadHeaderFromStream(AStream: TStream); var data: AnsiString; ch: char; I: Integer; begin SetLength(data, MaxSurfaceHeader); I := 0; while (I < MaxSurfaceHeader) and (AStream.Read(ch, 1) = 1) do begin Inc(I); data[I] := AnsiChar(ch); if ch = #26 then Break; end; SetLength(data, I); if data <> SurfaceHeaderStr then raise Exception.Create('File is corrupted!'); end; ....

Pessoal o problema persiste se alguém poder me ajudar agradeço.

Atualizei os pacotes ACBr, o progress até diz que serão 8 páginas, porém na hora de salvar o PDF ele fica em 1Kb.

Opa, gerando PDF.

Opa, mandei para o teu e-mail. Obrigado pela atenção

Boa Tarde Pessoal, Passei minha aplicação para Trunk 2 e mudei o report de Fast para o Fortes. Isso já faz algumas semanas e tudo ia bem, porém hoje um cliente meu esta tentando imprimir uma DANFE com 80 produtos e simplesmente o arquivo PDF não gera, até cria o PDF em 1kb, mas não gera nada dentro dele. Obs.: O xml está correto e validado, a nota está ok junto ao sefaz. Alguém tem alguma sugestão do que posso fazer? Agradeço!!

É no trunk. Vou passar a minha aplicação para o trunk 2 e mando novamente. Obrigado

Boa Tarde, Gostaria de fazer uma sugestão de melhoria para a impressão da DANFE em FastReport. Justificativa: O código atual cria linhas dentro do espaço destinado ao nome do produto, o que aumenta bastante o número de páginas da DANFe. No código que sugeri diminui bastante o consumo de folhas. Arquivo: ACBrNFeDANFEFRDM.pas Localização inicial: Linha 480. De: with med.Items[j] do begin vTemp2.Add('-LOTE: ' + nLote); vTemp2.Add(' QTDADE: ' + DFeUtil.FormatFloat(qLote)); vTemp2.Add(' FABR.: ' + DFeUtil.FormatDate(DateToStr(dFab))); vTemp2.Add(' VAL.: ' + DFeUtil.FormatDate(DateToStr(dVal))); vTemp2.Add(DFeUtil.SeSenao(vPMC > 0, ' PMC: ' + DFeUtil.FormatFloat(vPMC), '')); end; Para: with med.Items[j] do begin vTemp2.Add('-LOTE: ' + nLote+ ' QTDE: ' + DFeUtil.FormatFloat(qLote)+ ' FABR.: ' + DFeUtil.FormatDate(DateToStr(dFab))+ ' VAL.: ' + DFeUtil.FormatDate(DateToStr(dVal))+ DFeUtil.SeSenao(vPMC > 0, ' PMC: ' + DFeUtil.FormatFloat(vPMC), '')); end; Peço desculpas se este não for o local ideal do fórum para sugerir melhorias.