طباعة ملف بشرط

[محمد عبد الناصر]

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

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

طباعة ملف.rar

تم تعديل نوفمبر 23, 2015 بواسطه جيل التابعين

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

Sub PrintSpecificPagesInActiveSheet()
    Dim Arr, SH As Worksheet, Rng As Range, Cell As Range, I As Long
    Set SH = ActiveSheet

    With SH
        ReDim Arr(0 To .HPageBreaks.Count + 1)
        
        If Len(.PageSetup.PrintTitleRows) Then
            Set Rng = .Range(.PageSetup.PrintTitleRows)
            Arr(0) = Rng.Rows(Rng.Row + Rng.Rows.Count).Row
        Else
            Arr(0) = 1
        End If
        
        For I = 1 To .HPageBreaks.Count
            Arr(I) = .HPageBreaks(I).Location.Row
        Next I
        
        Arr(UBound(Arr)) = .Cells.SpecialCells(xlCellTypeLastCell).Row + 1
        
        For I = (LBound(Arr) + 1) To UBound(Arr)
            Set Rng = Intersect(.Rows(Arr(I - 1) & ":" & (Arr(I) - 1)), .UsedRange, .Columns("G"))
            If Not Rng Is Nothing Then
                Debug.Print Rng.Address
                For Each Cell In Rng
                    If Cell.Value > 0 Then
                        .PrintOut From:=I, To:=I
                        Exit For
                    End If
                Next Cell
            End If
        Next I
    End With
End Sub

أخي الكريم محمد فؤاد

أعتقد أن الموضوع قد تم طرحه من قبل من فترة .. وها أنت تعيد طرحه مرة أخرى (مخالفة لتوجيهات المنتدى)

عموماً لا عليك .. جرب الكود التالي عله يفي بالغرض

 

 

Print Specific Pages On Condition Column G Has Value YasserKhalil.rar

[محمد عبد الناصر]

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

الموضوع الى فات محلش الطلب بتاعى اسف انى كررت الموضوع

اخر طلب بس عايزو يبدا طباعه من الاخر للاول يعنى لو الشيت فيه 11 صفحه يبدا بالورقه رقم 11 من الاخر للاول

تم تعديل نوفمبر 24, 2015 بواسطه جيل التابعين

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

أخي الكريم أحمد ولا محمد فؤاد

الحمد لله أن تم المطلوب على خير .. هذا بفضل الله ثم بفضل الله أن يسر لك شخصاً يقوم بذلك الأمر فاحمد الله أولاً وأخيراً

بالنسبة لطلبك الثاني غريب شوية ومش منطقي ..هتفرق ايه الطباعة من الآخر للأول أو من الأول للآخر .مجرد تساؤل

عموماً جرب التعديل في هذا السطر ..قم باستبدال السطر التالي

For I = (LBound(Arr) + 1) To UBound(Arr)

بهذا السطر

For I = UBound(Arr) To (LBound(Arr) + 1) Step -1

 

[عبد العزيز البسكري]

4 دقائق مضت, ياسر خليل أبو البراء said:

أخي الكريم أحمد ولا محمد فؤاد

الحمد لله أن تم المطلوب على خير .. هذا بفضل الله ثم بفضل الله أن يسر لك شخصاً يقوم بذلك الأمر فاحمد الله أولاً وأخيراً

بالنسبة لطلبك الثاني غريب شوية ومش منطقي ..هتفرق ايه الطباعة من الآخر للأول أو من الأول للآخر .مجرد تساؤل

 

من الأفضل يتم قلب الورقة من الأسفل لأعلى ..بدلاً من قلب الكود .. وانتهى الأمر

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

أخي الحبيب زيزو

أضحك الله سنك ..كيف يقلب الورقة ؟؟! خايف بدل ما يقلب الورقة يقلب دماغة عشان يشوف الطباعة بالعكس

 

[عبد العزيز البسكري]

4 دقائق مضت, ياسر خليل أبو البراء said:

أخي الحبيب زيزو

أضحك الله سنك ..كيف يقلب الورقة ؟؟! خايف بدل ما يقلب الورقة يقلب دماغة عشان يشوف الطباعة بالعكس

 

أمزح معك فقط أستاذي الغالي " ياسر خليل أبو البراء "

[محمد عبد الناصر]

الله ينور ربنا يفتح عليك اكتر واكتر
 

ههههههههه المشكلة كانت ان الشيت فيه تقريبا 500 ورقه كان لازم يطبعها من الاخر للاول عشان مش كل لما ورقة تطلع اقلبها على ضهرها وممكن انسى ورقه مكان التانية  عشان لازم يبقى المستخلص مترتب بس تماااااااااااااااام اوى المشكلة اتحلت خلاص الف الف الف مليون شكر ليك 

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

الحمد لله الذي بنعمته تتم الصالحات

بس بردو مقلتش محمد فؤاد ولا أحمد فؤاد ..طنشتني كالعادة يا سكر زيادة

[محمد عبد الناصر]

هههه لا دى ولا دى

محمود فؤاد

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

تم تعديل نوفمبر 25, 2015 بواسطه جيل التابعين