- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [讨论]Excel报表如何在foxtable里实现预览？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=40570)
-- 发布时间：2013/9/23 18:03:00
-- [讨论]Excel报表如何在foxtable里实现预览？
excel报表只能在EXCEL里预览，如果在foxtable里预览只能用WebBrowser控件，可是WebBrowser控件的预览效果太差了。
大家有没有什么好方法可实现在 foxtable实现EXCEL报表预览。就像专业报表的预览一样。
一句话，EXCEL报表使用好方便，就是打印预览太差强人意了。有好方法的大神们贡献一下吧，小弟跟着你们粘粘光
-- 发布时间：2013/9/23 19:45:00
--
想不到好的办法，感觉webbrowser就足够了。
-- 发布时间：2013/9/24 1:49:00
--
找到一个可以 借用的帖子
Dim Book As New XLS.Book(ProjectPath & "Attachments\\订单.xls")
Dim file As String = ProjectPath & "Reports\\订单.xls"
Book.Build() \'生成细节区
Book.Save(file) \'保存工作簿
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(file)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
With Ws.PageSetup
.PaperSize = MSExcel.XlPaperSize.xlPaperA4 \'纸张大小
.CenterHorizontally = True \'页面水平居中
.CenterVertically = True \'页面垂直居中
.Zoom = False \'以下设置将缩印在一页内
.FitToPagesWide = 1 \'按照1页的宽度打印
.FitToPagesTall = 1 \'按照1页的高度打印
End With
App.Visible = True
Ws.PrintPreview
App.Visible=False
wb.save
wb.close
App.Quit
-- 发布时间：2013/9/24 7:31:00
--
好帖顶起来