做一个打印区域按钮，按照我输入的划定打印区域

6285123 · 发表于 2023-2-10 14:34

如图，我输入数字对应我打印区域。大神帮忙写下

chzsh · 发表于 2023-2-10 15:44

本帖最后由 chzsh 于 2023-2-10 15:59 编辑

Sub 宏2()
Dim star, over
With Sheet1
   star = .Range("f2").Value
   over = .Range("i2").Value
   .Rows(star & ":" & over).PrintOut
  End With
End Sub

tanglf188 · 发表于 2023-2-10 16:09

本帖最后由 tanglf188 于 2023-2-10 16:11 编辑

没有附件，自己测试一下，有问题留言

Sub setprint() '设置打印区域
With ActiveSheet
.PageSetup.PrintArea = "C" & .[F2] & ":D" & .[I2]
End With
ActiveWindow.View = xlPageBreakPreview
End Sub
Sub cancelset() '取消打印区域
ActiveSheet.PageSetup.PrintArea = ""
ActiveWindow.View = xlNormalView
End Sub

复制代码

6285123 · 发表于 2023-2-24 08:53

谢谢啦

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

[求助] 做一个打印区域按钮，按照我输入的划定打印区域