Скачать: CL | DM;

Как получить имя принтера, установленного в системе по умолчанию?   Найти похожие ветки 

← →
Вован_   (2004-01-19 11:53) [0]

Собственно вопрос в теме:)

---

← →
Вован_   (2004-01-19 12:38) [1]

Ответ самому себе (часто ли так бывает:)?

1. Подключить unit Printers

2. Printer.Printers[Printer.PrinterIndex]

---

← →
Dingo   (2004-01-19 14:30) [2]

а на чистом API?

---

← →
Anatoly Podgoretsky ©   (2004-01-19 14:37) [3]

Исходные тексты модуля доступны.

---

← →
YuRock ©   (2004-01-19 15:05) [4]

Ф-ция PrintDlg()

---

← →
Penal   (2004-01-20 11:17) [5]

Писалось давно, выдрано грубо, м.б. чегото не хватает
Заполняет листбокс списком принтеров и позиционирует его на используемом по умолчанию.

const MaxPrint = 20;
var
 Buf: array [0..MaxPrint] of TPrinterInfo5;
 ByteCnt, StructCnt: cardinal;
 i: integer;
begin
 EnumPrinters(PRINTER_ENUM_LOCAL , nil, 5, @Buf, SizeOf(Buf), ByteCnt, StructCnt);
 for i:=0 to StructCnt-1 do begin
   Lb.Items.Add(Buf[i].pPrinterName);
   If (Buf[i].Attributes and PRINTER_ATTRIBUTE_DEFAULT) = PRINTER_ATTRIBUTE_DEFAULT then begin
     Lb.ItemIndex:=i;
     cd:=i;
   end;
 end;
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.02 c