主题：求助 大量数据打印问题

就是排成5列也有6千多行啊，每页40行也要打150页呀。  放弃吧。

应该可以，你做个例子上来吧。

 

比如 1000 行： 共1-1000个数字 把下面代码放在命令窗口： 看看结果！···

 

Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim n As Integer = 0
For c As Integer = 0 To 4
    For r As Integer = 0 To 199
        Sheet(r, c).Value = r+1+n*200
        If r =(n+1)*200 Then
            Exit For
        End If
    Next
    n = n+1
Next
Book.Save("c:\test.xls")
Dim Proc As New Process '打开工作簿
Proc.File = "c:\test.xls"
Proc.Start()