أرجو المساعدة في كتابة كود طباعة كل الشيتات

[محمد مصطفى درويش]

السلام عليكم اخواني مرفق ملف العمل فيه بطاقات احوال لكل طلاب الصف وحيث ان عدد الطلاب متفاوت بين الشعب ارجو المساعدة في كتابة كود طباعة كل الشيتات التي تحتوي على بيانات الطلبة علما ان كل بطاقة احوال الطالب موجودة في ورقة عمل منفصلة عن الاخرى علما ان عدد الشيتات المراد طباعتها في حدها الاقصى 60 شيت وفي كل مرة اختار فيها شعبة يختلف عدد الطلاب وبالتالي يختلف عدد الشيتات المراد طباعتها علما ان كلمة المرور لاضافة ميديول جديد هي 12310 شاكرا جهودكم 

بيانات احوال طالب 1.rar

تم تعديل يناير 27, 2023 بواسطه محمد مصطفى درويش

[lionheart]

Try this code

Sub Test()
    ExportAsPDF "Cards"
End Sub

Public Sub ExportAsPDF(ByVal sOut As String)
    Dim ws As Worksheet, s As String
    For Each ws In ThisWorkbook.Worksheets
        If InStr(ws.Name, Chr(199) & Chr(225) & Chr(200) & Chr(216) & Chr(199) & Chr(222) & Chr(201)) Then s = s & IIf(s <> Empty, ",", Empty) & ws.Name
    Next ws
    PrintToPDF Split(s, ","), ThisWorkbook.Path & "\" & sOut & ".pdf"
End Sub

Public Sub PrintToPDF(arr, sFileName As String, Optional vQuality = xlQualityStandard, Optional vIncDocProperties = True, Optional vIgnorePrintAreas = False, Optional vOpenAferPublish = False)
    ThisWorkbook.Sheets(arr).Select
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFileName, Quality:=vQuality, IncludeDocProperties:=vIncDocProperties, IgnorePrintAreas:=vIgnorePrintAreas, OpenAfterPublish:=vOpenAferPublish
    ActiveSheet.Select
End Sub

 

[محمد مصطفى درويش]

اشكرك استاذ lionheart   على الكود هل بالامكان التعديل عليه بحيث لا يطبع كافة البطاقات فان هناك بطاقات في النهاية فارغة ولست بحاجة الى طباعتها والامر مختلف من شعبة الى اخرى واذا كان من الممكن ان توجه الشيتات الى الطابعة مباشرة بحيث لا تحول الى pdf الفكرة التي كانت لدي ولم استطع تنفيذ الكود الخاص بها هي ان اختار خليتين في اكسل فاكتب مثلا في الاولى الرقم 1 وفي الثانية الرقم 42 فيقوم الكود بطباعة الشيتات من 1 الى 42 وهذا الرقم يختلف في كل مرة مثلا في المرة الثانية يطبع من 1 الى 38 وهكذا شاكرا جهودك 

تم تعديل يناير 27, 2023 بواسطه محمد مصطفى درويش