Printer.Title проблем

Накратко, задаването на това property през QReport (QRpt.Page.PrinterSettings.Title) или направо от TPrinter няма никакъв ефект (в PrintManager излиза празно заглавие на PrintJob-а). В нета е описана причината (bug във VCL), но не намерих решение. Пише, че проблемът е в D5 но аз го имам в D6. Да не съм проспал нещо?

За Delphi 5 и 6:

това не е читаво:
printer.BeginDoc;
printer.Title := 'Doc Title';
printer.Canvas.TextOut(10,10, 'WAMA');
printer.EndDoc;

обаче това е:
printer.Title := 'Doc Title';
printer.BeginDoc;
printer.Canvas.TextOut(10,10, 'WAMA');
printer.EndDoc;

Title може да се каже и след старитане на документа /със SetJob/, обаче иска JobID, което е резултат от StartDoc /вика се в Printer.BeginDoc/. Обаче борланци са го отебали...

Am I evil?
Yes I am.

10x, ще видя дали мога да ползвам тази схема съвместно с QReport (печатам през него).
Offtopic:
Мразя го този QuickReport! Пише, че поддържа двустранен печат само с обръщане по дългата страна (ок, устройва ме), обаче на практика го прави само по късата независимо какво му казвам в PrintSetup, да го...
И FreeReport мразя вече - RichText полетата гърмят в runtime.
И FastReport мразя - не мога да намеря безплатна, но но не много архивна версия...
И поредни именни дни мразя - като се почерпя и ме мързи да търся...

p.s. Проблемът с гърмежите в рънтайм на ФрееРепорт се оказа от мен - отправям си един RTFM!!!