طباعة بيانات محدده

[الشيباني1]

اخواني الاعزاء  تحية طيبه جاد احد عمالقة المنتدى بالكود الرائع الذي يتضمنه الملف المرفق

ارجو التفضل باجراء التعديل اللازم عليه ليتم الاستفاده منه في الجدول الجديد  مع الامتنان

[الشيباني1]

اخواني الاعزاء   الملف مع الشكر

كود لطباعة بيانات مفرزه HaNcOcK2.zip

[الشيباني1]

اخواني الاعزاء لا زلت منتظرا لأني لن يخيب بأذن الله ظني بوركتم

[عبدالله المجرب]

السلام عليكم 

اليك هذا التعديل الطفيف على الكود

Sub Button12_Click()

TT = 4
    Do Until Cells(TT, "BN").Value = ""
        TT = TT + 1
    Loop
Range(Cells(2, "BG"), Cells(TT - 1, "BN")).Select
Selection.PrintOut Copies:=1, Preview:=True, Collate:=True

End Sub

Sub Button13_Click()
TT = 4
    Do Until Cells(TT, "BN").Value = ""
        TT = TT + 1
    Loop
Range(Cells(2, "BG"), Cells(TT - 1, "BN")).Select
Selection.PrintOut Copies:=1, Collate:=True

End Sub

[مرعى السيد]

 

 

الرجاء شرح معنى TT=4

 

وشرح هذا السطر  Range(Cells(2, "BG"), Cells(TT - 1, "BN")).Select

 

 

 

[الشيباني1]

استاذنا القدير اشكرك وادامك الرحمن لنا مرجعا

[الشيباني1]

استاذنا القدير تحية طيبه بعد تغيير محتوى الاعمده ( لتكون القوائم اكثر من الوصولات ) كما في المرفق لم يعمل الكود المعدل ارجو النظر في الموضوع مع الشكر

كود لطباعة بيانات مفرزه HaNcOcK3.zip

[مرعى السيد]

الرجاء التعديل فى هذا الكود كما موضح بالشيت

ولكم الشكر  

طباعة التحديد -m.rar

[عبدالله باقشير]

الرجاء التعديل فى هذا الكود كما موضح بالشيت

ولكم الشكر  

 

جرب هذا الكود

Sub print_m()
Dim A
Dim TT As Long
TT = Cells(Rows.Count, "B").End(xlUp).Row
Range(Cells(5, "B"), Cells(TT, "F")).PrintPreview

A = MsgBox("هل تود الطباعة بعد المعاينة ؟", vbYesNo + vbQuestion, "طباعة")
If A = vbYes Then
    With ActiveSheet
        .PrintOut
    End With
End If
End Sub

تحياتي

[مرعى السيد]

السلام عليكم 

تحية الى أستاذنا المبدع عبد الله باقشير 

 

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

ولا أدرى ما السبب ( هو الكود يطبع ولكن مش التحديد حتى أخر خليه بها بيانات فى عمود b )

رقم فك الأكواد 16 وكود الطباعة فى موديول 3  

 

المستخدم ib   رقم الدخول 2013

 

اسف على الأطاله 

برنامج السخاوى.rar

[مرعى السيد]

للرفع

[عبدالله باقشير]

السلام عليكم

 

السبب العمود بي فيه معادلات

 

استخدم الكود السابق

Sub print_m()
Dim A
Dim TT As Long
TT = 6
    Do Until Cells(TT, "B").Value = ""
        TT = TT + 1
    Loop
Range(Cells(1, "B"), Cells(TT - 1, "O")).PrintPreview

A = MsgBox("هل تود الطباعة بعد المعاينة ؟", vbYesNo + vbQuestion, "طباعة")
If A = vbYes Then
    With ActiveSheet
        .PrintOut
    End With
End If

End Sub

[مرعى السيد]

شكرا أستاذنا الكبير / عبد الله باقشير 

 

ولكن الكود يعمل    هل لا يوجد حل لطباعة التحديد فى ظل المعادلات ؟

[مرعى السيد]

أسف 

 

الكود لا يعمل

[مرعى السيد]

up

[بن علية حاجي]

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

 

أخي الكريم وأستسمح أخي الحبيب عبد الله على تعديل بسيط في الكود... السبب في عدم عمل الكود جيدا هو وجود المعادلات في العمود B وتوجد طرق لحل هذا المشكل وقد اخترت من بينها الحل التالي:

قمت في الكود بتغيير السطر : TT = Cells(Rows.Count, "B").End(xlUp).Row 

بالسطر (TT = Application.Match("******", Range("B:B"), 0
ومكان النجوم ****** في الصيغة هي كلمة "الإجمالي" أي أن هذا الجزء من الكود يبحث عن رقم سطر وجود هذه الكلمة في العمود B وهو السطر الذي يحد الجدول وناحية الطباعة من الأسفل من الأسفل ... أرجو أن يكون هذا التعديل مستوفيا المطلوب...

 

أخوك بن علية

 

الملف المرفق:  برنامج السخاوى.rar

[بن علية حاجي]

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

 

أخي الكريم، التعديل السابق يخص فقط المعاينة قبل الطباعة للنطاق الذي يحوي بيانات... ولطباعة هذا النطاق عليك أخي الكريم أن تقوم بتعديل آخر في الكود نفسه وذلك بتغيير السطر:

With ActiveSheet

بالسطر:

With Range(Cells(1, "B"), Cells(TT, "O"))

ومعذرة على هذا السهو مني....

أخوك بن علية

 

[مرعى السيد]

بارك الله فيك استاذنا / بن عليه حاجي

 

الكود يعمل جيدا ربنا يزيدك من علمه 

[الشيباني1]

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

[بن علية حاجي]

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

 

استاذنا القدير تحية طيبه بعد تغيير محتوى الاعمده ( لتكون القوائم اكثر من الوصولات ) كما في المرفق لم يعمل الكود المعدل ارجو النظر في الموضوع مع الشكر

 

أخي الكريم الشيباني، معذرة على هذا التداخل في المواضيع اعتقادا منا أننا نتعامل مع السائل نفسه والخطأ منك أيضا لأنك لم تتابع موضوعك لحظة بلحظة وإلا لما تركت الردود تتابع في موضوع ليس موضوعك... المهم حصل خير... أقترح عليك الحل التالي في المرفق وإن شاء الله يستوفي المطلوب...

 

ومعذرة مرة أخرى...

 

أخوك بن علية

 

الملف المرفق :  كود طباعة hben.zip

تم تعديل يونيو 15, 2013 بواسطه بن علية حاجي

[الشيباني1]

استاذنا القدير اشكرك جدا وادامك الرحمن لنا مرجعا

[زاكي بوشلاغم]

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

[حمادة عمر]

السلام عليكم

الاخ الكريم / زاكي بوشلاغم

بارك الله فيك

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

مع ارفاق ملف به مثال لما تريده للعمل عليه

حيث وجدت لك اكثر من سؤال في اكثر من موضوع مما يجعل موضوعك وطلبك غير ظاهر للجميع ليمكن الاجابة عليه

برجاء ارفاق ملف مع كل طلب بمثال للشكل الموجود لديك

جزاك الله خيرا

[حمادة عمر]

الاجابة علي الرابط

 

http://www.officena.net/ib/index.php?showtopic=49017&st=0&p=298710

تم تعديل سبتمبر 27, 2013 بواسطه حمادة عمر