Configuration d'impression indésirable

Question

Je rencontre donc un comportement bizarre lorsque j'essaie d'ouvrir un nouveau classeur (checkwb). Lorsque le nouveau classeur s'ouvre, il ouvre une boîte de dialogue "Configuration de l'impression" pour chaque page du classeur. En outre, après avoir cliqué sur "OK" ~ 200 fois le code fonctionne bien, mais si je ferme checkwb et essaie de réexécuter le code, il ne peut pas ouvrir checkwb jusqu'à ce que je ferme complètement Excel et réouvre, à quel point les dialogues d'impression réapparaissent. Voici mon (incomplet) Code:

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 

J'ai lu des erreurs étranges comme cela peut se produire à partir de fichiers corrompus, mais le code ne doit pas être en mesure d'ouvrir le fichier du tout si elle était corrompue par ma compréhension.

Answer 1

La définition de l'affichage de page pour toutes les feuilles du classeur cible en mode "Normal" a résolu ce problème. Merci à Ricardo Rodrigues pour le conseil!