我想用DELPHI做一个简单的数据库,在输入完内容后用WORD打印出,但是不知道用什么控件及代码应怎样写,我是位新手,请高手多多指教。(注:打印出来是带用表格形式的)
解决方案 »
- 不用报表控件怎么实现数据批量打印?
- tclientsocket for delphi7的安装谁有啊,急!急!送100分
- InstallShield问题
- 急,菜鸟问题在线等!
- 超级简单问题!帮帮忙啊(在线等)
- 我想把SQL SERVER 的表TB1 导入bb.xls,该怎么写?
- 乱码问题,苦思而不解
- 请问各位高手,谁知道怎么制作安装文件,就是一个exe,然后这个exe包含多个文件在里面,也就是说,用stream把他们放在setup.exe的后面,然后读出来的时候找好文件流的位置.最好有源码!不胜感激!
- 怎么让系统托盘的提示信息自动刷新?
- 保密性最高的数据库
- 如何快速删除Access指定字段的重复记录
- 移动窗体时,如何实时行到窗体的位置
var
WordApp,WordDoc,WordTable:OleVariant;
i,j:integer;
begin
WordApp:=CreateOleObject('Word.Application');
WordApp.Visible:=True;
WordDoc:=WordApp.Documents.Add;
WordTable:=WordDoc.Tables.Add(WordApp.Selection.Range,DBGrid1.DataSource.DataSet.RecordCount+1,DBGrid1.Columns.Count);
for i:=1 to DBGrid1.Columns.Count do
WordTable.Cell(1,i).Range.InsertAfter(DBGrid1.Columns[i-1].Title.Caption);
i:=2;
with DBGrid1.DataSource.DataSet do
while not eof do
begin
for j:=1 to DBGrid1.Columns.Count do
WordTable.Cell(i,j).Range.InsertAfter(DBGrid1.Columns[j-1].Field.Value);
Next;
Inc(i);
end;
end;