设置范围variables= printarea

尝试将范围variables=设置为当前的打印区域。

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

除此之外还有更多的东西，但这是我陷入困境，得到一个运行时错误“424”：所需的对象

我假设这是因为printarea是文本，我正在使用的variables设置为一个范围。 我如何让我的rngvariables设置为打印范围？

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)