怎么调用用OleContainer1调用word 和excel 的打印和预览(50分)

我自己写是这样的一段调用word 的预览 ，可是效果不理想，请各位大哥 帮帮忙

给出你的代码，看一下是什么原因了？？？

procedure TfrmDoc.btn1Click(Sender: TObject);
var
IOO: IOleInPlaceObject ;
begin
OleContainer1.DoVerb(0);
if OleContainer1.State in [osUIActive] then
begin
OleContainer1.OleObjectInterface.QueryInterface(IOleInPlaceObject,IOO);
IOO.UIDeactivate;
IOO :=nil;
end;
OleContainer1.OleObject.PrintPreview;
OleContainer1.DoVerb(0);
OleContainer1.Align := OleContainer1.Align;
end;