以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91279)
--  作者：iresearchgame
--  发布时间：2016/10/6 10:29:00
--  求助
   我想要做一个报表，
1.适合打印；
2.文字太多的话，单元格内可以自动换行；
3.标题行日期，可以提取到从第一行开始-最后一行
4.最后一行的黑体字部分是需要得出的数据
请各位大神指点
销售报表
日期：2016-05-25 至 2016-06-25











日期 店铺类型 订单编号 商品名称 编号 型号 销售单价 数量 货款金额 面价 成本 运费 对账金额 扣点 税费 利润 利润率
##### 他 个 个 个
10 10 10 10 10 10 10 10 10 10 0.1
个 个 个 个 个 个 20 10 10 10 10 10 10 10 10 10 0.1






求平均值 总计 总计 总计 总计 总计 总计 总计 总计 总计 平均值
--  作者：有点蓝
--  发布时间：2016/10/6 10:47:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=91278

只能在输出报表后用代码处理

Dim Book As New XLS.Book("c:\\reports\\test.xls") \'定义一个Excel工作簿
Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表
Dim Style As XLS.Style = Book.NewStyle() \'定义新样式
Style.WordWrap = True
Sheet.Cols(0).Style = Style \'设置第1列的样式
Book.Save("c:\\reports\\test.xls")
Dim Proc As New Process 
Proc.File = "c:\\reports\\test.xls"
Proc.Start()