Sub 收尾汇总()

'定义一个储存行号的变量
Dim num

'使用Cells.Find获取的行号赋值给num
num = Cells.Find(what:="*", after:=Range("a1"), searchorder:=xlRows, searchdirection:=xlPrevious).Row
'输出num，也就是得到的行号
'MsgBox num + 1

Cells(num + 2, 1) = "护栏合计：" & Cells(5, 11) & "条"

'Cells(num + 2, 3) = Cells(5, 11) & "条"

Cells(num + 2, 4) = "总计应付：" & Cells(6, 11) & "元"

Cells(num + 2, 7) = "客户签名："

'Cells(num + 3, 1) = "合计：" & Cells(6, 12) & "元整"

Cells(num + 3, 1) = " 备注：客户收到货后对数量，单价，质量有异议，请于七天内通知本公司解决，否则恕不承担任何后果。"


ActiveSheet.PageSetup.PrintArea = Cells(1, 1).Resize(num + 3, 4) 'Range(Cells(1, 1), Cells(d, 8))

End Sub

ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), Cells(num + 4, 8)).Address
后面加上那个.address就可以了，谢谢CSDN的weixin_30832983