Problem with Printout Code

Hi good people!,

I don't know, the printout part worked before, now I'm getting an error stating: "Printout Method of Working Class Failed"...Could someone please assist me with this?...All and any help will be very much appreciated!..Thank you..

Code:

---

Application.ScreenUpdating = False
Sheets("Active Work Orders").Unprotect
Sheets("Active Work Orders").Range("C24:R24").Copy
With Sheets("Active Work Orders").Range("T" & Rows.Count).End(xlUp).Offset(1)
      .PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End With
  Sheets("WORK ORDER").Unprotect
Application.Dialogs(xlDialogPrinterSetup).Show
ActiveSheet.PrintOut
 Sheets("NEW JOB CARDS").Visible = True
Sheets("WORK ORDER").Select
Range("A1").Select
Sheets("WORK ORDER").Visible = xlVeryHidden
Sheets("NEW JOB CARDS").Select
    ActiveSheet.Unprotect
    Range("AA4").Select
    ActiveCell.FormulaR1C1 = "1"
    ActiveSheet.Protect

---