《delphi控制excel大全(完全版).doc》由会员分享,可在线阅读,更多相关《delphi控制excel大全(完全版).doc(6页珍藏版)》请在金锄头文库上搜索。
1、下面是我写的通用文档微机管理系统的打印部分原代码,包括合并execl单元格,加入分页符号,设置行高,列宽,设置execl页头,设置每页记录数,画单元格边框,调用execl模板等等procedure TfrmMain.Button3Click(Sender: TObject); /动态打印excel报表vartiaojian : string; /tiaojian 为一个sql查询语句,全宗号,目录号,起始日期为一数据库字段begintiaojian := ;if Edit7.Text thenbegintiaojian := tiaojian + ( 全宗号= + EDit7.Text + )
2、 and;end;if Edit8.Text thenbegintiaojian := tiaojian + ( 目录号= + Edit8.Text + ) and;end;if Edit9.Text thenbegintiaojian := tiaojian + ( 起始日期= + Edit9.Text + ) and;endelse tiaojian := tiaojian + ( 起始日期=0) and;if Edit10.Text thenbegintiaojian := tiaojian + ( 起始日期 0 thenbegin/设置列宽,行高nowhangi := 1;ExcelA
3、pplication1.RangeA1, A1.ColumnWidth := 3.5;ExcelApplication1.RangeB1, B1.ColumnWidth := 3.5;ExcelApplication1.RangeC1, C1.ColumnWidth := 3.5;ExcelApplication1.RangeD1, D1.ColumnWidth := 8;ExcelApplication1.RangeE1, E1.ColumnWidth := 20;ExcelApplication1.RangeF1, F1.ColumnWidth := 8.75;ExcelApplicati
4、on1.RangeG1, G1.ColumnWidth := 8.75;ExcelApplication1.RangeH1, H1.ColumnWidth := 3.0;ExcelApplication1.RangeI1, I1.ColumnWidth := 3.0;ExcelApplication1.RangeJ1, J1.ColumnWidth := 3.0;/设置每页的记录数目for jilushu := 1 to (dm1.queryanjuan.RecordCount) dobegin /ProgressBar1 为一个进程条控件ProgressBar1.Position:= (ji
5、lushu*100) div (dm1.queryanjuan.RecordCount);tryif jilushu mod strtoint(edit14.Text) = 1 then /edit14.Text的值为一个数字,表示每页的记录数目begin /打印每页的页头ExcelApplication1.RangeA + inttostr(nowhangi), J + inttostr(nowhangi).Merge(xl);/合并execl单元格ExcelWorkSheet1.cells.Itemnowhangi, 1.font.Name := fontselectbox.FontNam
6、e;ExcelWorkSheet1.cells.Itemnowhangi, 1.font.size := 24;ExcelWorkSheet1.cells.Itemnowhangi, 1.RowHeight := 32;ExcelWorkSheet1.cells.Itemnowhangi, 1 := 案卷目录;ExcelWorkSheet1.cells.Itemnowhangi, 1.HorizontalAlignment := xlCenter;ExcelWorkSheet1.cells.Itemnowhangi + 1, 1.font.Name := fontselectbox.FontN
7、ame;ExcelWorkSheet1.cells.Itemnowhangi + 1, 1.font.size := 12;ExcelWorkSheet1.cells.Itemnowhangi + 1, 1.Font.Bold := True;ExcelWorkSheet1.cells.Itemnowhangi + 1, 1.Orientation := xlVertical;ExcelWorkSheet1.cells.Itemnowhangi + 1, 1.VerticalAlignment := xlTop;ExcelWorkSheet1.cells.Itemnowhangi + 1, 1
8、 := 顺序号;ExcelWorkSheet1.cells.Itemnowhangi + 1, 2.font.Name := fontselectbox.FontName;ExcelWorkSheet1.cells.Itemnowhangi + 1, 2.font.size := 12;ExcelWorkSheet1.cells.Itemnowhangi + 1, 2.Font.Bold := True;ExcelWorkSheet1.cells.Itemnowhangi + 1, 2.Orientation := xlVertical;ExcelWorkSheet1.cells.Itemno
9、whangi + 1, 2.VerticalAlignment := xlTop;ExcelWorkSheet1.cells.Itemnowhangi + 1, 2 := 全宗号;ExcelWorkSheet1.cells.Itemnowhangi + 1, 3.font.Name := fontselectbox.FontName;ExcelWorkSheet1.cells.Itemnowhangi + 1, 3.font.size := 12;ExcelWorkSheet1.cells.Itemnowhangi + 1, 3.Font.Bold := True;ExcelWorkSheet1.cells.Itemnowhangi + 1, 3.Orientation := xlVertica