طباعة المفرز - ( تمت الإجابة )

[الشيباني1]

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

Sub Button12_Click()

TT = 4

Do Until Cells(TT, "Q").Value = ""

TT = TT + 1

Loop

Range(Cells(4, "O"), Cells(TT - 1, "U")).PrintOut Copies:=1, Preview:=True, Collate:=True

End Sub

Sub Button13_Click()

TT = 4

Do Until Cells(TT, "Q").Value = ""

TT = TT + 1

Loop

Range(Cells(4, "O"), Cells(TT - 1, "U")).PrintOut Copies:=1, Collate:=True

Selection.AutoFilter

Range("O4:X4").AutoFilter

End Sub

طباعة المفرز.zip

[أبوعبد الله]

أخي العزيز

أرجو الاطلاع على المرفق وفيه تم الآتي :

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

أرجو أن يكون هذا موافق لما طلبته .

تحياتي

أبو عبدالله

قائمة للطباعة حسب أسماء العملاء.rar

[abouelhassan]

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

ابوعبدالله

ابداع وتألق

احترامى

[الشيباني1]

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

[أبوعبد الله]

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

أخي العزيز

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

تحياتي

[الشيباني1]

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

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

[أبوعبد الله]

أخي العزيز

هل تريد تنفيذ الفكرة على كل البيانات بالورقة أي طباعة كل العملاء معاً بشرط إخفاء الصفوف الفارغة ( مع وجود فرق بين عميل وآخر فيما يتعلق بآخر صف به بيانات ) وبالتالي سيتم الطباعة على مستوى آخر صف لأكثر عميل لديه بيانات ، أم تريد تطبيق الفكرة بإخفاء الصفوف الفارغة على مستوى كل عميل بطباعة منفصلة لكل عميل ، أرجو التأكيد والتوضيح ؟

[الشيباني1]

استاذنا الكريم ما وددت الحصول عليه هو الخيار الثاني (تطبيق الفكرة بإخفاء الصفوف الفارغة على مستوى كل عميل بطباعة منفصلة لكل عميل ) مع تقديري

[أبوعبد الله]

أخي العزيز

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

تحياتي

قائمة للطباعة حسب أسماء العملاء مع إخفاء الصفوف الفارغة-1.rar

[الشيباني1]

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

- لا يمكن طباعة الاسطر التي تتجاوز السابع رغم تعديلPrint_Area وعدم امكانية طبع الاسماء غير ( محمد )

ارجو المساعده في معالجة الموضوع مع الامتنان

[أبوعبد الله]

أخواني الأعزاء

فضلاً أرجو التكرم ممن قام بتنزيل الملف بالرد رقم (9) أن يطابقه مع ما ورد برد الأخ العزيز صاحب السؤال في الرد (10) فيؤكد ما جاء به أو ينفيه ، حيث أنني لم أجد أي شيئ مما ذكره يحدث بالملف عندي قبل أو بعد إرفاقه .

مع جزيل الشكر والتقدير

[الشيباني1]

استاذنا العزيز اعتذر عن هذا الخطأ غير المقصود والذي كان لسبب في برنامجي اشكرك جدا وادامك الرحمن لنا مرجعا