Printing RichView with QRRVCtrls (Quickreport)

[dasSYSTeam]

Hi,

I’m using TRichViewEdit and TQRRichView and TQRDBRichView for printing. It works fine, but there seems to be a problem with some Windows-Fonts.
If I print them, some Fonts are not printed in TQRRichView or TQRDBRichView, for example Garamond, Old English and many other Windows-Fonts.
They work fine when I print for example with TQRRichText (look at the screenshot)

Example:

procedure PrintRV;
var XQRRV : TQRRichView;
begin
XQRRV:=TQRRichView.Create(Self);
XQRV.SetBounds(...);
XQRRV.Parent:=TitleBand1;
XQRRV.LoadRVFFile(filename);
Quickreport.Preview;
XQRV.Free;
end;

where QuickReport is placed in MainForm and has a TitleBand and filename is a RVF - File with textlines with different Windows-Fonts.

I use Windows 7 and Delphi XE7 with the QRCtrls-Unit at runtime because there was no possibility to install the QRVCtrls in Delphi XE7.

Did anyone have the same Problem and solved it? Thank you for reading this.

dasSYSTeam

[Sergey Tkachenko]

Please send me a simple project reproducing this problem.

[dasSYSTeam]

Hello Sergey,

thank you for response.

I use Windows 7 and Delphi XE7 with the QRCtrls-Unit at runtime because there was no possibility to install the QRVCtrls in Delphi XE7.
So I had to add RVQRCtrls and others to the uses - clause and create TQRDBRichView at runtime. I add my small demo - project.
It prints two files: rtfdemo.rtf with TQRRichText and rvdemo.rvf with TQRRichView. Some Windows-Fonts are not printed with RichView.
I could not find out the difference for example between Segoe UI and Garamond, what is not printed.
We use Quickreport 5 Professional.

I also mailed with H. v Bokhorst. He tried to print my rvdemo.rvf with his demo-Project and it works fine. I compiled his demo.project and got the same error. I also tried my demo on other computers. I got the following result. On Computers, where for example Garamond or Bookman Old Style or other Fonts are installed, they were not printed. On computers without these fonts, the textline was printed with another font.

Thank you very much, I hope you can see the same effects, I would be glad to hear from you soon

with best regards

Bernd Graupe
dasSYSTeam GbR – Eggersdorf, Germany
E-Mail : [email protected]
Web : www.dasSYSTeam.de or www.bauAV.de

[Sergey Tkachenko]

Open RVQRCtrls.pas.

After the line:

Code: Select all

FRichView           := TRVReportHelper.Create(Self);

add:

Code: Select all

  FRichView.MetafileCompatibility := True;

[dasSYSTeam]

Hello Sergey,

Thank you very much. It works fine.

regards

Bernd