求助大神，简单的几行代码

mx99721 · 发表于 2024-9-27 18:01

Sub CommandButton1_Click()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("申请单") '请根据实际情况修改工作表名称

'设置打印区域
ws.Range("B1:I24").PrintArea

'打印指定区域
ws.Range("B1:I24").PrintOut
End Sub

运行提示ws.Range("B1:I24").PrintArea是黄颜色，请大神指教是什么问题？运行438错误

leolee82 · 发表于 2024-9-27 21:36

建议按F1查帮助

taller · 发表于 2024-9-28 01:56

本帖最后由 taller 于 2024-9-28 09:46 编辑

ws.PageSetup.PrintArea = ws.Range("B1:I24").Address

复制代码

_参考微软文档:_

> PageSetup.PrintArea property (Excel)

mx99721 · 发表于 2024-9-28 08:45

leolee82 发表于 2024-9-27 21:36
建议按F1查帮助

不能显示帮助

niko88819 · 发表于 2024-9-28 09:01

mx99721 发表于 2024-9-28 08:45
不能显示帮助

请测试

Sub CommandButton1_Click()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("申请单") '请根据实际情况修改工作表名称

'设置打印区域
ws.Range("B1:I24").PrintArea

'打印指定区域
ws.Range("B1:I24").PrintOut
End Sub

运行提示ws.Range("B1:I24").PrintArea是黄颜色，请大神指教是什么问题？运行438错误

z865593849 · 发表于 2024-9-28 09:04

liulang0808 · 发表于 2024-9-28 09:10

'设置打印区域
ws.Range("B1:I24").PrintArea
这段代码取消是否可行？

mx99721 · 发表于 2024-9-30 17:46

liulang0808 发表于 2024-9-28 09:10
'设置打印区域
ws.Range("B1:I24").PrintArea
这段代码取消是否可行？

你厉害！可行！

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