VBA将打印格式设置为创建工作表

Question

我的目标是创建一个没有确切名称的新工作表，只需将Sheetxx粘贴到此处复制的单元格，然后更改打印格式以使所有列适合一个页面。但是，由于我不知道它的名字，我有麻烦激活这张新单。

这就是我现在所拥有的：

'
With Workbooks("Cards").Worksheets.Add.Range("A1")

   .Cells(1).PasteSpecial xlPasteColumnWidths
   .Cells(1).PasteSpecial xlPasteValues ', False, False
   .Cells(1).PasteSpecial xlPasteFormats ', False, False
   Application.CutCopyMode = False
End With

Application.PrintCommunication = False
With ActiveSheet.PageSetup
   .FitToPagesWide = 1
   .FitToPagesTall = False
End With
Application.PrintCommunication = True

此代码更改了我复制单元格的工作表上的打印格式。

任何帮助都将不胜感激。

谢谢：）