Foros Club Delphi - Como designar por codigo a una impresora.

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)

- - Como designar por codigo a una impresora. (https://www.clubdelphi.com/foros/showthread.php?t=18677)

Como designar por codigo a una impresora.

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

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

Código:

 ...

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

Código:

 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

muchas gracias, voy a verificarlo.
Saludos!!