(موضوع مميز ) طباعة شهر محدد بموجب أختيارة من الخلية

[الجزيرة]

السلام عليكم ورحمة الله وبركاته

تم شرح المطلوب في الملف المرفق ، مع خالص التحية والتقدير :)

print.rar

[ابو اسامة العينبوسي]

_{السلام عليكم}

Add this code to the botton in the main sheet

 Worksheets((Sheets(1).Range("t3").Value)).PrintOut

[هشام شلبى]

السلام عليكم

=======

ماشاء الله استاذنا الحبيب ابو اسامة

فى المرفق نفس كود ابو اسامة مع تعديل طفيف " الكود كوده "

طباعة ملف من قائمة.rar

[الجزيرة]

أحبائي الأستاذ / أسامه ، والأستاذ / هشام

أشكركم للمساعده المعهوده

أرغب بأن يتوجه الكود إلى ورقة الشهر ومن ثم نقلها إلى ورقة P ثم طباعتها

بمعنى التعديل على الكود أدناه بما يتناسب طلبي :)

Sub Prall2()

Application.ScreenUpdating = False

Worksheets ((Sheets(1).Range("t3").Value))

Range("A3:AG19").Select

    Selection.Copy

    Sheets("P").Select

    Range("A1").Select

    ActiveSheet.Paste

    Application.CutCopyMode = False

    Columns("A:B").Select

    Selection.ColumnWidth = 2

    Columns("C:AF").Select

    Range("C3").Activate

    Selection.ColumnWidth = 6

    Rows("1:17").Select

    Range("C2").Activate

    Selection.RowHeight = 25

   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

    Range("A1").Select

End Sub

[الجزيرة]

وهذا الملف بعد إدراج ورقة P

print.rar

[الجزيرة]

شكراً لكم جميعاً

تم عمل اللازم بعد تعديل طفيف على الكود :)