如何用控件设置打印区域

阳光暖洋洋 · 发表于 2022-12-28 13:57

1、希望在每张表格中建立一个打印控件，但是由于需要添加行，所以打印区域不会用代码固定，求赐教！
我写的是这样的，但是打印区域$A$2:$J$36就固定了，如果我在其中添加了行数或者列数就打印不出来了。
Private Sub CommandButton2_Click()
Worksheets("其他应收款").PageSetup.PrintArea = "$A$2:$J$36"
Worksheets("其他应收款").PrintOut
End Sub

LIUZHU · 发表于 2022-12-28 14:19

inputbox手工获取下区域

阳光暖洋洋 · 发表于 2022-12-28 14:28

LIUZHU 发表于 2022-12-28 14:19
inputbox手工获取下区域

不太明白哦，我是个连菜鸟都称不上的小白，大神能赐教代码吗？

3190496160 · 发表于 2022-12-28 14:58

别人给你的代码你都没认真测试，

阳光暖洋洋 · 发表于 2022-12-28 15:00

3190496160 发表于 2022-12-28 14:58
别人给你的代码你都没认真测试，

给过代码的我都测试过了，并且重新打印过了，还是没有实现哦

xiaoyuemt · 发表于 2022-12-28 23:22

比J列最后一行，"评估人员："多一行，是要设置的打印区域吧
Private Sub CommandButton2_Click()
Worksheets("其他应收款").PageSetup.PrintArea = "$A$2:$J$" & (Worksheets("其他应收款").Range("J65536").End(xlUp).Row+1)
Worksheets("其他应收款").PrintOut
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 如何用控件设置打印区域