Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共7 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:求助 大量数据打印问题

1楼
schristian 发表于:2011/7/19 21:38:00

我现在有一个excel难以解决的问题,希望能使用这个软件实现,能够达到各位的帮助,如下:

有一个庞大的数据量需要打印,有3万条左右,现在在excel中是只排成一列,如果打印出来的话纸张浪费太巨大,所以现在想能把这些数据按序排成4~5列,不知道这个软件能否实现?

希望知道的朋友能帮帮我,谢谢!!!

2楼
schristian 发表于:2011/7/19 21:52:00

简单点说就是

1                                  1    4    7

2                                  2    5    8

3                                  3    6    9

4                                  

5

6

7

8

9

能实现吗?谢谢啦!!!

3楼
mr725 发表于:2011/7/19 21:52:00
就是排成5列也有6千多行啊,每页40行也要打150页呀。  放弃吧。
4楼
schristian 发表于:2011/7/19 21:53:00
必须要打,没办法的,150页也要打,谢谢啦,能实现就行,总比打印几千张好啊
5楼
mr725 发表于:2011/7/19 21:57:00

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

 

6楼
schristian 发表于:2011/7/19 22:08:00

就拿上面那个例子说,1~9使代表很多数据排成一列,然后要在一页中体现

1    4    7

2    5    8

3    6    9

 

换一页

10   13    16

11   14    17

12   15    18

 

以此类推

 

万分感谢啊

7楼
mr725 发表于:2011/7/19 22:45:00

比如 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()

共7 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 2 queries.