怎样用Delphi7控制EXCEL表的打印?(50分)

  • 主题发起人 主题发起人 delphi5198
  • 开始时间 开始时间
D

delphi5198

Unregistered / Unconfirmed
GUEST, unregistred user!
我看了前人的做法,回去用了用,但是,在打印时遇到了问题。
ExcelApplication1.Workbooks.Open('G:/132.xls',EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
ExcelApplication1.WorkSheets.PageSetup.PrintTitleColumns:='';
......
ExcelApplication1.Worksheets.PrintOut(......);
提示说没有PageSetup这个属性,我哪里错了呢?
 
在你用的EXCEL中手工执行下这个操作,然后用宏命令保存下来,看看宏命令中是怎么用的,照着改成delphi就行了.
 
to:zhtx
代码我就是看宏命令中是怎么用的然后改的,但是在delphi中就是不对。
诸位帮我写一下吧。
1打开G:/132.xls
2也面设置
3打印出来
 
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With

Worksheets <> ActiveSheet!
 
ActiveSheet是目前激活的Worksheets吧
 
我弄明白了。
现在我在边译时发现执行到sheet.PrintPreview和sheet.PrintOut就不行了
sheet.PageSetup.....都没问题,这是为什么?
 
都行了。
谢谢各位先。
过几天我会把我的心得体会给大家贴上来。
 
接受答案了.
 
后退
顶部