use ComObj
procedure Tf_printpic.SpeedButton1Click(Sender: TObject);
var v_doc:Variant;
begin
try
try
v_app := GetActiveOleObject('word.application');
except
v_app := CreateOleObject('word.application');
end;
v_app.Visible:= True ;
v_app.Caption := '装饰工程图片打印';
v_app.Options.CheckSpellingAsYouType := False;
v_app.Options.CheckGrammarAsYouType := False;
{Insert data}
if v_app.Documents.Count=0 then v_app.Documents.Add;
v_doc:=v_app.Documents.Item(1);
if datam.ado_yclqd.FieldByName('ms17').asstring<>'' then
begin
DBImage1.CopyToClipboard;
v_doc.Sentences.Last.Paste;
end;
v_doc.Range.InsertAfter(' ' + #13);
v_doc.Range.InsertAfter('材料编号: ' + datam.ado_yclqd.Fields.fields[3].AsString + #13); //材料编号的文字
v_doc.Range.InsertAfter('图片说明1: ' + datam.ado_yclqd.Fields.Fields[17].AsString + #13);//图片说明1
v_doc.Range.InsertAfter('图片说明2:' + datam.ado_yclqd.Fields.Fields[18].AsString + #13);//图片说明2
v_doc.Range.InsertAfter('图片说明3: ' + datam.ado_yclqd.Fields.Fields[19].AsString + #13);//图片说明3
v_doc.Range.InsertAfter(' ' + #13);
v_doc.Range.InsertAfter(' ' + #13);
v_doc.Range.InsertAfter(' ' + #13);
except
begin
messagedlg('图片导出失败!',mtinformation,[mbok],0);
v_app.Disconnect;
end;
end;
