以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教一下直接打印某报表的命令  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=978)

--  作者:狐友
--  发布时间:2008/10/27 12:36:00
--  请教一下直接打印某报表的命令
窗口中有个按钮,请教一下直接打印某报表的命令,不然每次去按“生成报表”很麻烦的,谢谢
--  作者:狐狸爸爸
--  发布时间: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) \'打印预览


--  作者:狐友
--  发布时间:2008/10/27 14:10:00
--  
老大是打印excel报表,不是数据表呀,
--  作者:狐狸爸爸
--  发布时间: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编辑过]