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

这样试试。
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,显示不正常)

也许我会错意:上面的是列印快递公司列所有报表.

这样?
Dim T As String 
T = e.Form.Controls("ComboBox1").Value
T = ProjectPath & "Attachments\" & T & "模板.xls"
Dim Book As New XLS.Book(T)
Book.Build()
Book.Save(ProjectPath & "Reports\ " & T & ".xls")
Dim Proc As New Process
Proc.File = "reports\ " & T & ".xls"
Proc.Verb= "Print"
Proc.Start()

易表也可做,狐表岂不能乎(只做了单选框)
注:1,为简化代码,Excel报表模板文件名应和单选框名称一致;
    2,需于同一目录下另建文件夹『Reports』,打印目录文件放于此(看Excel报表)
Dim Tz(),T,T1,T2 As String
Tz = "顺丰标签,申通标签".Split(",")
For each T in Tz
   if e.Form.Controls(T).Checked = True Then
         Exit For
   End if         
Next

T1 = ProjectPath & "Attachments\" & T & ".xls"
T2 = ProjectPath & "Reports\ "& T & ".xls"
Dim Book As New XLS.Book(T1)
Book.Build()
Book.Save(T2)
Dim Proc As New Process
Proc.File = T2
Proc.Verb= "Print"
Proc.Start()

 自行去掉"Reports\ "中的空格