for i as Integer =0 to CurrentTable.Rows.Count -1 Currenttable.Position = i Dim Book As New XLS.Book("c:\资料卡.xls") Dim Sheet As XLS.Sheet = Book.Sheets(0) Book.Save("c:\reports\test.xls") '保存工作簿 Dim Proc As New Process '打开工作簿 Proc.File = "c:\reports\test.xls" Proc.Verb = "Print" Proc.Start() Next