[求助]EXCEL报表打印的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]EXCEL报表打印的问题

共有20656人关注过本帖树形打印复制链接主题：[求助]EXCEL报表打印的问题

t_fs

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：431 积分：2808 威望：0 精华：0 注册：2008/9/1 8:46:00

[求助]EXCEL报表打印的问题 发帖心情

Post By：2009/4/21 10:45:00 [显示全部帖子]

EXCEL报表直接打印代码
Dim Proc As New Process
Proc.File = "C:\test.xls"
Proc.Verb = "Print" '指定动作
Proc.Start()

以上是直接打印EXCEL报表的代码，如果稍加改动一下，改成先直接预览然后再打印。

请高手帮助修改一下。谢谢！

[此贴子已经被作者于2009-4-21 10:45:43编辑过]

t_fs

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：431 积分：2808 威望：0 精华：0 注册：2008/9/1 8:46:00

Post By：2009/4/21 13:25:00 [显示全部帖子]

以下是引用狐狸爸爸在2009-4-21 11:13:00的发言：
如果这样，删除
Proc.Verb = "Print" '指定动作

这样直接预览，如果想打印，再单击打印按钮。

     删除    Proc.Verb = "Print"    后，并不是直接预览，而是打开文件。

      正如yangming所述：

      Open: 打开，这也是默认的动作。

再请教一下yangming，我按如下代码测试，没有达到以只读方式打开的目的，难道代码不正确吗？

Dim Proc As New Process
Proc.File = "C:\test.xls"
Proc.Verb = "OpenAsReadOnly"      '指定动作
Proc.Start()

    谢谢回复！

t_fs

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：431 积分：2808 威望：0 精华：0 注册：2008/9/1 8:46:00

Post By：2009/4/21 14:19:00 [显示全部帖子]

以下是引用shxiaoya在2009-4-21 13:40:00的发言：

Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet.Locked = True '禁止编辑
Book.Save("C:\test.xls") '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = "C:\test.xls"
Proc.Start()

谢谢回复！
上述功能可以实现禁止编辑了，但它打开的不是原来已存在的电子表格文件，而是一个新建立的空白表格。
不知错在哪儿了？

t_fs

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：431 积分：2808 威望：0 精华：0 注册：2008/9/1 8:46:00

Post By：2009/4/21 16:45:00 [显示全部帖子]

谢谢各位回复！

经过反复测试，狐表自带的演示文件“出库单”的自动生成EXCEL报表并且实现禁止编辑的代码如下：

Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls") '打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Book.Build() '生成细节区
Book.sheets(0).locked=true '禁止编辑
Book.Save(ProjectPath & "reports\出库单.xls") '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = ProjectPath & "reports\出库单.xls"
Proc.Start()

t_fs

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：431 积分：2808 威望：0 精华：0 注册：2008/9/1 8:46:00

Post By：2009/4/21 17:29:00 [显示全部帖子]

以下是引用yangming在2009-4-21 15:58:00的发言：
Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls") '打开模板
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet.Locked = True '禁止编辑
Book.Build() '生成细节区
Book.Save("c:\reports\test.xls") '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = "c:\reports\test.xls"
Proc.Start()
这样看看,你可以在范例中的:Excel报表.table中的命令窗口中测试此代码

有时间再测试一下这个。谢谢了！

下一主题 >> << 上一主题

主题：[求助]EXCEL报表打印的问题