Fórum Impressão em impressora de rede #335551

var
  Save8087CW: Word;
...
  Save8087CW := Get8087CW;
  (*
   * se o seu Delphi não tiver Get8087CW, use isto:
   *
   * asm
   *    FStCW [Save8087CW]
   * end;
   *)
  Set8087CW($133F);

  ... seu código para fazer a impressão ...
  
  Set8087CW(Save8087CW);
...

procedure TfrmLaudodimensional.btn_imprimirClick(Sender: TObject);
var
Save8087CW: Word;
begin
  inherited;
     Set8087CW($133F); // Para imprimir em printer com Ethernet.

     Beep;
     dmTools.sqlcds_rel_laudo.Close;
     dmTools.sqlcds_rel_laudo.Params[0].AsInteger:=dmTools.cds_laudoCODLAD.AsInteger;
     dmTools.sqlcds_rel_laudo.Open;
     if dmTools.sqlcds_rel_laudo.RecordCount = 0 then
          Application.MessageBox(Pchar(´Erro ao carregar o relatório!´),´Atenção ! ! !´,MB_OK+MB_ICONERROR)
     else
     with Tfrmrel_laudo.Create(nil) do
     begin
          qrp_rel_laudo.Preview;
          Free;
     end;
     asm
       FStCW [Save8087CW]
     end;
end;

procedure TfrmLaudodimensional.btn_imprimirClick(Sender: TObject);
var
  Save8087CW: Word;
begin
  inherited;

  Beep;
...
  if dmTools.sqlcds_rel_laudo.RecordCount = 0 then
...
  else begin
    asm
      FStCW [Save8087CW]
    end;
    Set8087CW($133F);

    with Tfrmrel_laudo.Create(nil) do begin
      qrp_rel_laudo.Preview;
      Free;
    end;

    Set8087CW(Save8087CW);
  end;
end;