Главная страница
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.033 c
1-1079419382
Dastin
2004-03-16 09:43
2004.04.04
Delphi


14-1078421101
wicked
2004-03-04 20:25
2004.04.04
БНФ


11-1056511674
SPeller
2003-06-25 07:27
2004.04.04
TKOLHttp


7-1074427195
Magician
2004-01-18 14:59
2004.04.04
Где ошибка в LOGONUSER


1-1079640831
Serzh ML
2004-03-18 23:13
2004.04.04
Чтение из потока,.