Delphi之word报表

先上图:

delphi实现代码如下:

procedure TForm1.ToolButton12Click(Sender: TObject);
var 
myTable: Table;
oleCount,oleUnit: Olevariant; 
begin 
//以下打开word新的文档
try
WordApplication1.Connect;
WordApplication1.Caption := '打印故障记录';
WordApplication1.Visible := true;
except
MessageDlg('也许word没有安装,请重试', mtError, [mbOk], 0);
end; 
WordDocument1.ConnectTo(WordApplication1.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam));
WordDocument1.Activate;

//设置页面大小和左右间距 
//600磅=21cm,850磅=29.7cm,是标准A4纸张大小,每磅0.035cm, 
WordDocument1.PageSetup.PageWidth := 600;
WordDocument1.PageSetup.PageHeight := 850;
WordDocument1.PageSetup.LeftMargin := 50;
WordDocument1.PageSetup.RightMargin := 50;

//设置标题内容和字体
WordApplication1.Selection.Font.Size := 15;
WordApplication1.Selection.Font.Name := '黑体';
WordApplication1.Selection.Font.Color := clBlack;
WordApplication1.Selection.Font.Bold := 1;
WordApplication1.Selection.ParagraphFormat.Alignment := wdAlignParagraphCenter;
WordApplication1.Selection.TypeText('故障记录');

//设置正文内容和字体 
WordApplication1.Selection.Font.Size := 11;
WordApplication1.Selection.Font.Name := '宋体';
WordApplication1.Selection.Font.Color := clBlack;
WordApplication1.Selection.Font.Bold := 0;
WordApplication1.Selection.TypeParagraph;
WordApplication1.Selection.TypeParagraph;
WordApplication1.Selection.ParagraphFormat.Alignment := wdAlignParagraphJustify;

//以下插入表格 
oleUnit := wdLine;
oleCount := 3; 
MyTable := WordApplication1.Selection.Tables.Add(WordApplication1.Selection.Range,3,2,EmptyParam,EmptyParam);
MyTable.Cell(1,1).Height := 20;
MyTable.Cell(1,1).Range.Text := '试验日期:' +form4.adoQuery1.FieldByName('试验时间').AsString;
MyTable.Cell(1,2).Range.Text := '试验人员:' +form4.adoQuery1.FieldByName('试验人员1').AsString+'/'+form4.adoQuery1.FieldByName('试验人员2').AsString;
MyTable.Cell(2,1).Height := 20;
MyTable.Cell(3,1).Height := 20;
MyTable.Cell(4,1).Height := 20;
MyTable.Cell(2,1).Range.Text := '最大加速度:';
MyTable.Cell(2,2).Range.Text := iplot1.Channel[2].DataCursorYText;
MyTable.Cell(3,1).Range.Text := '最大拉力:';
MyTable.Cell(3,2).Range.Text := iplot1.Channel[0].DataCursorYText;

//下移2行添加新的表格,因为上下的列数不一样
WordApplication1.Selection.MoveDown(oleUnit,oleCount,EmptyParam);
MyTable := WordApplication1.Selection.Tables.Add(WordApplication1.Selection.Range,6,1,EmptyParam,EmptyParam);
MyTable.Cell(4,1).Height := 20;
MyTable.Cell(5,1).Height := 20;
MyTable.Cell(6,1).Height := 20;
MyTable.Cell(7,1).Height := 20;
MyTable.Cell(8,1).Height := 20;
MyTable.Cell(9,1).Height := 20;
MyTable.Cell(4,1).Range.Text := '采样频率:'+'20000';
MyTable.Cell(5,1).Range.Text := '加速度传感器1信息:'+form4.adoQuery1.FieldByName('加速度传感器1编号').AsString;  
MyTable.Cell(6,1).Range.Text := '加速度传感器2信息:'+form4.adoQuery1.FieldByName('加速度传感器2编号').AsString;
MyTable.Cell(7,1).Range.Text := '加速度传感器3信息:'+form4.adoQuery1.FieldByName('加速度传感器3编号').AsString;
MyTable.Cell(8,1).Range.Text := '力传感器1信息:'+form4.adoQuery1.FieldByName('力传感器1编号').AsString;
MyTable.Cell(9,1).Range.Text := '力传感器1信息:'+form4.adoQuery1.FieldByName('力传感器1编号').AsString;

end;

该代码在按钮响应函数中写入,其中需包含

uses WordXP
WordApplication1:表示WordApplication控件
WordDocument1:表示WordDocument控件

还需要WordFont控件描述字体。
posted @ 2013-09-17 18:53  kevintang  阅读(1244)  评论(0编辑  收藏  举报