كود طباعة لمجموعة شيتات

[ابو محمد الزعفرانية]

السلام عليكم

انا بحاجة الى كود طباعة يقوم بطباعة جداول في ثلاث شيتات بامر واحد

Sub Print6()
Range("A1:K" & Cells(Rows.Count, "B").End(xlUp).Row).PrintOut
End Sub

حاليا هذا الكود عندي اريد التعديل عليه ليقوم بطباعة من عدة شيتات

[lionheart]

Sub Print6()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name = "Sheet1" Or ws.Name = "Sheet2" Or ws.Name = "Sheet3" Then
            ws.Range("A1:K" & ws.Cells(Rows.Count, "B").End(xlUp).Row).PrintOut
        End If
    Next
End Sub