How can I copy and excel sheet to a new workbook using the print range as the source

Question

使用VBA，如何将工作表打印范围用作要复制的单元格范围，将Excel工作表复制到新工作簿？

Answer 1

Yourworksheet is the worksheet with your data that you will have to declare accordingly.

Dim PrintZone As String

PrintZone = Yourworksheet.PageSetup.PrintArea

Yourworksheet.Range(PrintZone).Copy

Workbooks.Add

ActiveSheet.Paste