通过ole技术实现对word，excel的控制，请问怎么实现打印预览的功能 ( 积分: 200 )

如题，顶者有分

如题，顶者有分

var
OleExcellevariant;
nRow:Integer;
StrCaption,StrBegTime,
StrEndTime:String;
begin
inherited;
try
StrCaption:='XXX';
OleExcel:=CreateOleObject('Excel.Application');
OleExcel.application.visible:=true; //显示
OleExcel.workbooks.open(ExtractFilePath(Application.ExeName)+StrCaption+'.xls'); //打开已有的文件
//设置页脚
OleExcel.ActiveSheet.Pagesetup.CenterFooter:='XXX:'+'XXX'.
OleExcel.ActiveSheet.Pagesetup.CenterFooter:='打印时间:'+FormatDatetime('YYYY-MM-DD HH:MM',now());
//页脚到底端边距2cm：
OleExcel.ActiveSheet.Pagesetup.FooterMargin:=2/0.035;
//打印单元格网线：
// OleExcel.ActiveSheet.PageSetup.PrintGridLines := True;
//页面水平居中：
OleExcel.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035;

//插入n整行
for nRow:=1 to 5 do
OleExcel.ActiveSheet.Rows[1].Insert;
OleExcel.cells[1,1]:=StrCaption; //赋标题栏
OleExcel.ActiveSheet.Rows[1].Font.Name := '宋体';
OleExcel.ActiveSheet.Rows[1].Font.Size := 15;
OleExcel.ActiveSheet.Rows[1].Font.Color := clBlack;
OleExcel.ActiveSheet.Rows[1].Font.Bold := True;
OleExcel.ActiveSheet.Rows[1].Font.UnderLine := True;
StrBegTime:='统计开始时间:';
StrEndTime:='统计结束时间:';
OleExcel.cells[3,1]:=StrBegTime; //说明信息
OleExcel.cells[3,2]:=BeginDate.DateTime; //说明信息
OleExcel.cells[3,3]:=StrEndTime; //说明信息
OleExcel.cells[3,4]:=EndDate.DateTime; //说明信息
OleExcel.cells[4,1]:='挂号员工号:'; //说明信息
OleExcel.cells[4,2]:=User.UserNo; //说明信息
OleExcel.cells[4,3]:='挂号员姓名:'; //说明信息
OleExcel.cells[4,4]:=User.UserName; //说明信息
OleExcel.ActiveSheet.PrintPreview; //打印预览
except
if Application.MessageBox(Pchar('对不起,没有安装Excel,是否继续?' + #13#13 + '导出后在您的机器上不能直接打开,必须安装Excel到机器上才能打开! '),
pchar('注意'),MB_OKCANCEL)=ID_no then
exit;
end;
end;

我也关心此问题，关注ing。

多人接受答案了。