التعديل علي كود الطباعة

[الذول]

ارجو من اعضاء المنتدي في تعديل علي الكود معاينة قبل الطباعة ثم الطباعة
فكرة الكود اخفاء الصفوف التي لا تحتوي علي اسماء الطلاب في اللجنة حيث عدد الطلاب متغير من لجنة الي اخري ثم المعاينة ثم طباعة اللجان من E5:F5
المشكلة اثناء عمل المعاينة بيظهر رسالة تود الطباعة اختار لا يقوم بالطباعة
ارجوا حل المشكلة
وشكرا

khaled2.rar

[عبدالسلام ابوالعوافي]

هناك امران للطباعة .. الرسالة تلغي الامر الاول .. لكن الامر الثاني غير مرتبط بالرسالة

[ياسر خليل أبو البراء]

ربما يجب أن تضع جملة Else بعد نهاية الشرط الأول وتحدد المطلوب وهو الخروج من الكود بعدها باستخدام جملة Exit Sub ..

[الذول]

السلام عليكم

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

وشكرا

[عبدالسلام ابوالعوافي]

اخي الكريم .. ماقلته لك هو تشخيص المشكلة وليست الحل .. لاني لم اراجع الكود بالكامل ..الان قمت بمراجعة الكود وقمت بازالة بعض الاكواد واتمنى ان يكون هذا ماتريد

Sub Button2_Click()
    Application.ScreenUpdating = False
        For I = 8 To 32
            If Cells(I, 3).Value = "" Then
                Cells(I, 3).EntireRow.Hidden = True
            End If
        Next I
    ActiveSheet.PrintPreview
    If MsgBox("هل تود الطباعة بعد المعاينة؟", vbYesNo + vbQuestion, "طباعة") = vbYes Then ActiveSheet.PrintOut
    Rows.Hidden = False
    Application.ScreenUpdating = True
End Sub

 

[الذول]

شكرا علي الرد

ولكن امر الطباعة عاوزة  من الرقم الموجود في الخلية E5الي الرقم الموجود في الخلية :F5  كما كان في ورقة العمل

وشكرا

[عبدالسلام ابوالعوافي]

هل تقصد عدد النسخ ؟

[ياسر خليل أبو البراء]

الأفضل أخي الكريم أن تشرح المطلوب بشكل عملي .. دعك من الكود الموجود على الإطلاق واشرح الخطوات المطلوبة لحل المشكلة لتتضح صورة طلبك بشكل أفضل

[الذول]

السلام عليكم

اخواني الكود الا محتاجة يعمل اخفاء للصفوف الفارغة اثناء الطباعة لان عدد الطلبة فى اللجان متغير في كل لجنة ثم يقوم بمعاينة الطباعة  تظهر رسالة هل تود الطباعة لو اخترت لا لم يطبع ونعم يطبع ثم الطباعة كل اللجان من الخلية E5 : F5

وشكرا

[ياسر خليل أبو البراء]

وعليكم السلام

رعم أنني غير مقتنع بالمنطق المطلوب لحل المشكلة ولكن جرب الكود التالي

Sub Print_Task()
    Application.ScreenUpdating = False
        Rows("8:32").Hidden = False
        For I = 8 To 32
            If Cells(I, 3).Value = "" Then
                Cells(I, 3).EntireRow.Hidden = True
            End If
        Next I
    
        If MsgBox("هل تود الطباعة بعد المعاينة؟", vbYesNo + vbQuestion, "طباعة") = vbYes Then
            ActiveSheet.PrintPreview
            ActiveSheet.PrintOut
    
    
            For I = Range("E5").Value + 1 To Range("F5").Value
                Range("E5") = I
                If I <= Range("E5") Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
            Next I
    
            Range("E5").Select
            Rows.Hidden = False
        Else
            MsgBox "Cancelled", vbExclamation
        End If
    Application.ScreenUpdating = True
End Sub

 

 

[الذول]

اشكرا جدا علي الاستجابة لي وربنا يجعلة في ميزان حسناتك

في ملاحظة اما جربت الكود لقيتة بيخفي اللجنة الاولي فقط اما باقي لا

هل في امكانية لاخفاء كافة الصفوف الفارغة في اللجان كلها

وشكرا

[ياسر خليل أبو البراء]

جرب الكود التالي بعد التعديل ..

Sub Print_Task()
    Application.ScreenUpdating = False
        Rows("8:32").Hidden = False
        For I = 8 To 32
            If Cells(I, 3).Value = "" Then
                Cells(I, 3).EntireRow.Hidden = True
            End If
        Next I
    
        If MsgBox("هل تود الطباعة بعد المعاينة؟", vbYesNo + vbQuestion, "طباعة") = vbYes Then
            ActiveSheet.PrintPreview
            ActiveSheet.PrintOut
    
    
            For I = Range("E5").Value + 1 To Range("F5").Value
                For I = 8 To 32
                    If Cells(I, 3).Value = "" Then
                        Cells(I, 3).EntireRow.Hidden = True
                    End If
                Next I
                
                Range("E5") = I
                If I <= Range("E5") Then ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
                
                Rows.Hidden = False
            Next I
    
            Range("E5").Select
            Rows.Hidden = False
        Else
            MsgBox "Cancelled", vbExclamation
        End If
    Application.ScreenUpdating = True
End Sub

تقبل تحياتي

[الذول]

اخي العزيز

بعد التحية

الكود  بيعطي خطأ معلش تعبك معايا  معلش ممكن تجرب الكود بحيث تعرف الخطأ

معلش الكود مهم جدا

وشكرا

[ياسر خليل أبو البراء]

أخي الكريم يرجى تحديد موقع الخطأ ..انقر على كلمة Debug ستجد ظهور سطر باللون الأصفر لديك قم بنسخه ووضعه في المشاركة مع صورة للخطأ

(قم بنسخ الكود مرة أخرى من المشاركة السابقة فقد تمت إضافة سطر واحد)

تقبل تحياتي

[الذول]

السلام عليكم

اسف للازعاج انا تعبتك معايا كتير ربنا يجعلة في ميزان حسناتك 

الكود الاول ممتاز مافيش رسائل خطأ لكن في مشكلة واحدة هي الاخفاء مثلا عند تحديد الطباعة من اللجنة ا : 3 ويكون اللجنة 1 عدد الظلاب فيها 20 بيخفي الصفوف الفارغة

اللجنة 2 عدد الطلاب 18 يطبعا 20 طالب 18 صف فيهم اسماء الطلبة و صفين فارغين

اللجنة 3 عدد الطلاب 25 يطبعها 20 طالب والباقي مخفى في الطباعة

يعني مثبت علي اللجنة الاولي وعددها 20 صف

يعني اول لجنة بتحدد عدد الصفوف ويثبتة في باقي اللجان سواء بزيادة صفوف فارغة او اخفاء صفوف فيها اسماء طلاب

وشكرا

تم تعديل مايو 7, 2016 بواسطه الذول

[ناصر سعيد]

ممكن ترسل ملف اخي الذول  وشكرا مقدما

[زائر]

تفضل اخي ..

هذه الطريقة قمت بعملها وهي معتمدة على ما املك من خبرة بسيطة جدا في مجال الاكواد...

فدمجت بين الاكواد البسيطة التي اعلمها وبين المعادلات... لعلها تفيدك..

تجربة.rar

[الذول]

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

المرفق

khaled2.rar