- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- Excel报表的打印预览 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=34353)
-- 发布时间：2013/6/6 10:25:00
-- Excel报表的打印预览
excel报表，发现编程不能实现预览，如果要预览需通过三种方式：1.网页浏览器控件，2.用Process打开excel表，手动点预览。这两种都不方便，我想要的是excel打印预览或者foxtable的打印预览的效果，用户直接预览，在预览里提供边距调整和打印等选项。或者用第3种，用VBA，因为有printpreview方法
-- 发布时间：2013/6/6 10:27:00
--
doc.Preview() \'预览报表
-- 发布时间：2013/6/6 10:33:00
--
我说的是excel报表，不是专业报表
-- 发布时间：2013/6/6 15:20:00
--
Dim Book As New XLS.Book(ProjectPath & "Attachments\\出库单.xls")
Dim fl As String = ProjectPath & "Reports\\出库单.xls"
Book.Build()
Book.Save(fl)
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
App.Visible = True
Ws.PrintPreview
App.Quit
[此贴子已经被作者于2013-6-6 15:20:39编辑过]
-- 发布时间：2013/7/14 14:34:00
--
留贴mark
-- 发布时间：2013/7/14 15:11:00
--
此主题相关图片如下：office错误.jpg
出现错误，什么情况？