vba - 设置范围变量 = printarea

Question

尝试将范围变量设置为当前打印区域。

dim rng as range
Set rng = ActiveSheet.PageSetup.PrintArea

还有比这更多的事情，但这就是我陷入困境的地方，得到一个运行时错误“424”:需要对象

我假设这是因为打印区域是文本，并且我正在使用的变量设置为范围。如何将 rng 变量设置为 printarea 范围？

Answer 1

只要 PrintArea 已经分配了值，您就可以将其转换为范围对象，如下所示:

Dim rng As Range

'This has to be set or print area returns a blank string
'which will cause the set statement below to throw an error
ActiveSheet.PageSetup.PrintArea = "A1:B1"

Set rng = Range(ActiveSheet.PageSetup.PrintArea)