Linhas tortas na impressão

[Ricardo Rohde]

Olá,

Estou com problema na impressão do boleto usando o FortesReport

Na primeira vez em que gero o boleto as linhas saem tudo bonitinho, já na segunda vez elas ficam todas tortas

o objeto é criado, passado as infos, gerado pdf e na sequência destruido 

[Juliana Tamizou]

Bom dia, 

Que esquisito, acontece em qualquer impressora?

Att.

[Ricardo Rohde]

Agora, Juliana Tamizou disse:

Bom dia, 

Que esquisito, acontece em qualquer impressora?

Att.

Juliana, eu não mando imprimir em impressora... no pc em que estou agora nem tem rsrsrs

eu dou um gerar pdf e imprimir pra exibir na tela, o mesmo o ocorre com bradesco e banco do brasil

meu código está assim... eu achei um outro tópico no forum mas o mesmo está sem resposta 

  Boleto := TACBrBoleto.Create(nil);
  BoletoFR := TACBrBoletoFCFortes.Create(nil);
  Boleto.ACBrBoletoFC := BoletoFR;

Boleto.ACBrBoletoFC.LayOut := lPadrao;

Boleto.Cedente ......

Boleto.LayoutRemessa

Titulo := Boleto.CriarTituloNaLista;
with Titulo do
 preenche com todos os dados necessarios...
...
Boleto.ACBrBoletoFC.NomeArquivo := diretorio
    Boleto.GerarPDF;
    Boleto.Imprimir;
    FreeAndNil(BoletoFR);
    FreeAndNil(Boleto);

 

 

[Antonio Gomes]

fastreport vi isso acontecer também, só quando gera pdf.

[Ricardo Rohde]

problema q isso acontece tanto em tela como em PDF

[antonio_jr]

Alguém consegui resolver?

[barrys]

comigo tb acontece isso!
na primeira impressao, vai normal.  mas as seguintes fica tudo torto.

[Juliomar Marchetti]

Olha só o bom é pegar e colher informações para que possamos entender.

Windows é o mesmo de todos?

Versão do Delphi?

Ocorre em ambos? Fortes e Fast?

[barrys]

23 horas atrás, Juliomar Marchetti disse:

Olha só o bom é pegar e colher informações para que possamos entender.

Windows é o mesmo de todos?

Versão do Delphi?

Ocorre em ambos? Fortes e Fast?

* Windows 7 em todos

* Delphi Berlin

* Só uso Fortes

[antonio_jr]

No meu caso consegui resolver tirando do meu fonte essa função que eu usava arredonda ro valor "RoundTo5", acho que ela dava conflito com alguma coisa do LAYOUT do BOLETO. Procura no fonte do sistemas de vocês se estão usando essa função, ou verifica se esta fazendo conta de trucar ou arredondar, divisão.

[BigWings]

35 minutos atrás, antonio_jr disse:

No meu caso consegui resolver tirando do meu fonte essa função que eu usava arredonda ro valor "RoundTo5", acho que ela dava conflito com alguma coisa do LAYOUT do BOLETO. Procura no fonte do sistemas de vocês se estão usando essa função, ou verifica se esta fazendo conta de trucar ou arredondar, divisão.

Essa função chama a SetRoundMode da unit Math.

Ela altera globalmente a forma como são calculados os arredondamentos, então aparentemente é algo com o Fortes Report, quando o modo está configurado como rmDown ou rmUp.

Foi o que descobri nos testes.

Chamando SetRondMode(rmNearest); antes de executar o método de impressão ou geração do PDF deve resolver.

Ou alterando a função RoundTo5 para voltar ao modo anterior:

var
  rm: TRoundingMode;

[...]

  rm := GetRoundMode;
  try
    xDecimais := Copy(xValor, p + 1, Length(xValor));
    if Length(xDecimais) > nCasas then
    begin
      if xDecimais[nCasas + 1] >= '5' then
        SetRoundMode(rmUP)
      else
        SetRoundMode(rmNearest);
    end;
    nValor := RoundTo(Valor, Casas);
  finally
    SetRoundMode(rm);
  end;

 

[Ricardo Rohde]

eu coloquei em produção uma versão aqui, antes de chamar print ou preview seto  o  SetRoundMode(rmNearest);

 

vamos ver se faz diferença

[barrys]

boa tarde!!
Ricardo Rohde, conseguiu resolver?