如何强制excel分页(80分)

  • 主题发起人 主题发起人 seagal
  • 开始时间 开始时间
S

seagal

Unregistered / Unconfirmed
GUEST, unregistred user!
有这样一个报表。读数据库人员信息,然后转到excel。要求每人出一个表(每个人的信息量是不同的,可能是一张表,或是多张表),算法是每循环一个人,导出一个表,要求一次导出所有人的表,怎样在一个人信息结束时强制excel分页呢?请各位高手指点
 
在EXCEL里只有打印时才有页码,
你指的是什么呢
 
在一个人信息的结束处插入水平分页符:
ActiveSheet.HPageBreaks.Add Before:=ActiveCell
 
to 小刚:
在delphi里,怎样写这样的语句,如果直接写(ExcelWorksheet1.HPageBreaks.Add Before:=ActiveCell;),会报错。尤其是 activeCell 指的是什么?
 
比如现在用a4纸打印,有的人正好打印了一页,分页,有的人只打印了两行,这时也要强制分页
 
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
这个完全可以实现三!
转换一下不就得了!
HPageBreaks是一个对象
add是它的方法而已嘛!
 
看你们的回答好像是很简单的样子,但具体在delphi里怎样写呢?
是这样吗:ExcelWorksheet1.HPageBreaks.Add([a1,a1])(编译保错)
其中add(const before:idispitch),怎么用,activecell 指的是什么?
所谓会者不难,能不能具体写一下怎么用
 
ExcelWorkSheet1.HPageBreaks.Add(ExcelApplication1.ActiveCell);
 
我试一试
 
接受答案了.
 
后退
顶部