客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
|
报表的打印是每个项目都会遇到的问题。由于报表格式要求五花八门，往往又同时要求打印格式可方便调整。作为一种替代方法，可以将需要打印的报表导出到Excel/Word，打印交给Office去吧。由于Office的普及度较高，用户比较熟悉，也容易接受。 下面主要是在开发中涉及到的在Delphi中写Excel文件方面的问题，直接用代码行来举例说明。测试所用Excel的版本为9.0，即Excel2000 1、总的思路是将EXCEL作为一个OLE对象来操作。
//在单元use部分加上：ComObj, Excel2000，并作如下定义： 2、Excel程序对象的操作/设置
//创建
ExcelApp := CreateOleObject( 'Excel.Application' ); //设置Excel窗口可见
ExcelApp.Visible := True; //增加一个工作簿
ExcelApp.WorkBooks.Add; Book := ExcelApp.Workbooks[1]; //增加一个工作表
Book.Worksheets.Add; Sheet := Book.Worksheets[1]; //保存文件
Sheet.SaveAs(FileName); //退出Excel与释出
if not VarIsEmpty(ExcelApp) then ExcelApp.Quit; ExcelApp := Unassigned; 3、区域操作/设置
//引用
Range := Sheet.Range['A2:B3']; //合并
Range.Merge; //赋值
Range.Value := ''赋值'; //格式
Range.NumberFormatLocal := '@'; //数字格式设置为文本 Range.NumberFormatLocal := 'yyyy-m-d'; //数字格式设置为yyyy-m-d日期 Range.HorizontalAlignment := xlCenter; //水平对齐 Range.VerticalAlignment := xlCenter; //垂直对齐 Range.Font.Name := '黑体'; //字体 Range.Font.Size := 18; Range.Font.Bold := true; //边框 Range.Borders[xlEdgeLeft].LineStyle := xlContinuous; //左 Range.Borders[xlEdgeLeft].Weight := xlThin; Range.Borders[xlEdgeRight].LineStyle := xlContinuous; //右 Range.Borders[xlEdgeRight].Weight := xlThin; Range.Borders[xlEdgeTop].LineStyle := xlContinuous; //上 Range.Borders[xlEdgeTop].Weight := xlThin; Range.Borders[xlEdgeBottom].LineStyle := xlContinuous; //下 Range.Borders[xlEdgeBottom].Weight := xlThin; Range.Borders[xlInsideHorizontal].LineStyle := xlContinuous; //内竖 Range.Borders[xlInsideHorizontal].Weight := xlThin; Range.Borders[xlInsideVertical].LineStyle := xlContinuous; //内横 Range.Borders[xlInsideVertical].Weight := xlThin; 4、单元格操作/设置
//单元格采用行、列号引用，设 row、col为行、列号
//赋值
Sheet.Cells(row, col) := '赋值'; //设置格式同区域，改成这样来引用
Sheet.Cells.Item[row, col].HorizontalAlignment := xlCenter; 5、其它
//行高、列宽自适应
Sheet.Cells.Rows.AutoFit; Sheet.Cells.Columns.AutoFit; |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论