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;