Excel vba：刷新页面格式而不保存

我有一个vba代码，将从现有的工作表中创build一个新的工作簿，然后编辑这个新工作表上的格式，删除多余的信息，并使其更加友好的打印。 （我只是移动/删除/创build单元格，行和列）

如果我不保存，并尝试使用“适合所有列到一个页面”选项打印这个新的工作表，它将使用所有列大小的工作表的原始列大小。

如果我保存，但它会更新列的大小为实际编辑的大小。

有没有办法刷新页面格式而不保存？

编辑：这是一个非常紧凑的代码版本：

Sub SmallPsetup() Dim OrderBook As Workbook Dim RefBook As Workbook Set RefBook = Application.ActiveWorkbook Set OrderBook = Workbooks.Add ' Copy sheet RefBook.Sheets("MySheet").Copy Before:=OrderBook.Sheets(1) ' Remove superfluous/incomplete information ActiveSheet.Columns("Q:AZ").Delete End Sub