ليست پرينتر هاي نصب شده ويندوز

[raeisi_15494]

سلام
چطور ميتوان ليست پرينتر هاي نصب شده روي ويندوز رادر يك كمبوباكس يا يك گريد
نمايش داد وهمچنين يكي از انها را به عنوان پرينتر پش فرض انخاب كرد

[سعید صابری]

سلام
uses printers
...

var
x:TPrinter;
j:Integer;
begin
x:=TPrinter.Create;
ComboBox1.Clear;
for j:=1 to x.Printers.Count-1 do
ComboBox1.Items.Add(x.Printers.Strings[j]);

در مورد يكي را بعنوان پيشفرض انتخاب كردن من نميدونم ولي شايد اين باشه:
x.PrinterIndex

[bmanfy]

این مقاله ای هستش که توسایت بود .
خیلی خوبه و به دردت میخوره .
http://barnamenevis.org/forum/showthread.php?t=96733