[Caixa de Dialogo Emissão de CTe]

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

 

 

[Caixa de Dialogo Emissão de CTe]

Bom dia,

Realmente não está deixando de mostrar o status mesmo setando o valor para falso na propriedade "ACBrCTe1.DACTE.MostrarStatus" conforme informado. Rodei o  projeto exemplo localizado na pasta  "AcBr\Exemplos\ACBrDFe\ACBrCTe\Delphi DACTe FR" e nele adicionei as propriedade conforme  abaixo:

    ACBrCTe1.DACTE.MostrarStatus  := False;
    ACBrCTe1.DACTE.MostrarPreview := False;

e no cado do MostrarStatus não está funcionando.

Muito obrigado