菜鸟问：报表~！！QRrichtext 导出 RTF 解决者：“50大洋”围观者1个大洋~！

Question

本帖最后由 cgjxcq 于 2009-06-12 10:38:30 编辑

Answer 1

就是放一个QRrihctext用QuickReport自带的导出工具拖到FROM中~！

Answer 2

围观
用rave试一下看看可不可以

Answer 3

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, QuickRpt, QRCtrls, ExtCtrls, ComCtrls, QRExport;type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    QuickRep1: TQuickRep;
    DetailBand1: TQRBand;
    QRRichText1: TQRRichText;
    Button1: TButton;
    QRRTFFilter1: TQRRTFFilter;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
    QRRichText1.Lines:=Richedit1.Lines;
    QuickRep1.Preview;
end;end.
我是这样子做的:
procedure TForm1.Button1Click(Sender: TObject);
begin
    QRRichText1.Lines:=Richedit1.Lines;
    QuickRep1.Preview;
end;
打印预览就可以,但是想保存到RTF就是空白的~!为什么啊???
高手们啊~!神啊~!你们出来打救一下我吧~！不然，我死了就没人分大洋给你们了~！