名前 題名 ▼ snail3さん > ▼ 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); GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link