Форум: "Начинающим";
Текущий архив: 2008.12.07;
Скачать: [xml.tar.bz2];
Внизпроцедура которая устанавливает принтер поумолчанию Найти похожие ветки
← →
Fynjy (2008-10-24 14:21) [0]здравствуйте! Есть процедура которая устанавливает принтер поумолчанию, работает нормально для локальных принтеров, но сетевой принтер(HP5100) не ставит, никто не знает почему?
вот процедура:
newDefPrinter-имя принтераprocedure Tform1.MySetDefaultPrinter(newDefPrinter: string);
var
Device, Driver, Port : array[0..255] of Char;
HdeviceMode: THandle;
aPrinter: TPrinter;
i:integer;
begin
Printer.PrinterIndex := -1;
aPrinter := TPrinter.Create;
try
for i := 0 to Printer.Printers.Count - 1 do
begin
if Printer.Printers[i] = newDefPrinter then
begin
aprinter.PrinterIndex := i;
aPrinter.getprinter(device, driver, port, HdeviceMode);
StrCat(Device, ","); StrCat(Device, Driver);
StrCat(Device, ","); StrCat(Device, Port);
WriteProfileString("windows", "device", Device);
StrCopy(Device, "windows");
SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, Longint(@Device));
SendMessage(HWND_BROADCAST, WM_SETTINGCHANGE, 0, Longint(@Device));
end;
end;
finally
aPrinter.Free;
end;
end;
← →
wl © (2008-10-24 14:56) [1]как выглядит строка для сетевого принтера? \\server\printer?
← →
Fynjy (2008-10-24 15:05) [2]вот! точно, я не правильно писал имя принтера. Спасибо!
← →
www (2008-10-24 17:37) [3]а если он будет недоступен?
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.12.07;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.005 c