不需要的打印设置答案

【问题标题】：Unwanted Print Setup不需要的打印设置
【发布时间】：2017-08-18 15:11:17
【问题描述】：

所以我在尝试打开新工作簿 (checkwb) 时遇到了一些奇怪的行为。当新工作簿打开时，它会为工作簿中的每一页打开一个“打印设置”对话框。此外，在单击“确定”约 200 次后，代码运行良好，但如果我关闭 checkwb 并尝试再次运行代码，则无法打开 checkwb，直到我完全关闭 Excel 并重新打开，此时打印对话框重新出现。这是我的（不完整的）代码：

Sub Check()

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Dim homewb As Workbook
Dim checkwb As Workbook

Dim ws As Worksheet
Dim namestr As String

Dim checkarray() As Double

Set homewb = Workbooks("BranchTable Calc B31.3.xlsm")
Set checkwb = Workbooks.Open("Z:\Agrium\Redwater\E130040CP ~ Pipe Spec  
Update\M-Mech\20-Eng\Calcs\Final WT Calcs All Specs\New Bechtel Agrium  
comments.xlsm")

For Each ws In homewb.Sheets
    If ws.Name = "Cover" Or ws.Name = "Pipe Dims" Then
    Else:
        namestr = ws.Name & " Weld"
        checkarray() = GetCheckValues(checkwb, namestr)
    End If
Next

checkwb.Close
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

我读过类似这样的奇怪错误可能来自损坏的文件，但如果我理解它已损坏，代码应该根本无法打开文件。

【问题讨论】：

我在网上发现了一些具有类似行为的问题，因为您尝试使用的文件是 .xlsm，显然要确保这些文件中没有导致问题的宏.当文件以“分页预览”模式保存时，excel 显然需要连接的打印机才能访问。如果将网络打印机列为默认设置并且它变得无法访问，您将看到此问题。不过，这就是我能找到的全部内容。
刚打开我正在打开的书，将所有页面视图设置为“正常”模式并再次运行代码。完美运行，感谢您的帮助！

标签： vba excel printing installation

【解决方案1】：

将目标工作簿中所有工作表的页面视图设置为“正常”模式可解决此问题。感谢 Ricardo Rodrigues 的提示！

【讨论】：