Boa Tarde,
Analisando a UNIT ACBrCTeDACTEFR.pas o método ImprimirDACTE realmente não está setando o valor da propriedade ACBrCTe1.DACTE.MostrarStatus, sendo assim sempre irá mostrar o status da impressão. veja o trecho do código abaixo do arquivo referenciado:
procedure TACBrCTeDACTEFR.ImprimirDACTE(ACTE: TCTe);
begin
if PrepareReport(ACTE) then
begin
frxReport.PrintOptions.Copies := NumCopias;
frxReport.PreviewOptions.AllowEdit := False;
if MostrarPreview then
frxReport.ShowPreparedReport
else
begin
// frxReport.PrepareReport(false);
if MostrarStatus then
frxReport.PrintOptions.ShowDialog := True
else
frxReport.PrintOptions.ShowDialog := False;
frxReport.PrintOptions.Printer := Impressora;
frxReport.Print;
end;
end;
end;
Deve adicionar a configuração do frxReport para não mostrar o status da impressão, frxReport.ShowProgress := False, ou seja:
procedure TACBrCTeDACTEFR.ImprimirDACTE(ACTE: TCTe);
begin
if PrepareReport(ACTE) then
begin
frxReport.PrintOptions.Copies := NumCopias;
frxReport.PreviewOptions.AllowEdit := False;
if MostrarPreview then
frxReport.ShowPreparedReport
else
begin
// frxReport.PrepareReport(false);
if MostrarStatus then
frxReport.PrintOptions.ShowDialog := True
else
frxReport.PrintOptions.ShowDialog := False;
frxReport.ShowProgress := FMostrarStatus;
frxReport.PrintOptions.Printer := Impressora;
frxReport.Print;
end;
end;
end;
Aguardo um contato..
Muito Obrigado,
Ivan