为什么用Qreport输出的html文件，中文几乎一个字一个字都是竖着的？如何解决？100分(100分)

为什么用Qreport输出的html文件，中文几乎一个字一个字都是竖着的？如何解决？

这里下载 QuickReport.HTML.Export.Filter.for.Delphi6
http://www.8421.org/download.php?id=141
我一直在用，没有问题，还可以输出图片

设置一下字体，为宋体，或者取系统字体

楼上的解决不了问题，qr自带的export filer是几乎不能用的

to qdyoung:
不行啊，我安装了你说的控件，可是还是不行。输出的中文还是竖着的。是不是我的操作
不当还是QR的问题.

to qdyoung:
怎么用？你是否可以详细告之。

升级qr看，同一个地址下，最新的

我的代码：
procedure ReportExportHTML(QuickRep: TQuickRep;
const FileName: string);
var
AExportFilter : TQRGHTMLDocumentFilter;
begin
//begin
Wait('正在输出...');
QuickRep.ShowProgress := False;
AExportFilter := TQRGHTMLDocumentFilter.Create(FileName);
//下载的安装后才有
try
AExportFilter.SetHTMLBody(clWhite, '', 'alink="red"');
AExportFilter.TransparentTextBG := True;
AExportFilter.PictureDir := ExtractFileNamePart(FileName) + '.files';
AExportFilter.MultiPage := False;
AExportFilter.PageLinks := False;
CreateDir(AExportFilter.PictureDir);
QuickRep.ExportToFilter(AExportFilter)
finally
AExportFilter.Free;
end;
//EndWait;
end;

procedure ReportExportRTF(QuickRep: TQuickRep;
const FileName: string);
var
AExportFilter : TQRRTFExportFilter;
begin
//begin
Wait('正在输出...');
QuickRep.ShowProgress := False;
AExportFilter := TQRRTFExportFilter.Create(FileName);
try
ReportDesignForm.QuickRep.ExportToFilter(AExportFilter)
finally
AExportFilter.Free;
end;
//EndWait;
end;
如果需要输出样本，请告知

to qdyoung:
qr我现在已经是3.51的了，但是还是不行。你能不能把你做的样本看看？多谢了！

如果你下载并安装了QuickReport.HTML.Export.Filter.for.Delphi6，
那么我以上的代码就能够用，那输出的结果就是令人满意的，可以下载
我改进的TQRGHTMLDocumentFilter
把图片输出为jpeg格式，存储在 *.files目录下，
这样win下复制*.html文件时系统会自动把*.files目录也复制过来
地址：
http://www.8421.org/download.php?id=165
输出样本：
http://www.8421.org/images/pacs_00000008.htm

to qdyoung:
我把你的源码试了一下，无法运行，提示无法识别TQRGHTMLDocumentFilter，而我可是已经
安装的，是不是需要加单元文件？多谢！

提这样的问题会让许多人不耐烦的
uses
QRWebFilt;
并把QRWebFilt.pas所在路径加入Library path

to qdyoung:
我实在是不好说了，加了以后出现错误，说版本不对。错误如下：
[Fatal Error] Query.pas(8): Unit QRWebFilt was compiled
with a different version of QuickRpt.TQRCustomBand
我的QR是3.5.1的版本。帮帮忙，最后一次了。分全给你了。

我可以解决给我发mail

多人接受答案了。