بالفعل اشتغل الكود ولاكن يطلع خطأ علي Sheets(SH).PrintOut
Sub PRNT_ALL()
Dim S, SH, ER
For S = 3 To 13
SH = Cells(S, 20)
If SH <> 0 And SH <> "" Then
Sheets(SH).PrintOut
End If
Next
Sheets("ÈíÇäÇÊ ÇáÚãáÇÁ").Range("A50:Q50").Copy
ER = Sheets("ÍÝÙ ÇáãÚÇãáÇÊ").Range("a55555").End(xlUp).Row + 1
Sheets("ÍÝÙ ÇáãÚÇãáÇÊ").Range("A" & ER).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
ActiveSheet.Range("A1,C30:S2:S29").ClearContents
MsgBox "Êã ÍÝÙ ÇáÈíÇäÇÊ ", vbMsgBoxRight, "ÇáÍãÏááå"
End Sub