使用Delphi控制Excel中的列来进行打印操作

希望的梦想 2004-03-09 08:36:03

各位大侠，小弟在学习delphi控制Excel的过程中遇到一个问题，就是如何控制Excel中的列，目的是通过选择想要的列来作为打印报表的列，这个问题如何作呢？望各位大侠给点建议。

...全文

88 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

konhon 2004-03-20

打赏
举报

回复

設置excel的打印區域就可以啦。

ExcelAppl.ActiveSheet.PageSetup.PrintArea := '$A$1:$C$15';

A,C是指打印1-3列﹐
1-15是指打印1-15行

shanghai8833 2004-03-19

打赏
举报

回复

很简单啊，先读取需要的信息到临时表或什么地方，然后输出就可以了。

delphi操作Excel命令大集合，不可多得的文档

Delphi控制Excel2000心得

Delphi 控制Excel 全面技术首先创建 Excel 对象，使用ComObj: var ExcelApp: Variant; ExcelApp := CreateOleObject( 'Excel.Application' ); 1) 显示当前窗口： ExcelApp.Visible := True; 2) 更改 Excel 标题栏： ExcelApp.Caption := '应用程序调用 Microsoft Excel'; 3) 添加新工作簿： ExcelApp.WorkBooks.Add; 4) 打开已存在的工作簿： ExcelApp.WorkBooks.Open( 'C:\Excel\Demo.xls' ); 5) 设置第2个工作表为活动工作表： ...... ...... ...... ...... ......

Delphi控制Excel的重要属性和方法.doc

DELPHI操作EXCEL的语句， a.页眉： ExcelApp.ActiveSheet.PageSetup.CenterHeader := '报表演示'; b.页脚： ExcelApp.ActiveSheet.PageSetup.CenterFooter := '第&P页'; c.页眉到顶端边距2cm： ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 2/0.035; d.页脚到底端边距3cm： ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 3/0.035; e.顶边距2cm： ExcelApp.ActiveSheet.PageSetup.TopMargin := 2/0.035; f.底边距2cm： ExcelApp.ActiveSheet.PageSetup.BottomMargin := 2/0.035; g.左边距2cm： ExcelApp.ActiveSheet.PageSetup.LeftMargin := 2/0.035; h.右边距2cm： ExcelApp.ActiveSheet.PageSetup.RightMargin := 2/0.035; i.页面水平居中： ExcelApp.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035; j.页面垂直居中： ExcelApp.ActiveSheet.PageSetup.CenterVertically := 2/0.035; k.打印单元格网线： ExcelApp.ActiveSheet.PageSetup.PrintGridLines := True;

数据库相关

2,507

社区成员

88,453

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章