Hi good people!,

I have posted this on Mr Excel, this is the link: http://www.mrexcel.com/forum/excel-q...t-problem.html

I have not received any response so I'm trying here. Please help with this code, All works fine except the printing part. ".Printout" is yellow and the error is "Printout method of worksheet class failed".

This is the code: 
Sub PrintPlannedJobs()
'
' PrintPlannedJobs Macro
'
'
    Application.ScreenUpdating = False
    Range("A1").Select
    Sheets("work order 1").Visible = True
    Sheets("work order 1").Activate
    MsgBox (Sheets("Scheduler").Range("AB2").Value & " Records Found")
    If vbOK Then
    If Sheets("Scheduler").Range("AB2").Value = 0 Then
    Exit Sub
    
    Else
    
    If Sheets("Scheduler").Range("AB2").Value <> 0 Then
    Dim Answer As Integer
        Answer = MsgBox("Would You Like To Print These " & Range("AB2") & " Work Orders?", vbOKCancel)
    End If
    
If Answer = vbOK Then
        
 Dim sht
 Application.ScreenUpdating = False
 For Each sht In Sheets
 If sht.Visible And sht.Name <> "SCHEDULER" Then
 With sht
 .PrintOut
End With
 End If
Next
Else
Application.EnableEvents = False
End If
Exit Sub
 
 Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
    If WS.Name <> ActiveSheet.Name Then WS.Visible = xlSheetVeryHidden
Next WS
   
End If
End If
End Sub
all and any help will be very much appreciated!!..thank you all!!