Ref. a Impressão Remontada

[Leandro Vignoto]

Bom Dia !

  Gostaria de saber se alguém já passou por essa situação ou tem ideia do que pode ser.

  Tenho um processo de impressão automático que conforme as notas estão autorizadas as mesmas são impressas.

   Em determinados momentos, a impressão começa a sair "remontada" ver imagem do pdf.

   Não é possível simular a situação, pois ao fechar a aplicação e abrir a impressão volta ao normal. A impressão está em um timer por exemplo e os componentes são criados em tempo de execução

Citar

          localAcbrNfe := TACBrNFe.Create(nil);
          localACBrNFeDANFeRL := TACBrNFeDANFeRL.Create(nil);

              localACBrNFeDANFeRL := prepararACBrNFeDANFeRL(localACBrNFeDANFeRL);
              localACBrNFeDANFERL.Logo := FieldValues['ArqLog'];
              localACBrNFeDANFERL.Impressora := FieldValues['ImpPad'];
              localACBrNFeDANFERL.NumCopias := FieldValues['NumCop'];
              localACBrNFeDANFERL.MostrarPreview := False;
              localAcbrNfe.DANFE := localACBrNFeDANFeRL;

              localAcbrNfe.NotasFiscais.LoadFromString(FieldByName('XmlRetRel').AsString);

              if localAcbrNfe.NotasFiscais.Count > 0 Then
              Begin
                localAcbrNfe.NotasFiscais.Imprimir;
              End

 

function prepararACBrNFeDANFeRL(itemACBrNFeDANFeRL:TACBrNFeDANFeRL):TACBrNFeDANFeRL;
Begin
  itemACBrNFeDANFeRL.PathPDF := variaveisGlobais.DirTmp;
  itemACBrNFeDANFeRL.NFeCancelada := False;
  itemACBrNFeDANFeRL.MostrarPreview := True;
  itemACBrNFeDANFeRL.MostrarStatus := False;
  itemACBrNFeDANFeRL.NumCopias := 1;
  itemACBrNFeDANFeRL.PosCanhoto := prCabecalho;
  itemACBrNFeDANFeRL.MostraDadosISSQN := False;
  itemACBrNFeDANFeRL.ExibeCampoFatura := False;
  itemACBrNFeDANFeRL.DetCombustiveis := [];
  Result := itemACBrNFeDANFeRL;
End;
 

 

 

   Utilizo o fortes.

 

Att.

Leandro Vignoto

Documentos0315.pdf