طلب ادراج رقم الشيت فى الطباعة

[Mina AboElSaad]

السلام عليكم 

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

رقم الشيت مش رقم الصفحة 

لان لما باجى اكتبها يدوى احيانا بسقط ارقام والملف فيه شيتات كتيره جدا 

وشكرررا ليكم مقدماً

Test.xlsm

[أحمد يوسف]

وعليكم السلام-تفضل

How To Print Sheet Name Or A List Of Sheet Names In Excel?

[Mina AboElSaad]

الف شكرا على استجابتك 

بس دا من الحل اللى عايزة 

محتاج ادرج رقم الشيت فالطباعة 

بمعنى فى 35 شيت داخل ملف العمل وانا باطبع كل شيته يدرج رقم الشيت 1 . 2 . 3 .... وهكذا حتى 35 

[نزار سليمان عيد]

مرحبا

ادخل من اعدادات الطباعة

ثم اختار تذييل الصفحه

واختار اين تريد اظهار رقم الصفحة في اي مربع واختار رقم الصفحة من  الزر المحاط بالاحمر

ملاحظه حضرتك عامل بالملف المرفق ومكتوب رقم الصفحة

مع الشكر

 

 

[عبدالفتاح في بي اكسيل]

جرب  هذا  الماكرو 

قم  بانشاء  صفحة  خاصة  لطباعة  الاوراق   وقم بوضع  اسماء  الاوراق  التي  تود  طباعتها     ابتداء  من  الصف  الثاني في  العمود A 

Sub PrintAllSheets()
    Dim c As Range
    Dim s As String 
    On Error GoTo errHandle
    For Each c In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
        Worksheets(c.Value).PrintOut
    Next c
Exit Sub  
errHandle:
    s = "Error while trying to print sheet '" & c.Value & "'" & vbNewLine & Err.Description
    MsgBox s, vbCritical, "Error No. " & Err.Number
End Sub