اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

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

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

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

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

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

Sales Inv.rar

تم تعديل بواسطه Mostafa Riyad
رابط هذا التعليق
شارك

السلام عليكم

اخي Mostafa Riyad

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

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

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

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

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

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

تحياتي

Sales.rar

رابط هذا التعليق
شارك

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

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

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

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

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

وشكرا

تم تعديل بواسطه 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

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

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

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

رابط هذا التعليق
شارك

السلام عليكم

اخي يوسف عطا

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

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

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

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

تحياتي

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information