EXCEL页面设置问题

cqpipilu 2005-03-18 11:31:46
这2天被这问题折磨够了,上面催得急,自己对EXCEL又不熟悉,只好到此求援了!

1、如何让表格大小自动适应A4纵向幅面?

我用的列宽自适应,但数据不同列宽也不同,生成的EXCEL表不好看。
sheet.columns['A'].autofit;
sheet.columns['B'].autofit;
sheet.columns['C'].autofit;
sheet.columns['D'].autofit;
sheet.columns['E'].autofit;
sheet.columns['F'].autofit;
sheet.columns['G'].autofit;

于是我用了固定列宽的方法,但为了显示完整,总是超出A4的纵向幅面。
Range.Columns[1].ColumnWidth:=15;
Range.Columns[2].ColumnWidth:=15;
Range.Columns[3].ColumnWidth:=20;
Range.Columns[4].ColumnWidth:=15;
Range.Columns[5].ColumnWidth:=6;
Range.Columns[6].ColumnWidth:=10;
Range.Columns[7].ColumnWidth:=6;
@@如何能让表格自动改变字体的大小来适应A4的纵向幅面?就像分页预览时拖动虚线那样。@@


2、页数显示的问题
我想在页脚显示 第?页,共?页,不知如何能实现?

3、固定的表头
有时生成的文件有很多页,我想在打印的每一页上都显示固定的表头,请求DX指点。

解决问题立马给分,最好给出代码,没时间了,多谢!!
对了,我用的comobj的方式操作EXCEL.
这是第二次提这个问题,照样给分,顶起!
...全文
37 点赞 收藏 1
写回复
1 条回复
ypnet 2005年03月18日
up
回复 点赞
发动态
发帖子
数据库相关
创建于2007-08-02

1211

社区成员

8.8w+

社区内容

Delphi 数据库相关
社区公告
暂无公告