Enviar una impresión a una impresora de Red

[[Luis M.]]

Hola.
No se si te servirá de ayuda, pero te explico un caso parecido.
Tengo un cliente que emite facturas y albaranes muy seguidos y perdia tiempo en
seleccionar las impresoras (una para facturas y la otra para albaranes), y a veces
se equivocaba.
La manera que lo corregí, fué instalando un switch para impresoras y solo tenía que cambiar
de botón según lo que quisiera imprimir (las impresoras las tenía al lado del ordenador).

En la DB del programa guardaba la la configuración de las dos impresoras y según sea el listado
a imprimir se seleccionada una.

Ejemplo:

Código Delphi [-]
var
  cPath: string;
begin
  DMList := TDMList.Create(Self);
  cPath := ExtractFilePath(Application.ExeName);
  DMList.QCAlbaran.Close;
  DMList.QCAlbaran.SQL.Text := 'Select * From calbaran Where Numero = '+
                                           QuotedStr(DM.CAlbaranNUMERO.AsString);
  frxReport1.LoadFromFile(cPath + 'REPORTS\Albaran.fr3');
  DM.Config.Open;
  frxReport1.PrintOptions.Printer := DM.ConfigPRINTER_LISTADOS.AsString;
  frxReport1.PrepareReport(True);
  frxReport1.Print;
  FreeAndNil(DMList);
  DM.Config.Close;
end;

La idea podría ser que teniendo las dos impresoras guardadas en la tabla de
configuración, marcases cual sería la que imprimiría por defecto.
En el caso que una fallase una, te vas a configuración y marcas la otra.
No se si me he explicado bien.