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.
这是第二次提这个问题,照样给分,顶起!
...全文
65 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
ypnet 2005-03-18
  • 打赏
  • 举报
回复
up

2,507

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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