如何将报表的备注和图形字段输入到word中(100分)

  • 主题发起人 主题发起人 freelzq
  • 开始时间 开始时间
F

freelzq

Unregistered / Unconfirmed
GUEST, unregistred user!
我的报表中含有多个字段,其中一个为图形字段,一个为备注字段,
最后要把报表的内容输入到word中,应如何实现呢?
(我用的是客户机/服务器版,如别的版本能实现也可以。
email;liuzongqian801@263.net
 
先试试这段代码:
procedure TForm1.Button1Click(Sender: TObject);
var
MsWord: Variant;
begin
MsWord := CreateOleObject('Word.Basic');
MsWord.AppShow;
MSWord.FileNew;
MsWord.InsertPicture('c:/pwin98/clouds.bmp');
MsWord.Font('', 32);
MsWord.Insert('这是测试行.'#$D);
MsWord.Font('Courier New', 32);
MsWord.Insert('This is another test line.'#$D);
MsWord.FileSaveAs('d:/test.doc', 0);
MSWord.FilePrintPreview;
MsWord.FileClose;
MsWord.AppHide;
end;
 
接受答案了.
 
后退
顶部