Dúvida se vai ou não imprimir o cupom após transmissão

[EXVASP]

Pessoal, boa tarde!

Sou novato no desenvolvimento do SAT, dai estou com a seguinte dúvida com relação a iniciar a impressão do cupom:

-Após  passar os dados para o componente acbrsat, eu realizo os seguintes passos:
  
 1 º ) Passo todos os dados para o componente acbrsat

 2 º) ACBrSAT1.EnviarDadosVenda( Men_dados_venda_envio.Text );

 3 º) 
  if ACBrSAT1.Resposta.codigoDeRetorno = 6000 then
  begin
    LoadXML( ACBrSAT1.CFe.AsXMLString,  mRecebido);
    PageControl1.ActivePage := tsRecebido;

     PrepararImpressao;
    
    ACBrSAT1.ImprimirExtrato;
     // pego o nº da chave 

  end;

Após essa estapa e o status = 6000 o componente ACBRSAT entende que já tem o cupom e inicia a impressão do cupom?
Falta alguma coisa no código que estou usando?

Desde já agradeço a todos.

[Sérgio Assunção]

19 horas atrás, EXVASP disse:

Pessoal, boa tarde!

Após essa etapa e o status = 6000 o componente ACBRSAT entende que já tem o cupom e inicia a impressão do cupom?
Falta alguma coisa no código que estou usando?

Desde já agradeço a todos.

Após o retorno 6000 o componente não inicia a impressão de forma automática. Veja como eu faço aqui...
 

if ACBrSAT.Resposta.codigoDeRetorno = 6000 then begin
   try
     PrepararImpressao;
     ACBrSAT.ImprimirExtrato;
   except
     ShowMessage('Houve um erro na impressão do extrato !'+#13+
                 'A 2a. via poderá ser emitida através do F5-MENU');
   end;
end else ShowMessage(ACBrSAT.Resposta.RetornoStr);

 

[EXVASP]

Em 21/01/2017 at 09:58, Sérgio Assunção disse:

Após o retorno 6000 o componente não inicia a impressão de forma automática. Veja como eu faço aqui...
 

if ACBrSAT.Resposta.codigoDeRetorno = 6000 then begin
   try
     PrepararImpressao;
     ACBrSAT.ImprimirExtrato;
   except
     ShowMessage('Houve um erro na impressão do extrato !'+#13+
                 'A 2a. via poderá ser emitida através do F5-MENU');
   end;
end else ShowMessage(ACBrSAT.Resposta.RetornoStr);

 

Vlw. Amigo!