OLE嵌入WORD的打印预览问题(100分)

用OLE嵌入WORD后无法打印预览，有没有高人能解决呀
注意，我必须用OLE嵌入方式，因为只有这样WORD才能和我的程序在一个界面上。

很难。

我也想知道！

顶，一直没搞定

嵌入式的OLE WORD文件菜单被屏蔽，打印预览当然出不来了。
首先说明这不是一个很好的解决方法，不过在我这里使用通过（Win2000,Wordxp）：
//uses ActiveX;
procedure TForm1.MenuPreviewClick(Sender: TObject);//这是在我自己的FILE菜单里
var
IOO: IOleInPlaceObject ;
begin
OleContainer1.DoVerb(ovShow);
if OleContainer1.State in [osUIActive] then
begin
OleContainer1.OleObjectInterface.QueryInterface(IOleInPlaceObject,IOO);
IOO.UIDeactivate;
IOO :=nil;
end;
OleContainer1.OleObject.PrintPreview;
OleContainer1.DoVerb(ovShow);
OleContainer1.Align := OleContainer1.Align;
end;

to:Huzzz
最后三句，好象用处不大，用wordXP仍没有预览，但如果删除，就报错，这是为什么？
OleContainer1.OleObject.PrintPreview;
OleContainer1.DoVerb(ovShow);
OleContainer1.Align := OleContainer1.Align;

不知道了：在我这里可以预览，删除也不报错。
OleContainer1.DoVerb(ovShow); //激活WORD
if OleContainer1.State in [osUIActive] then //隐藏WORD菜单和工具栏
begin
OleContainer1.OleObjectInterface.QueryInterface(IOleInPlaceObject,IOO);
IOO.UIDeactivate;
IOO :=nil;
end;
OleContainer1.OleObject.PrintPreview;//调用WORD的打印预览：必须要激活WORD并隐藏了菜单才能调用
OleContainer1.DoVerb(ovShow);//重新显示WORD菜单和工具栏
OleContainer1.Align := OleContainer1.Align;//这一步是因为DELPHI控件ALIGN的BUG，可以不加

to Huzzz:
要是excel,打印，预览，代码怎么写!
急!!!!
100分!