printer selected is not valid как исправить

Ответ от Кот в сапогах[эксперт]
Беда.

Ответ от Андрей Мирошниченко[гуру]
Если через сеть имеете в виду вай фай то это оч трудно, надо вкл вай фай на компе, вкл принтер, пропечатать пароль на автонастроить принтер и потом много много арз пробывать печать регулярно очищая список печати чтобы небыло очериди.

Ответ от Полепкин Николай[новичек]
Здравствуйте!
Судя по результатам поиска в google сей баг не редок. Здесь тоже обсуждалось
Исключение "Printer selected is not valid" вылетает при попытке печати на сетевом принтере. Возникает не у всех и не всегда. Вот код, который (в моем случае) исправил баг:
procedure TfrxPrinter.UpdateDeviceCaps;
begin
if FDC=0 then RecreateDC(); //Simon Kroik (kroiksm@gmx.de) 27.04.2009 <<<<<<<<<<<<<
FDPI := Point(GetDeviceCaps(FDC, LOGPIXELSX), GetDeviceCaps(FDC, LOGPIXELSY));
if (FDPI.X = 0) or (FDPI.Y = 0) then
raise Exception.Create('Printer selected is not valid');
FPaperHeight := Round(GetDeviceCaps(FDC, PHYSICALHEIGHT) / FDPI.Y * 25.4);
FPaperWidth := Round(GetDeviceCaps(FDC, PHYSICALWIDTH) / FDPI.X * 25.4);
FLeftMargin := Round(GetDeviceCaps(FDC, PHYSICALOFFSETX) / FDPI.X * 25.4);
FTopMargin := Round(GetDeviceCaps(FDC, PHYSICALOFFSETY) / FDPI.Y * 25.4);
FRightMargin := FPaperWidth - Round(GetDeviceCaps(FDC, HORZRES) / FDPI.X * 25.4) - FLeftMargin;
FBottomMargin := FPaperHeight - Round(GetDeviceCaps(FDC, VERTRES) / FDPI.Y * 25.4) - FTopMargin;
end;
автор - kroiksm

Ответ от 22 ответа[гуру]