delphi控制excel大全(完全版).doc

下面是我写的通用文档微机管理系统的打印部分原代码，包括合并execl单元格，加入分页符号，设置行高，列宽，设置execl页头，设置每页记录数，画单元格边框，调用execl模板等等procedure TfrmMain.Button3Click(Sender: TObject); /动态打印excel报表vartiaojian : string; /tiaojian 为一个sql查询语句,全宗号,目录号,起始日期为一数据库字段begintiaojian := ;if Edit7.Text thenbegintiaojian := tiaojian + ( 全宗号= + EDit7.Text + ) 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;ExcelApplication1.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;ExcelApplication1.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:= (jilushu*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.FontName;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.FontName;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 := 顺序号;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.Itemnowhangi + 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 := xlVertical;ExcelWorkSheet1.cells.Itemnowhangi + 1, 3.VerticalAlignment := xlTop;ExcelWorkSheet1.cells.Itemnowhangi + 1, 3 := 目录号;/加入分页符号if (jilushu div strtoint(edit14.Text) 0) thenbeginCell1 := ExcelWorksheet1.Cells.Itemnowhangi, 11;ExcelWorksheet1.VPageBreaks.Add(Cell1);ExcelWorksheet1.HPageBreaks.Add(Cell1);end;nowhangi := nowhangi + 2;end;/打印查询数据ExcelWorkSheet1.cells.Itemnowhangi, 1.RowHeight := 60;ExcelWorkSheet1.cells.Itemnowhangi, 1.font.Name := fontselectbox.FontName;ExcelWorkSheet1.cells.Itemnowhangi, 1.font.size := strtoint(Edit11.text);ExcelWorkSheet1.cells.Itemnowhangi, 1.WrapText := True;ExcelWorkSheet1.cells.Itemnowhangi, 1 := inttostr(jilushu);ExcelWorkSheet1.cells.Itemnowhangi, 2.font.Name := fontselectbox.FontName;ExcelWorkSheet1.cells.Itemnowhangi, 2.WrapText := True;ExcelWorkSheet1.cells.Itemnowhangi, 2.font.size := strtoint(Edit11.text);ExcelWorkSheet1.cells.Itemnowhangi, 2 := dm1.queryanjuan.fieldbyname(全宗号).asstring;ExcelWorkSheet1.cells.Itemnowhangi, 3.font.Name := fontselectbox.FontName;ExcelWorkSheet1.cells.Itemnowhangi, 3.WrapText := True;ExcelWorkSheet1.cells.Itemnowhangi, 3.font.size := strtoint(Edit11.text);ExcelWorkSheet1.cells.Itemnowhangi, 3 := dm1.queryanjuan.fieldbyname(目录号).asstring;exceptend;dm1.queryanjuan.Next;nowhangi := nowhangi + 1;end;end;try /插入页码ExcelWorkSheet1.PageSetup.RightHeader := &9第&P 页 共&N页;exceptshowmessage(您可能没有安装打印机);end;for i := 1 to nowhangi - 1 do /画单元格边框if taoda.Checked thenbeginwith ExcelApplication1.RangeA + inttostr(i), J + inttostr(i).Borders dobeginLineStyle := xlContinuous;Weight := xlThin;ColorIndex := xlAutomatic;end;end;ExcelWorkBook1.SaveCopyAs(GetCurpath + temp.xls);ExcelApplication1.DisplayAlertsLCID := False;ExcelApplication1.Quit;ExcelWorksheet1.Disconnect;ExcelWorkbook1.Disconnect;ExcelApplication1.Disconnect;end;procedure TfrmMain.DoAdoSql(CurADODS: TADODataSet; SSql: string);varoldcur: tcursor; be