مساعده فى طريقه اسرع للطباعه

[مصطفى رياض]

مطلوب مساعده فى طريقه اسرع لطباعه فواتير المبيعات المتسلسله (انظر المرفق)

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

داخل المرفق خليه مظلله باللون الاصفر بها سيريال الفواتير المراد طباعتها فمثلا السيريال اللى عليه الدور رقم 170 اضغط طباعه

ثم الفاتوره التاليه : اكتب فى الخليه الصفراء 171 ثم اضغط طباعه وهكذا اكرر العمليه الى نهايه المسلسل - وهذا امر ممل جدا ودائما ما يسقط بعض التسلسل

برجاء ايجاد طريقه عبقريه تسهل عمله الطباعه وان امكن ان يكون الحل يتيح امكانيه تحديد الطباعه فى امر واحد مثلا : من المسلسل رقم 170 الى 210

ولكم منى وافر الشكر والتقدير

Sales Inv.rar

تم تعديل يونيو 27, 2010 بواسطه Mostafa Riyad

[أيسم إبراهيم]

السلام عليكم

الأخ الكريم

لو ترفق الملف بتنسيق 2003 يساعدك الجميع إن شاء الله

أصل ما عندي أوفيس 2007 الآن

دمت بخير

أيسم إبراهيم

[عادل حنفي]

السلام عليكم

اخي Mostafa Riyad

تم عمل زر عند الضغط عليه سيظهر لك فورم

به 2 تكست بوكس الايمن تضع الرقم الاصغر و في طلبك هو 170

و الاخر تضع به الرقم الاكبر و في طلبك هو 210

و طبعا متاح لك تضع اي ارقام تريدها بس لابد ان يكون الاصغر يمينا و الاكبر يسارا

جرب الملف و اخبرني النتيجة

مرفق لك الملف علي 2003 و 2007 فاختار ما تراه لعملك

تحياتي

Sales.rar

[مصطفى رياض]

اخى الكريم عادل حنفى

ولا احلى ولا اجمل من كدا

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

الطريقه اجمل مما توقعتها

ولو تفضلت بكرمك وتعلمنى كيفيه نقل هذه الطريقه الرائعه لملفات اخري ممثاثله ؟؟؟ وان امكن عدم ظهور الزر فى الطباعه

وشكرا

تم تعديل يونيو 28, 2010 بواسطه Mostafa Riyad

[مصطفى رياض]

السلام عليكم

الأخ الكريم

لو ترفق الملف بتنسيق 2003 يساعدك الجميع إن شاء الله

أصل ما عندي أوفيس 2007 الآن

دمت بخير

أيسم إبراهيم

أخى أيسم

اسف على التأخير انا كنت فى طريقى لرفع الملف بصيغه 2003

ولكن سبقنى الاستاذ عادل حفنى بالاجابه الرائعه

الف شكر على الاهتمام وجزاكم الله كل خير

[عادل حنفي]

السلام عليكم

اخي الكريم Mostafa Riyad

لك كل شكري اخي العزيز علي كلماتك التي سعدت بهاكثيرا

و اكثر ما تسعدني به هو اتمام افادتك بها لتسهيل عملك

فلك كل شكري و تقديري

اما بالنسبه للطريقة

في محرر الاكواد قم باضاقة قورم جديد

و ضع بداخله عدد 2 تكست بوكس و زران احدهما سمه باسم Print و الاخر باسك cancel

في محرر اكواد الزر Print الصق الكود التالي

Private Sub CommandButton1_Click()

If TextBox1 = "" Or TextBox2 = "" Then

MsgBox ("اكمل البيانات")

Exit Sub

End If

If TextBox1 > TextBox2 Then

MsgBox ("يجب ان يكون هنا الرقم الاصغر")

TextBox1.SetFocus

Exit Sub

End If

m = TextBox1.Value

n = TextBox2.Value

For i = m To n

If i = m Then GoTo 1

Range("m9") = i

ActiveSheet.PrintOut

Next

Exit Sub

1:

ActiveSheet.PrintOut

Exit Sub

ثم اذهب الي الشيت و اضف زر سمه وفي محرر اكواده الصق الكود التالي

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

و بالنسبه لعدم ظهور الزر في الطباعة ضع الزر خارج مجال الطباعة

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

خالص تحياتي و تقديري

[يوسف عطا]

السلام لكم جميعاً

الأخ العزيز عادل بك

كيف أحدد نطاق الطباعة ليكون متناسباً مع الورقة A4 ؟؟

شاكر لك فضلك

[عادل حنفي]

السلام عليكم

اخي يوسف عطا

ساجاوبك علي حد علمي بالنسبة للطباعة

اختر وضع معاينه للصفحة المراد طباعتها ثم اضغط غلي setup

و من تبويب Page وتحت المنتصف من القائمة التي ستظهر لك ستجد paper size

و امامها قائمة منسدلة اختر منها A4 ثم Ok

تحياتي