c***u
发帖数: 730 | 1 【 以下文字转载自 Programming 讨论区 】
发信人: cungu (cungu), 信区: Programming
标 题: 问个简单的excel insert blank page的问题
发信站: BBS 未名空间站 (Thu Feb 19 09:24:06 2009)
一个spreadsheet,我需要把每个人单独打一页。而且每个人的row不同.
我现在用的方法是在每个人后面手动加上blank page.但是几百号人呢。。。
所以上来问问有没有其他简单的方法
|
y********4
发帖数: 213 | |
a****o
发帖数: 79 | 3 page break view, 然后设定打印边界就可以了，比你INSERT空白页方便点，但也要花
点时间 |
a******h
发帖数: 908 | 4 写宏程序，在每行后面插入分页符 (page break)。
Sub tryme()
Dim LastRow As Long, i As Long
Application.ScreenUpdating = False
LastRow = Range("D65536").End(xlUp).Row
For i = LastRow To 3 Step -1
Rows(i).PageBreak = True
Next
Application.ScreenUpdating = True
End Sub |
w******i
发帖数: 2 | 5 Select the area you want to print
Go to 'File' -> Print Area -> Set Print Area
Then print
If you go to next person's
Clear the print area
then do the above again
Hope we both understand each other |
