Foxtable(狐表)用户栏目专家坐堂 → excel报表问题


  共有10096人关注过本帖平板打印复制链接

主题:excel报表问题

帅哥哟,离线,有人找我吗?
puyouliang
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:67 积分:703 威望:0 精华:0 注册:2010/11/23 23:03:00
excel报表问题  发帖心情 Post By:2011/11/25 0:39:00 [只看该作者]

我制了个像订单表一样的模板,用代码打印,在伐码中修改模板的打印条件为<all>,为什么打印出来的结果是:表头——记录——然后又是表头——再打记录,这样反复打印直到记录条数打完,这是什么原因啊

伐码如下:

Dim Book As New XLS.Book(ProjectPath & "Attachments\台账.xls")
Dim fl As String = ProjectPath & "Reports\台账.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(1,31).Value = "<all>"               '修改模板打印条件
Sheet(1,0).Value = "<" & vars(User.Group) & ">"    '修改模板细节区表名
Book.Build()                       '生成细节区
Book.Save(fl)                      '保存工作簿
Dim Proc As New Process                '打开工作簿
Proc.File = fl
Proc.Verb = "Print"                   '指定动作
Proc.Start()


 回到顶部