名前
題名
▼ KSCさん > 再び質問なのですが、SetUserPaperでユーザー用紙定義を追加 > しているのですが、アプリ起動中にユーザーがどのくらい > プリンターを切り替えているか分からないので、 > アプリのOnCloseQueryイベントで全てのプリンターに対して > DeleteUserPaperを実行したのですが、アプリ終了後に > 「プリンターとＦＡＸ」にて任意プリンターのプロパティー > で、追加したユーザー用紙定義が消えているかを確認しましたが、 > 消えていませんでした。 > > 下記のようなソースでは削除できないのでしょうか？ > > 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;
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link