excel - 使用 VBA 将打印区域的位置从一个文件复制到另一个文件

Question

我有一个程序已经将工作表从模板库复制到另一个可以使用的文件。有没有办法让它也复制模板中打印区域的位置并使新文件具有相同的打印区域？

Workbooks("TestLibrary.xlsx").Sheets(Size).Range("A1:AO311").Copy_ 
ThisWorkbook.Sheets(SheetNum).Range("A1")

Workbooks("TestLibrary.xlsx").Sheets(Size).Range("A1:AO311").Copy_
ThisWorkbook.Sheets(SheetNum).Range("A1:AO311").PasteSpecial_ 
Paste:=xlPasteColumnWidths

Answer 1

试试也许：

ThisWorkbook.Sheets(SheetNum).PageSetup.PrintArea = Workbooks("TestLibrary.xlsx").Sheets(Size).PageSetup.PrintArea