Mit Seattle getestet und es funktioniert (W8.1 x64, W10 x64) mit dem Code wie gewünscht.
Ich verwende aber auch den - in meinen Augen korrekten - Code
Delphi-Quellcode:
Printer.Title := 'Some Title';
Printer.BeginDoc;
try
...
Printer.EndDoc;
except
Printer.Abort;
raise;
end;
@TomF
Ich sehe nicht wie ein
Application.ProcessMessages
hier helfen könnte.
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9
dc 90 9d f0 e9 de 13 da 60)