Como designar por codigo a una impresora.

[Ricsato]

Hola, me gustaria que alguien me ayudara respecto a como poder designar mediante codigo en tiempo de ejecucion a una impresora, en mi computadora tengo como predeterminada una impresora LaserJet Hp 1200 Series conectada al puerto USB y una impresora Termica DataMax 400 conectada al puerto paralelo. Cuando ejecuto mi sistema cada vez que quiero imprimir etiquetas, tengo que hacer el cambio de impresoras hacia la cual quiero hacer mi imprimesion, por lo tanto deseo evitar este paso y que cuando entre a la opcion de imprimir etiquetas designar mediante codigo la impresora Datamax para que todo lo que mande imprimir sin tener que hacer el cambio de impresoras, se redireccione a esa y al salir de esta opcion, regresar como predeterminada a la impresora anterior.

Espero que me puedan asesorar y de antemano muchas gracias.

Ricardo.
Saludos desde Mexicali, Baja California, Mexico

[lroblesco]

Esta es una manera de hacerla. Puedes poner una condicion antes de mandar imprimir. Creas una archivo ini con estas caracteristicas
[IMPRESORAS]
ETIQUETAS=SP40
LISTADO_STOCKS=Lexmark Optra W810
A3=SuperLexmark

 ...
const
  PrintersIni = 'c:\ImpJulia\Printers.ini';
.....

function TBaseListado.GetImpresora(Impresora: string) : integer;
var
  Ini : TIniFile;
  Imp : string;
  i : integer;
begin
  if FileExists(PrintersIni) then
  begin
    Ini := TIniFile.Create(PrintersIni);
    Imp := Ini.ReadString('IMPRESORAS', Impresora, '');
    Ini.Free;
  end;

  if Imp = '' then
    Result := -1
  else
  begin
    // buscamos la impresora en las instaladas y devolvemos su índice
    for i := 0 to Printer.Printers.Count - 1 do
      if Pos(Imp, Printer.Printers[i]) <> 0 then Break;
    Result := i;
  end;
end;

Y luego, desde algún lugar y, antes de hacer el Print

 var
  Indice: integer;
begin
  .....
  Indice := GetImpresora('A3');
  if Indice <> -1 then
    Report.PrinterSettings.PrinterIndex := Indice;

esto fue publicado por cadetill espero y te sirva.
Saludos Cachanilla

[Ricsato]

muchas gracias, voy a verificarlo.
Saludos!!