设置好页面,在“文件”菜单下直接打印应该就可以的(当然不知道原来文档是怎样的).
Sub 剪贴成多栏()
r = [a65536].End(3).Row - 1
n = Int(r / 3 - 1 / 3) + 1
Cells(n + 2, 1).Resize(n, 4).Cut [e2]
Cells(n * 2 + 2, 1).Resize(n, 4).Cut [i2]
[a1:d1].Copy [e1:l1]
End Sub
当然也可以了,你可以先设置好一份,复制一下,在它的右边隔一列粘贴过去。。。。
在学校打学生成绩我就是这样用的
把你要打印的东西全部选中,然后选打印预览,里边有设置,再把纸张改为横向打印就好了。
直接分开打印。