▼ Mr.XRAYさん
「えいやー」で plSetPrinter.pas を直してみました。
あっているか分かりませんが とりあえずエラーは出ていません。
procedure TplSetPrinter.ChangeCurrentPrinter;
begin
FPrinterNumber := GetPrinterIndexFromString(FPrinterName);
if ( 0 <= FPrinterNumber ) and ( FPrinterNumber < Printer.Printers.Count ) then // A 12/08/13
Printer.PrinterIndex := FPrinterNumber
else
Printer.PrinterIndex := (-1);
|