[Lazarus-es] Printer.Printers

Claudio Romero clauslack en gmail.com
Lun Ago 2 16:57:25 CEST 2010


Bien
Primero identifica el nro de cada impresora, no se si hay algo mas
automatico (Algo con el nombre de la impresora, pero si cambias el
nombre de la impresora vuelves al mismo problema.)

if not PrintDialog1.Execute then exit;
ShowMessage(IntToStr(Printer.PrinterIndex));


Y luego un pedido sale en la impresora 0

pones
Printer.PrinterIndex:=0;

Otro pedido sale en la impresora 1

pones
Printer.PrinterIndex:=1;

La identificacion de cada impresora la puedes grabar en un archivo
INI, asi si cambian el orden de las impresoras, lo arreglas facil.


Saludos




More information about the Lazarus-es mailing list