在excel中用vba实现打印指定的行数，比如说在工作表做一个按纽，点一下可出现一个选
1个回答
展开全部
Sub myPrintTest()
Const strCol = "E" '此处设置打印的列数
Dim i, j As String
i = InputBox("请输入起始打印行")
j = InputBox("请输入终止打印行")
ActiveSheet.PageSetup.PrintArea = "$A$" + i + ":$" + strCol + "$" + j
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End Sub
当然你说的那种用userform的方法也可以. 不过这种也还不错啦.
Const strCol = "E" '此处设置打印的列数
Dim i, j As String
i = InputBox("请输入起始打印行")
j = InputBox("请输入终止打印行")
ActiveSheet.PageSetup.PrintArea = "$A$" + i + ":$" + strCol + "$" + j
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End Sub
当然你说的那种用userform的方法也可以. 不过这种也还不错啦.
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
北京合创芯彩科技
2024-08-22 广告
在线打印公司有很多，其中推荐如下：* 易绘创校园打印站。该小程序提供自助操作，用户可以自己上传文件，系统会自动计算价格，下单后即可开始打印。其打印价格便宜，黑白A4纸仅需5分钱单面，7分钱/张。此外，该小程序还提供当日发货服务，售后态度也很...
点击进入详情页
本回答由北京合创芯彩科技提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
