主题：根据列表自动打印设置

以下是引用woodiy在2009-2-14 10:53:00的发言：

此主题相关图片如下：未标题-2.jpg


能否按照片中,快递公司列的内容,实现 相关打印,而不用像我目前那样建很多的按键Chick控件

其中申通打印的代码如下:

Dim Book As New XLS.Book(ProjectPath & "Attachments\申通快递模板.xls")
Book.Build()
Book.Save(ProjectPath & "Reports\申通快递.xls")
Dim Proc As New Process
Proc.File = "reports\申通快递.xls"
Proc.Verb= "Print"
Proc.Start()

其它顺丰快递,雅仕快递的也类似.谢谢!