|
再び質問なのですが、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;
|