【求助高手】关于EXCEL打印的问题

shengp1988

EXCLE打印有没有什么高级设置？
因为最近我在排考室，排好之后需打印出来公示，但是用A4纸打出来每一张纸就只有3列（考号、姓名、考室）这样很浪费纸张，请问高手们有没有什么方法可以实现在同一张纸上打印2列（考号、姓名、考室）或者3列（甚至多列），而且要求同一页纸的第二列的第一个考号是接着第一列的最后一个考号的（以此类推）。
希望高手们能够帮帮忙！在此感激不尽！

LangQueS

★为了打印而对数据进行分组的小工具★        http://club.excelhome.net/thread-555107-1-1.html

LangQueS

如果要求同一页纸的第二列的第一个考号是接着第一列的最后一个考号，则事先要确定每一页打印的行数。

shengp1988

LangQueS 发表于 2011-11-6 23:19
★为了打印而对数据进行分组的小工具★        http://club.excelhome.net/thread-555107-1-1.html

太感谢您了！这个工具是怎样做的呀？

LangQueS

shengp1988 发表于 2011-11-7 00:03
太感谢您了！这个工具是怎样做的呀？

附件模块中的代码：

Sub 数据分组()    '将m列数的数据分到n×m列中
Dim m%, n%, a%
m = InputBox("请确定数据列数")
n = InputBox("请确定横向分组数")
a = InputBox("请确定标题行数")
b = Application.WorksheetFunction.RoundUp((Sheet1.[a65536].End(xlUp).Row - a) / n, 0)    '向上取整,得到每份行数
For i = 1 To n
    Sheet2.Range(Sheet2.Cells(1, (i - 1) * m + 1), Sheet2.Cells(a, m * i)) = Sheet1.Range(Sheet1.Cells(1, 1), Sheet1.Cells(a, m)).Value    '复制标题行
    Sheet2.Range(Sheet2.Cells(a + 1, (i - 1) * m + 1), Sheet2.Cells(b + a, i * m)) = Sheet1.Range(Sheet1.Cells((i - 1) * b + 1 + a, 1), Sheet1.Cells(i * b + a, m)).Value        '复制数据
Next
MsgBox "已经完成数据分组到表2"    '提示工作结束
End Sub

shengp1988

LangQueS 发表于 2011-11-7 00:57
附件模块中的代码：

Sub 数据分组()    '将m列数的数据分到n×m列中

如果要学怎样编写这些程序需要看些什么书籍呢？

LangQueS

shengp1988 发表于 2011-11-7 22:46
如果要学怎样编写这些程序需要看些什么书籍呢？

我是代码盲，平时积累一些别人的代码并加以注解……不过这种偷懒的方法不值得推荐.

★２５９个常用宏★        http://club.excelhome.net/thread-239820-1-1.html