以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教一下直接打印某报表的命令  (http://foxtable.com/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编辑过]