2012-03-01 159 views
0

我有一个excel工具,是由我之前的某人制作的。但是,制作工具时,它会将工作表输出到适合Excel 2007中可打印区域的特定尺寸。但是,在Excel 2010中,尺寸已关闭。如何在工作表中更改打印区域的大小而不必更改每个工作表中单个单元格的大小?excel vba调整大小打印区域

感谢任何人可以提供2美分。

+0

这将是有益的看到不工作的代码。我不确定你想要做什么。我也会使用宏记录器。打开它,执行所需的步骤以获得正确的结果,并生成一些有用的代码。 – 2012-03-02 01:43:24

+0

我没有任何代码。我只有一个Excel工具,可生成可打印的新信息工作表。但新工作表的大小并不总是适合的。我想我需要用一个函数改变每张纸的打印尺寸,并在每次创建一个新页面时调用该函数。此外,页面会逐个插入新的工作表中,因此每张工作表中都有多个可打印的页面。如果我只能打印一次,它会使该表中的所有页面大小相同吗? – thebiglebowski11 2012-03-05 19:40:09

回答

1

我假设到打印区域设置为单元格区域的编程能力会得到你,你想成为:

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

ActiveSheet.PageSetup.PrintArea = MyPrintArea 

尽我所能做的基于问。

+1

printArea中是一个字符串,所以代码应该是:ActiveSheet.PageSetup.PrintArea = MyPrintArea.Address或绕过范围,只是使用的字符串,如:ActiveSheet.PageSetup.PrintArea =“A1:G15” – 2012-03-02 01:37:46