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

Question

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

如果我不保存并且我尝试使用选项'将所有列适合一页'打印此新工作表，则它将用于所有列大小的工作表的原始列大小。< / p>

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

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

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

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