我有一个程序,它已经将模板库中的图纸复制到另一个可以使用它的文件中。有没有办法让它同时复制模板中打印区域的位置,并使新文件具有相同的打印区域?
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
发布于 2019-12-05 15:02:04
尝试一下:
ThisWorkbook.Sheets(SheetNum).PageSetup.PrintArea = Workbooks("TestLibrary.xlsx").Sheets(Size).PageSetup.PrintArea
https://stackoverflow.com/questions/59186384
复制相似问题