المطلوب طباعة استمارة لكل موظف عن طريق ضغط زر واحدة

[عبدالقادر شحرور]

السلام عليكم

أرجو توضيح كيفية عمل ماكرو يقوم بطباعة استمارات للعاملين كل حسب معلوماته الخاصة به

أي المراد بضغطة زر أن يتم طباعة استمارة كل عامل على حدا على ورقة .

شكراً

طباعة.rar

[عبد الفتاح كيرة]

    Sheets("sheet(3)").Select

        Range("A1:F15").Select

    ActiveSheet.PageSetup.PrintArea = "$A$1:$F$15"

    ActiveWindow.SelectedSheets.PrintPreview

    ExecuteExcel4Macro "PRINT(1,,,1,,FALSE,,,,,,2,,,TRUE,,FALSE)"

تم تعديل نوفمبر 26, 2010 بواسطه kemas

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

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

أخي الكريم، هذا حل آخر بالملف المرفق...

أخوك بن علية

طباعة1.rar

[عبد الفتاح كيرة]

أشكرك أخانا بنعلية على المعلومة القيمة

أعرفها لأول مرة

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

ستفيدنى كثيرا بإذن الله فى طباعة ملفات مشابهة

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

[عبدالقادر شحرور]

شكراً لأخي kemas على الحل وبارك الله فيه

جزى الله أخي بن علية فهو انسان بارع

سبحان الذي علمنا وعلمكم , والحمد لله رب العالمين

وفقكم الله

[عبدالقادر شحرور]

اخي الكريم بن علية

ارجو توضيح كيفية عمل الماكرو الذي عملته أنت على شيت آخر تمت اضافته للملف الذي عملته أنت , ولك جزيل الشكر

أي اصبح في الملف 3 أوراق عمل ( شيتات )

[عبدالقادر شحرور]

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

تمت تجربة الملف وقد كانت النتائج رائعة

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

يعجز لساني وقلمي عن الشكر لأخي ابن علية وغيره على ما يقدمونه في منتدى أوفيسنا الغالي.

وقد جاء في معنى الحديث النبوي : " لم يشكر الله من لم يشكر الناس"

[يحيى حسين]

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

اضافة لحلول الاخوة الجميلة

هذا كود قد يفيدك اخي

و على فرض ان الصفحة التي بها الاسماء اسمها Data

و الصفحة التي بها الاستمارات اسمها PrintPage

جرب هذا الكود

 Sub Yahya()

Dim c As Range, ws As Worksheet, LR As Integer

LR = Sheets("Data").Range("a" & Rows.Count).End(xlUp).Row

Set ws = Sheets("PrintPage")

For Each c In Sheets("Data").Range("b3:b" & LR)

    With ws

        .Range("c2").Value = c.Value

        .Range("c3").Value = c.Offset(, 1).Value

        .Range("c8").Value = c.Offset(, 2).Value

        .Range("a8").Value = c.Offset(, 3).Value

        .PrintOut

    End With

Next c

End Sub 

[عبد الفتاح كيرة]

فكرة طيبة أستاذنا يحيى

زادك الله علما

[فارس الصحراء الغربية]

بارك الله فيك