excel vba调整打印区域大小

我有一个excel工具，是由我之前的人制作的。但是，在制作该工具时，它会将工作表输出到适合excel 2007中可打印区域的特定大小。但是，在excel 2010中，大小设置是关闭的。如何更改工作表中打印区域的大小而不必更改每张工作表中单个单元格的大小

---

感谢任何能提供2美分的人。

我假设，通过编程将打印区域设置为一系列单元格的功能将使您达到您想要的位置：

Dim MyPrintArea As Range
Set MyPrintArea = ActiveSheet.Range("A1:G15")

ActiveSheet.PageSetup.PrintArea = MyPrintArea

---

根据询问，我能做的最好的事情是。

PrintArea是一个字符串，因此您的代码应该是：ActiveSheet.PageSetup.PrintArea=MyPrintArea。寻址或绕过该范围，只使用字符串，如：ActiveSheet.PageSetup.PrintArea=“A1:G15”。如果看到不起作用的代码，会很有帮助。我不知道你想做什么。我也会使用宏记录器。打开它，做需要的步骤，以获得正确的适合，它应该生成一些有用的代码。我没有任何代码。我只是有一个excel工具，可以生成新的工作表的信息，可以打印。但新工作表的大小并不总是合适的。我想我需要用一个函数更改每张纸的打印尺寸，并在每次创建新页面时调用该函数。此外，这些页面会逐个插入到新工作表中，因此每张工作表中都有多个可打印页面。如果我可以只打印一次，它会使那张纸上的所有页面大小相同吗？