Report builder产生的报表怎样保存成excel或WORD格式?(100分)

1、Report builder产生的报表怎样保存成excel或WORD格式?
2、Report builder打印预览时如何让它一开始显示时就最大化显示，在我的机子上一运行
时总是显示为一小窗口需按最大化后才看清楚的。

可用TEXtradevice控件辅助RB将其输出至Excel文件。

jshguo,感谢你的帮助，只是可不可以再详细些，TEXtradevice控件是什么控件，再哪获得的，
哦， 我现在还用的是版本的。

提前

　　TEXtradevice控件是专为Report builder产生的报表保存成excel或WORD等格式的控件，
康炜的自由空间http://weikang.yeah.net/有下。

问题2的回答
procedure TPrintSelect.ppReport1PreviewFormCreate(Sender: TObject);
begin
TppViewer(ppReport1.PreviewForm.Viewer).zoompercentage:=90;//设置浏览比例
ppreport1.PreviewForm.Height:=screen.Height;
ppreport1.PreviewForm.Width:=screen.Width;
end;

to terry_lzs:
也请问你如果用的是Delphi中的TQuickRep应该怎么设浏览比例？
谢谢如果回答我可以加200给你，绝不食言。

我自己也没试过，不过我以前看到可以通过改delphi/lib/qrprev.dfm 实现
首先 uses qrprntr,qrprev;
定义一个类：
type TMyPreviewInterface = class(TQRStandardPreviewInterface)
public
procedure OnPageAvailable(Sender: TObject;pageno:integer);
function Show(AQRPrinter : TQRPrinter) : TWinControl;
override;
function ShowModal(AQRPrinter : TQRPrinter): TWinControl;
override;
end;

procedure TMyPreviewInterface.OnPageAvailable(Sender: TObject;pageno:integer);
begin
TQrPreView(Sender).Zoom:=100;
end;

function TMyPreviewInterface.Show(AQRPrinter: TQRPrinter): TWinControl;
begin
result:=TQRStandardPreview(inherited Show(AQRPrinter));
TQRStandardPreview(result).Zoom100.Down:=true;
TQRStandardPreview(result).QRPreview.OnPageAvailable:=OnPageAvailable;
end;

function TMyPreviewInterface.ShowModal(
AQRPrinter: TQRPrinter): TWinControl;
begin
result:=TQRStandardPreview(inherited ShowModal(AQRPrinter));
TQRStandardPreview(result).Zoom100.Down:=true;
TQRStandardPreview(result).QRPreview.OnPageAvailable:=OnPageAvailable;
end;

你显示preview，这样：
procedure TForm1.Button1Click(Sender: TObject);
begin
RegisterPreviewClass(TMyPreviewInterface);
//这一行要加
QuickRep1.Preview;
end;

康炜的自由空间http://weikang.yeah.net/
我怎么上不了？？？？/

多人接受答案了。