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

发布网友发布时间：2024-10-19 20:15

共4个回答

热心网友时间：2024-11-29 10:51

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

热心网友时间：2024-11-29 10:51

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

热心网友时间：2024-11-29 10:47

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

热心网友时间：2024-11-29 10:49

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