ممكن كود طباعة لتقرير على نموذج معد مسبقاً

[مهند محسن]

ارجو المساعدة في هذا العمل المطلوب  طباعة التقرير على نموذج معد مسبقاً وهو شيت ( Print1 )

وتكون طباعة الصفوف الممتلئة فقط ....

مع فائق الشكر والاحترامالصفوف الممتلئة  فقط .... مع فائق الشكر والاحترام

m110.rar

[مهند محسن]

19 ساعات مضت, مهند محسن said:

ارجو المساعدة في هذا العمل المطلوب  طباعة التقرير على نموذج معد مسبقاً وهو شيت ( Print1 )

وتكون طباعة الصفوف الممتلئة فقط ....

مع فائق الشكر والاحترامالصفوف الممتلئة  فقط .... مع فائق الشكر والاحترام

m110.rar

 

[أبو حنــــين]

السلام عليكم

هل هناك معيار آخر مثلا طباعة فاتورة شراء فقط او بيع فقط او كليهما او تحديد اسم معين ...........

 

تم تعديل أبريل 26, 2016 بواسطه أخوكم في الله

[مهند محسن]

السلام عليكم اخي العزيز

وانا شاكر لك مرورك الكريم

واشكرك على المساعدة

المعيار حسب اسم العميل او المورد

مع فائق الشكر والتقدير

[أبو حنــــين]

نسيت ان اطرح سؤال

هل الطباعة لها علاقة بما هو موجود في الشيت او ما هو موجود في ListBox1

Sheet1

[مهند محسن]

ممنون  اخي العزيز واتمنى الموفقية

الطباعةماهو موجود في  ListBox1

مع فائق الشكر والتقدير

[مهند محسن]

ممنون  اخي العزيز واتمنى الموفقية

الطباعةماهو موجود في  ListBox1

مع فائق الشكر والتقدير

تحية طيبة
اخي العزيز انا انتظر الرد
شكرا لك

[أبو حنــــين]

السلام عليكم

جرب أخي المرفق

m111.rar

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

بارك الله فيك وجزاك الله كل خير أخي وحبيبي في الله أبو حنين

لكم اشتقنا لمعين علمكم .. جعله الله في ميزان حسناتك يوم القيامة

 

 

[مهند محسن]

الاخ والاستاذ العزيز أبو محمد الأمين

السلام عليكم 

شكرا لك واتمنى لك الصحة الدائمة ان شاء الله

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

اخي ابو محمد الأمين ...... تبقى شيء واحد اريد ظهور التاريخ من/ الى عند الطباعة 

وخيراً لكم فائق الشكر والتقدير

 

 

 

m111.rar

[أبو حنــــين]

السلام عليكم

أولا اعتذر عن التاخر في الرد  وذلك لانني  لمم اتصل مند ثلاثة أيام

اخي  ابو البراء  جزاكم الله خيرا على مروركم و كلماتكم الطيبة و إلتفاتتكم الحسنة تشجيعا لكل الاخوة ، أحسن الله إليك و أثابك الجنة

أخي مهند لقد تم عمل المطلوب

m222.rar

[مهند محسن]

الاستاذ المبدع ابو محمد الامين

السلام عليكم

انا جدا ممنون لك وشكرك على هذا العمل الرائع 

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

الطلب هو كود مسح او تصفير الصفحات ( الشيت) حسب المدخل لكل صفحة من خلال فروم 2 وليس من خلال الشيت

ولكم الف تحية وتحية

m222.rar

[مهند الزيدي]

تفضل أخي العزيز هذا الكود واكمل انت بقية الصفحات والنطاق الذي تريده .. مع تقديري 

Sub Clear_Sheet()
Sheets("Sheet1").Range("A2:O1000").ClearContents
End Sub

 

[مهند محسن]

ممنون لك مع كل التقدير والاحترام

 

[مهند الزيدي]

تدلل

تم تعديل مايو 3, 2016 بواسطه مهند الزيدي

[مهند محسن]

الاستاذ المبدع ابو محمد الامين

تحية طيبة

عمل رائع جدا ولكن عندم افراغ ورقة1 لايعمل فروم الكشف

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

الاستاذ المبدع ابو محمد الامين

تحية طيبة

عمل رائع جدا ولكن عندم افراغ ورقة1 لايعمل فروم الكشف

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

m222.rar

[أبو حنــــين]

مرحبا

في الحدث : Private Sub UserForm_Initialize()

أكتب تحت هذا السطر : Sheets("Sheet1").Activate

السطرين التاليين

'--------------------------------------------------------------------
LRoww = Range("D" & Rows.Count).End(xlUp).Offset(1, 0).Row
If LRoww = 2 Then Exit Sub
'--------------------------------------------------------------------

[مهند محسن]

في Tuesday, May 03, 2016 at 16:48, مهند محسن said:

الاستاذ المبدع ابو محمد الامين

تحية طيبة

عمل رائع جدا ولكن عندم افراغ ورقة1 لايعمل فروم الكشف

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

الاستاذ المبدع ابو محمد الامين

تحية طيبة

عمل رائع جدا ولكن عندم افراغ ورقة1 لايعمل فروم الكشف

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

m222.rar

 

الاستاذ المبدع ابو محمد الامين

تحية طيبة

اقول لك اتمنى لك الموفقية في حياة ان شاء الله

شكرا شكرا