5,928
社区成员




procedure TForm1.Button1Click(Sender: TObject);
begin
OleContainer1.DestroyObject;
OleContainer1.CreateObjectFromFile('D:\A.doc', false);
OleContainer1.DoVerb(ovShow);
OleContainer1.Run;
OleContainer1.OleObject.Application.ActiveDocument.Protect(2);
OleContainer1.OleObject.application.CommandBars['Standard'].Visible:=false;
OleContainer1.OleObject.application.CommandBars['Formatting'].Visible:=false;
OleContainer1.OleObject.application.CommandBars['Reviewing'].Visible:=false;
OleContainer1.OleObject.Application.ActiveDocument.PrintOut;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
OleContainer1.DestroyObject;
OleContainer1.CreateObjectFromFile('D:\A.doc', false);
OleContainer1.DoVerb(ovShow);
OleContainer1.Run;
OleContainer1.OleObject.Application.ActiveDocument.PrintOut;
end;