Question

悬赏100分求助!!! VB高手进来看看~Excel中自动调整打印区域问题！有正确答案的+100悬赏分！

我现在有一Excel工作表，工作表内有很多个带边框的表格！
表格特点：
1、每个带框表格有着不同数据的标题！
2、每个表格与表格之间留一空行！
3、每个表格的A列中除了空行，整列都填有数据！
4、每个表格中的行数不一！（几行到20几行不等！）

打印要求：
以带边框表格为打印目标，纸张为A4纸，横向！
在A4纸中自动调整不同行数的表格进行打印！
因每个表格的行数不一，所以导至有可能一张纸可打印1-4个表格！
注：一个表格不能分开打印在两张纸中！

有VB高手能自动调整出这打印页面的要求吗？
看不懂的HI我！上线后发个工作表您看看！！
先感谢三位的回复！
一楼：我就是研究了很久都没找到答案才上来发问，看看有没有更好的办法。。
二楼：工作表的表格有nn个，要是一个一个的选中区域再打印会很费时间！
三楼：就是太多行打不下“鼻子眼睛挤到一块”也没问题！毕竟1000个表格中才有那么1-3个特多行数的表格！打印完了真的看不清楚可以另外查找后再打印！

Answer 1

Sub 自动加入分页符()

'
' 宏由 ynzsvt 录制，时间: 2010-1-19
'
'
' Range("A1").Select
For i = 1 To 20
ActiveCell.Offset(30, 0).Select '30是每页的最大行数
Selection.End(xlDown).Select
ActiveCell.Offset(-2, 0).Select '是防止刚好空行上选中处理
Selection.End(xlUp).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add before:=ActiveCell
Next i
MsgBox "请删除最后一个分页符。", vbOKOnly, "注意！"

End Sub

Answer 2

不太明白，不过你可以自己试试吗，先调整打两页看看，一般这东西我都自己研究，偶也不是高手

Answer 3

你把要打印的区域选中，然后点击打印命令就行了。

Answer 4

我想反问楼主有没有考虑过横向A4纸可能打不下20行数据,就算打全了也鼻子眼睛挤到一块.