请教EXCEL VAB高手，打印问题

显示全部楼层 · 2010-8-23 23:58:52

我想打印的表格是学校各个班级的成绩，希望达到的效果是每个班只打印在一页上，并且每页上只有一个班级的成绩和一个表头。
每个班级的前面已经加好了表头。
我想的思路大概是将打印纸（A4，横版）的打印区域的纵向长度减去表头的高度（表头的宽度可以先任意写，我自己再改就行），然后在班级人数，也就是班级总共的行数中平均一下。
各列的宽度我可以自己设置。
请哪位高手帮小弟写个程序，每次自己排版工作量太大了。
如果可以的话再加个页脚，加在右下脚，写班级
小弟先在此感谢了。有结果了追加分。。。

千问 · 2010-8-23 23:58:52

Sub test()
Dim arr, arr1()
Dim i As Long
Dim j As Long
ReDim arr1(1 To 1)
arr = Range("C1:C" & [C65536].End(xlUp).Row)
For i = 1 To UBound(arr)
If arr(i, 1) = "班级" Then '假定C列标题为班级
j = j + 1
ReDim Preserve arr1(1 To j)
arr1(j) = i
End If
N

千问 · 2010-8-23 23:58:52

1楼高手回答的非常好，向您学习！另外，如果所有班级都在一张总表中的话，我只想打印如：一年级所有记录到一页纸中（自动调整），有无办法？如果有的话，我另提问题。