- Offizieller Beitrag
21.8.2016
Since a few days this simple code (no wp* unit involved)
Code
procedure TForm1.Button1Click(Sender: TObject);
var s : String;
begin
s := TimeToStr(Now);
Printer.Title := s;
Printer.BeginDoc;
Printer.Canvas.TextOut(500,500,s );
Printer.EndDoc;
end;
will only work the first time, fail the second time, and cause the an exception the third time.
This happens on my system with Adobe Destiller and MS Print to FAX. The Epson printer seems to work fine.
This was probably introduced by a windows update. It is not a problem specific to WPTools.
I reproduced the problem with Delphi 7, XE3 and also 10.1.
Kind Regards,
Julian