هل من الممكن عمل ماكرو يعطي امر طباعة بطريقة معقدة شوي

[anur.mertah85]

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

أخوتي في الله بارك الله فيكم على منحي القليل من وقتكم

عندي استفسار بخصوص هل يمكن ربط امر الطباعة بكود معين

لا اعرف كيف اشرح ما اريد ، انا عندي ورقة اكسيل بها خلية تحتةي على رقم متغير وكل مايتغير هذا الرقم تتغير البيانات اللي تحته وانا عندي ما يقارب 100 رقم يعني بدي اعمل رقم 1 واطبع البيانات اللي يخرجها ومن تم اعمل رقم 2 واطبع البيانات اللي يخرجهاوهكذا حتى اصل الى رقم 100

فسؤالي هل توجد طريقة يعني اخلي كل الارقام تنطبع لوحدها كل رقم وبيانته في ورقة لحالها ، يعني بدل ما اقعد اغير في الرقم لحالي اخليه يغير الرقم لوحده وكمان يطبع هالمية ورقة لحالو

ان شاء الله تكونو فهمتوني

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

[anur.mertah85]

وبالمناسبة هذا هو الملف اللي حكيت عليه

في ورقة الايصالات بدي اطبع الورقة هاذي كل ما اغير الاسم يعني اخلي الاكسل بامر من الماكرو يغير كل مرة رقم ويطبعه وهكذا

اليكم الملف

كشف مرتبات إدارة المبيعات.rar

[anur.mertah85]

بالمناسبة اشكر اخي المحترم عمر فهو الذي ساعدني بارك الله فيه ليكون المصتف المرفق السابق كما رايتموه

والسلام عليكم

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

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

لم أتمكن من فتح الملف الذي أرفقه بردك (لأني أعمل بـ "أوفيس 2003")... وقد حضرت لك الكود التالي ويمكنك وضع زر أمر لتنفيذه...

ملاحظة : لقد اعتبرت W1 الخلية هي الخلية التي تحوي العدد المتغير في ملفك، ويمكنك تغييرها حسب ملفك...

وإليك الكود:

Sub Printing()

Dim I As Integer

For I = 1 To 100

        Range("W1") = I

    If I <= 100 Then

        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

    End If

Next I

End Sub

 

وإذا لم يعمل معك فأرجو أن ترفق ملفك بإصدار أوفيس 2003...

أخوك بن علية

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

السلام عليكم

بعد اذن اخي بن علية حفظه الله

استخدمت نفس كود طباعة الشهادات مع بعض التغييرات

ويمكنك تغيير اعدادات نموذج الطباعة من هذه الجزئية في الكود

'***********************************************

'***********************************************

'     اسم ورقة جميع الايصالات

Const ShName As String = "جميع الايصالات"

'     رقم اول صف للايصال

Const FirstRow As Integer = 7

'     عدد صفوف الايصال

Const CountRow As Integer = 30

'     رقم اول عمود للايصال

Const FirstColumn As Integer = 2

'عدد اعمدة الشهادة التي تريد اظهارها في الطباعة

Const CountColumn As Integer = 15

'    خلية تسلسل الايصالات

Const Range_Index As String = "A7"

'   خلية عدد كل الايصالات

Const CountAll As String = "J3"

'************************************************

'************************************************

شاهد المرفق

طباعة الكل.rar

[محمدي عبد السميع]

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

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

[anur.mertah85]

السلام عليكم ورحمة الله تعالى وبركاته أخوتي وأحبتي في الله بارك الله فيكم وجزاكم الله ألف خير وبركة على هذا المجهود العظيم الذي قدمتموه لي بارك الله فيكم

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

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

يعني اخي خبور احيانا اريد طباعة رقم 55 على سبيل المثال دون غيره لتصحيح جرى في راتبه كيف افعل فبارك الله فيك وكثر الله من أمثالكم يا جماعة الخير

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

[sakr korish]

شكرا لكل من يقدم معلومة

[جمال عبد المعطي]

السلام عليكم  استاذ عبد الله باقشير

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