Opgelost Na foutmelding programma vervolgen

[Oude leerling]

Geacht forum,

Onderstaande code is een gedeelte van een groter geheel
Nu gebeurd er af en toe iets , voor mij althans, onverklaarbaars.

Er komen 2 printopdrachten na elkaar
De eerste doet het altijd maar af en toe blijft het programma hangen op de 2e-printopdracht
Waarom ?? Ik weet het niet

De foutmelding is :
Fout 104
Methode PrintOut van Objects is mislukt
Ik heb er al een pauze in gezet maar de fout blijft maar komen

Range("A1:O70").PrintOut
      
   week = Sheets("Kasblad Heerhugowaard").Range("I3").Value
   Workbooks.Open Filename:="C:\Users\Public\Documents\Invul Kasblad.xlsx"       
   Sheets("Invulblad").Range("I1") = week
      Application.Wait DateAdd("S", 2, Now)
   ActiveWindow.SelectedSheets.PrintOut

Nu wil ik , als als de foutmelding komt dat deze genegeerd word
Kunt u de code hiervoor voor mij realiseren
Vriendelijke groet , Oude leerling

 

[OctaFish]

Nu wil ik , als als de foutmelding komt dat deze genegeerd word

Wonderlijke wens; ofwel de foutmelding komt niet, en dan is er niks aan de hand, ofwel de foutmelding komt wél en dan moet je er iets mee. Lijkt mij.

Range("A1:O70").PrintOut
   week = Sheets("Kasblad Heerhugowaard").Range("I3").Value
   Workbooks.Open Filename:="C:\Users\Public\Documents\Invul Kasblad.xlsx"      
   Sheets("Invulblad").Range("I1") = week
      Application.Wait DateAdd("S", 2, Now)
   On Error Resume Next
   ActiveWindow.SelectedSheets.PrintOut

 

[Oude leerling]

OctaFish
Helemaal goed!!
Dankjewel voor de geboden oplossing
En-------Nu wil ik , als als de foutmelding komt dat deze genegeerd word
Heel scherp van je!!
Had ik beter moeten formuleren