使用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