名前
題名
▼ KSCさん > ▼ KSCさん > > procedure TPrevFrm.FormCloseQuery(Sender: TObject; var CanClose: Boolean); > > var > > i, n: Integer; > > begin > > n := Printer.PrinterIndex; > > try > > for i := 0 to plSetPrinter1.PrintersCount - 1 do begin > > plSetPrinter1.PrinterName := Printer.Printers[ i ]; > > plSetPrinter1.DeleteUserPaper( MyPaperName ); > > end; > > finally > > Printer.PrinterIndex := n; > > end; > > end; > > すいません。私の勘違いでした。 > 上記のソースで全プリンターに対してDeleteUserPaperは反応していました。
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link