|
▼ 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は反応していました。
|