标题：请教一下直接打印某报表的命令

1楼

狐友发表于：2008/10/27 12:36:00

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

2楼

狐狸爸爸 发表于：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楼

狐友发表于：2008/10/27 14:10:00

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

4楼

狐狸爸爸 发表于：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编辑过]

共4 条记录, 每页显示 10 条, 页签: [1]