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

这样试试。
Dim T1,T2 As String
Dim Da As DataTable = DataTables("某表名")

for Each T1 in Da.GetComboListString("快递公司").split("|")
     T2 = ProjectPath & "Attachments\" & T1 & ".xls"
     Dim Book As New XLS.Book(T2)
     Book.Build()
     Book.Save(T2)
     Dim Proc As New Process
     Proc.File = "reports \ " & T1 & ".xls"
     Proc.Verb= "Print"
     Proc.Start()
Next

请自行把 "reports \ " 中的空格去掉(论坛的Bug,显示不正常)