Não abrir PrintDialog quando setar a propriedade Impressora no FastReport

[dorivansousa]

quando seta a ACBrNFeDANFEFR1.impressora ainda assim aparece a PrintDialog pra escolher a impresso, no FortesReport não.

se desabilitar a ACBrNFeDANFEFR1.ShowDialog ao visualizar o DANFe so imprime na impressora padrao sem opção pra escolher a impressora.

onde eu mudaria no fonte pra que nao apareça a printDialog se eu setar a impressora, assim como faz no FortesReport

 

[hleorj]

Estude o código a seguir;

procedure TDanfe.ImprimeDanfe( sXmlNome : String ; iNumeroCopias: Integer; bPreview, bPdf: Boolean; sProtocolo: String );
Var
  iTanProtocolo : Integer;
begin
  iTanProtocolo := Length( sProtocolo );
  with GlobalValues do
  begin
    With OBjDmDanfe.ACBrNFe1 do
    begin
      NotasFiscais.Clear;
      NotasFiscais.LoadFromFile( sXmlNome );
      OBjDmDanfe.ACBrNFeDANFEFR1.TributosFonte := 'IBTP';
      OBjDmDanfe.ACBrNFeDANFEFR1.ImprimirUnQtVlComercial  := True;
      OBjDmDanfe.ACBrNFeDANFEFR1.ImprimirTotalLiquido     := False;
      OBjDmDanfe.ACBrNFeDANFEFR1.ExibeCampoFatura         := false;
      OBjDmDanfe.ACBrNFeDANFEFR1.ExibirTotalTributosItem  := False;
      OBjDmDanfe.ACBrNFeDANFEFR1.fastfile                 := ExtractFilePath( Application.ExeName) +'Dll\DANFeRetratonovo.fr3';
      OBjDmDanfe.ACBrNFeDANFEFR1.ShowDialog               := false;
      OBjDmDanfe.ACBrNFeDANFEFR1.ExibeCampoFatura         := (NotasFiscais.Items[0].NFe.Ide.indPag <> ipOutras);
      danfe := OBjDmDanfe.ACBrNFeDANFEFR1;
      with danfe do
      begin
        Logo          := LogoEmpresa.Logo.DataString;
        MostrarStatus := false;
        if ( iTanProtocolo > 5) then
        begin
          NFeCancelada := true;
          ProtocoloNFe := sProtocolo;
        end;
        Email           := Emissor.Email;
        Fax             := Emissor.EMI_FAX;
        Sistema         := 'Desenvolvido por [email protected]';
        Site            := Emissor.Site;
        PathPDF         := PastaTemp;
        MostrarPreview  := bPreview;
        if bPreview then
          NumCopias := 1
        else
          NumCopias := iNumeroCopias;
      end;
      if bPdf then
        NotasFiscais.ImprimirPDF
      else
        NotasFiscais.Imprimir;
    end;
  end;
end;

 

[BigWings]

DANFE_FR.ShowDialog := DANFE_FR.Impressora = '';