Impressão Carta de Correção - Trunk2

[IdealB]

Alguém pode me ajudar quanto a Impressão da Carta de Correção - Trunk2?

Estou migrando para o trunk2 aos poucos conforme orientação e ao imprimir a carta de correção com um texto longo, ele não está quebrando linha.

grato.

 

Editado 5 Janeiro, 2016 por Ideal Brasil
erro no texto

[Sérgio Assunção]

Agora, Ideal Brasil disse:

Alguém pode me ajudar quanto a Impressão da Carta de Correção - Trunk2?

Estou migrando para aos poucos conforme orientação e ao imprimir a carta de correção com um texto longo, ele não está quebrando linha.

grato.

 

Veja no demo do ACBrNFe como é feito ...
 

  OpenDialog1.Title := 'Selecione a NFE';
  OpenDialog1.DefaultExt := '*.XML';
  OpenDialog1.Filter := 'Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';
  OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Arquivos.PathSalvar;
  if OpenDialog1.Execute then
  begin
    ACBrNFe1.NotasFiscais.Clear;
    ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);
  end;
    
  OpenDialog1.Title := 'Selecione o Evento';
  OpenDialog1.DefaultExt := '*.XML';
  OpenDialog1.Filter := 'Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';
  OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Arquivos.PathSalvar;
  if OpenDialog1.Execute then
  begin
    ACBrNFe1.EventoNFe.Evento.Clear;
    ACBrNFe1.EventoNFe.LerXML(OpenDialog1.FileName) ;
    ACBrNFe1.ImprimirEvento;
  end;

 

[IdealB]

Obrigado Sérgio pelo retorno, na verdade minha duvida era quanto ao componente de impressão que antes eu usava o ACBrNFeDANFERave.

Mas consegui resolver só que apareceu outro problema.Texto muito grande não quebra linha na impressão.

 

veja imagem.

 

grato.

[Sérgio Assunção]

24 minutos atrás, Ideal Brasil disse:

Obrigado Sérgio pelo retorno, na verdade minha duvida era quanto ao componente de impressão que antes eu usava o ACBrNFeDANFERave.

Mas consegui resolver só que apareceu outro problema.Texto muito grande não quebra linha na impressão.

veja imagem.

grato.

Use o ; (ponto e virgula) seguido de um espaço. Assim irá fazer a quebra de linha.

 

// Prrenche os campos - "Correção"
rlmCorrecao.Lines.Add(StringReplace(InfEvento.detEvento.xCorrecao,
                      '; ', ';'#13#10, [rfReplaceAll, rfIgnoreCase]));