利用Excel實現(xiàn)數(shù)據(jù)錄入及打印預(yù)覽（原創(chuàng)）

　　　　Excel強大的數(shù)據(jù)錄入功能極打印預(yù)覽功能是其他大多數(shù)程序望塵莫及的，能不能在我們自己編的程序中調(diào)用Excel的數(shù)據(jù)錄入功能及預(yù)覽功能呢。實際上，使用Delphi你能完全控制Excel或Word的所有功能。雖然來自Excel對象層次內(nèi)部非常復(fù)雜，但我們通過使用Variant（在OLE自動化中使用的Delphi的安全數(shù)組版本）通?？梢院啙?，容易的實現(xiàn)對Excel的控制。

　　　　下面，我將我實際運用的一些方法介紹給大家：

　　1.啟動Excel

　　　　在Uses中加入Comobj;

　　var

　　　v:Variant;

　　begin

　　　v:=CreateOleobject(‘Excel.Application’);

　　　v.Visible:=true;

　　end;

　　　　其中，Comobj中包含了用來檢索OLE的對象和向其傳發(fā)命令的例程，第一行代碼啟動Excel,執(zhí)行后Excel會在內(nèi)存中出現(xiàn)，因此第二行代碼使之可見。

　　2.關(guān)閉Excel

　　　　在創(chuàng)建了Excel Application對象后，調(diào)用它的Quit方法完成關(guān)閉事件。

　　If not varIsEmpty(v) then v.quit;

　　　　如果需要在關(guān)閉前確定是否存盤，加入：

　　v.DiaplayAlert:=true; //確定存盤

　　v.DiaplayAlert:=false;//不存盤，直接退出

　　3.加入工作表及對其表格內(nèi)容的操作

　　var

　　　Sheet: Variant;

　　begin

　　　v.workbook.add;

　　　v.Workbooks.Add;

　　　v.Workbooks[1].WorkSheets[1].Name := '數(shù)據(jù)錄入';

　　　Sheet:= v.Workbooks[1].WorkSheets['數(shù)據(jù)錄入'];

　　　Sheet.Cells[1,1] :='試驗'; Label1.Caption:=Sheet.Cells[1,1];

　　End;

　　　　Sheet對象是很多頁的集合，其他的Workbooks是工作薄的集合，WorkSheets對象是工作表的集合，Charts對象是圖表的集合。

　　4.格式的設(shè)置

　　var

　　　Range: Variant;

　　begin

　　　Range := v.Workbooks[1].WorkSheets['數(shù)據(jù)錄入'].Range['A2:M2’]; //單元格從A2到M2 Range.Merge; //合并單元格

　　　Range.Rows.RowHeight := 20; //設(shè)置行高

　　　Range.Borders.LineStyle := 1; //加邊框

　　　Range.Columns[2].ColumnWidth := 12; // 設(shè)置列寬

　　　Range.FormulaR1C1 := '標題';

　　　Range.HorizontalAlignment := xlCenter; //水平對齊方式

　　　Range.VerticalAlignment := xlCenter; //垂直對齊方式

　　　Range.Characters.Font.Name := '宋體'; //字體

　　　Range.Characters.Font.FontStyle := '加粗';

　　　Range.Characters.Font.Size := 12;

　　　Range.Characters.Font.OutlineFont := False; //是否有下劃線

　　　Range.Characters.Font.ColorIndex := xlAutomatic; //顏色

　　end;

　　　　其他的屬性可以察看MSDN或者其他資料。

　　5. 打印的設(shè)置

　　var

　　　Sheet: Variant;

　　begin

　　　Sheet := XLApp1.Workbooks[1].WorkSheets['數(shù)據(jù)錄入'];

　　　Sheet.PageSetup.PrintTitleRows :='$1:$3'; //頁眉

　　　Sheet.PageSetup.PrintTitleColumns := '';

　　　Sheet.PageSetup.LeftFooter := ' 注：頁腳'+' 總共N頁'+'--第P頁'; //頁腳

　　　Sheet.PageSetup.LeftMargin := 30; //設(shè)置邊距

　　　Sheet.PageSetup.RightMargin := 30;

　　　Sheet.PageSetup.TopMargin := 30;

　　　Sheet.PageSetup.BottomMargin := 50;

　　　Sheet.PageSetup.PrintQuality := 400; //分辨率

　　　Sheet.PageSetup.CenterHorizontally := True;//是否水平居中

　　　Sheet.PageSetup.CenterVertically := True; //是否垂直居中

　　　Sheet.PageSetup.Orientation := 2; //橫向打印

　　　Sheet.PageSetup.Draft := False; //非草稿模式

　　　Sheet.PageSetup.FirstPageNumber := xlAutomatic;

　　　Sheet.PageSetup.BlackAndWhite := True; //黑白稿

　　　Sheet.PageSetup.Zoom := 100; //縮放

　　　sheet.PrintPreView; //打印預(yù)覽

　　end;

　　　　好了，到這，我已經(jīng)介紹了大部分常用的控制方法，試試吧。提醒你，你的機子裝了Excel沒有……