问个简单的excel insert blank page的问题 (转载) - 未名空间MITBBS历史存档

国际科技财经博客移民网络热点娱乐民生时事公众号

Redian新闻

>未名空间

>Accounting - 会计审计

问个简单的excel insert blank page的问题 (转载)

问个简单的excel insert blank page的问题 (转载)# Accounting - 会计审计

c*u2009-02-19 08:02

1 楼

【以下文字转载自 Programming 讨论区】
发信人: cungu (cungu), 信区: Programming
标题: 问个简单的excel insert blank page的问题
发信站: BBS 未名空间站 (Thu Feb 19 09:24:06 2009)
一个spreadsheet,我需要把每个人单独打一页。而且每个人的row不同.
我现在用的方法是在每个人后面手动加上blank page.但是几百号人呢。。。
所以上来问问有没有其他简单的方法

y*42009-02-19 08:02

2 楼

没看明白

a*o2009-02-19 08:02

3 楼

page break view, 然后设定打印边界就可以了，比你INSERT空白页方便点，但也要花
点时间

a*h2009-02-19 08:02

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*i2009-02-19 08:02

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