Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.04;
Скачать: 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 вся ветка

Текущий архив: 2004.04.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.023 c
1-1079598011
Jao Dao Dzen
2004-03-18 11:20
2004.04.04
время между двумя событиями


3-1078331682
Тимохов
2004-03-03 19:34
2004.04.04
Тип decimal.


7-1074178573
проблематик
2004-01-15 17:56
2004.04.04
ListView


6-1075285165
va
2004-01-28 13:19
2004.04.04
Exchange server


8-1070709041
Михааааааааааааа
2003-12-06 14:10
2004.04.04
ScrollBar