uses Printers;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
 Memo1.Lines.Assign(Printer.Printers);
end;

(25-09-2023, Saat: 15:34)Bay_Y Adlı Kullanıcıdan Alıntı: Herkese kolaylıklar ve hayırlı haftalar diliyorum.

Yaşamış olduğum bir sorun ile ilgili yardımınızı rica ediyorum. Aynı zamanda fikrinizi de almak istiyorum.

İşletim Sistemi : Windows 7, 10

2 adet XPrinter Ip yazıcıyı ip adreslerinden bilgisayara yüklüyorum. Yüklü olan bilgisayarda yüklediğim sayıda görünüyorlar. Aslında tek farkları bağlantı noktasındaki İp adresleri
yazıcıları ayırabilmek ve kullanıcıya seçtirebilmek için özelikle kısmından her birine isim verdim. Bilgisayarda verdiğim isimlerde 2 farklı yazıcı görüyor olmama rağmen delphi ile iyazıcı listesini çektiğimde sadece tek bir yazıcı görüyorum.

uses Printers;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
 Memo1.Lines.Assign(Printer.Printers);
end;

Bilgisayarda tanımlı yazıcı listesini okuduğumda 

sadece tek bir yazıcı geliyor oda XP-80C




Aslında bilgisayarlar network e bağlı fakat yüklü olan bilgisayarda tek bir tane göründüğü için ayrı ayrı yazdıramıyorum. Sorum bu şekilde ikisini FIRIN ve DÖNER olarak nasıl görebilirim.
Yazıcı tanımı olarak yazıcıindex numarası değil de p adresi vererek yazdırma işlemi yapabilir miyim ? 

Herkese şimdiden Teşekkürler.

        for var I := 0 to Printer.Printers.Count-1 do
       begin
               Memo1.Lines.Add(IntToStr((i+1))+'-'+Printer.Printers[i]);
       end;

cxMemo1.Lines.Assign( Printer.Printers );