Foxtable(狐表)用户栏目专家坐堂 → 请教一下直接打印某报表的命令


  共有21211人关注过本帖树形打印复制链接

主题:请教一下直接打印某报表的命令

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


加好友 发短信
等级:幼狐 帖子:110 积分:1367 威望:0 精华:0 注册:2008/9/1 12:35:00
请教一下直接打印某报表的命令  发帖心情 Post By:2008/10/27 12:36:00 [只看该作者]

窗口中有个按钮,请教一下直接打印某报表的命令,不然每次去按“生成报表”很麻烦的,谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2008/10/27 13:34:00 [只看该作者]

Print

打印表。

语法:

Print(Preview, ShowDialog)

Preview: 是否打印预览,设为True预览,设为False直接打印。
ShowDialog:是否显示打印对话框。

例如:

With CurrentTable.PrintInfo
    .PaperKind =
0 '纸张类型设为自定义
    .PaperWidth =
250 '宽度设为250毫米
    .PaperHeight =
120 '高度设为120毫米
End
With
CurrentTable
.Print(True,False) '打印预览


 回到顶部
帅哥哟,离线,有人找我吗?
狐友
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:110 积分:1367 威望:0 精华:0 注册:2008/9/1 12:35:00
  发帖心情 Post By:2008/10/27 14:10:00 [只看该作者]

老大是打印excel报表,不是数据表呀,

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2008/10/27 14:16:00 [只看该作者]

目前没有提供直接打印的功能,只能先声生成再打印,以后提供一个“直接打印”的属性算了。

不过目前你可以通过编码来实现:

Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls") '打开模板
Dim
Sheet As XLS.Sheet = Book.Sheets(0)
Book.Build() '生成细节区
Book.Save(
"c:\reports\test.xls") '保存工作簿
Dim
Proc As New Process '打开工作簿
Proc.File = "c:\reports\test.xls"
Proc.Verb = "Print" '指定动作
Proc.Start()

[此贴子已经被作者于2008-10-27 14:16:28编辑过]

 回到顶部