كيف يمكن طباعة تقارير في اكثر من طابعة

[Ibrahim IT]

إلى الاخوة الافاضل السلام عليكم و رحمة الله و بركاته اما بعد

عندي استفسارين عن التقارير

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

2- الاستفسار الثاني هو هل يوجد برنامج يمكن ربطة مع الاكسس و اعطائة امر طباعة من الاكسس؟ ان تعرف لبرنامج كرستل ربوت و لكن اذا كان هناك برنامج اجمل و شبيه له فارجوا وضعط رابطة التحميل مع الشرح بالكود كيفية الربط الاوامر و التقارير بهذا البرنامج

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

[Ibrahim IT]

كيف شباب وينكم الله يخليكم محتاج هذا الكود ضروري

[محب العلم]

لقد حاولت الدخول إلى اعدادات الطابعة او الصفحة للتقرير و وضع الطابعة المخصصة للتقارير و لكن عند اغلاق التقرير ترجع اعدادات التقرير للطابعة الافتراضية

هل أنت متأكد أن هذا هو السب ؟ !

إذا دخلت وأنت في وضع التصميم في التقرير إلى File | Page Setup | Page | Use Specific Printer ملف - اعدادات الصفحة - صفحة - اختيار طابعة محددة في أكسيس من 95 - 2003 فإن هذا الخيار سيخزن بعد تخزينك للتقرير وسيطبع التقرير على تلك الطابعة عندما تطلبه.وإذا كنت تستخدم أكسيس 2007 في أخر خيار تختار Margins on the Report Tools ribbon

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

مع وافر الاحترام التقدير

تم تعديل يناير 11, 2008 بواسطه محب العلم

[Ibrahim IT]

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

لك جزيل الشكر و التقدير العميق من القلب للقلب يا اخ محب العلم

وسوف اجرب هذه الخطوة و لكن اذا تمكنت من احضار الكود فاكون لك من الشاكرين

و اكرر شكري الخالص لردك الجميل مع تحياتي اخوكم

تم تعديل يناير 12, 2008 بواسطه IHA KING

[محب العلم]

السلام عليكم

حياك الله أخي ،

إذا كنت تستخدم أكسيس 2002 أو أعلى فمبدئياً لإختيار طباعة محدد نستخدم كود مثل هذا

كود

Set Application.Printer = Application.Printers("HP LaserJet Series II")

ولمعرفة الطابعة الحالية المعرفة معياريا نسنخدم

كود

dim strDefaultPrinter as string


strDefaultPrinter = Application.Printer.DeviceName

ويفضل استخدام المنطق البرمجي الأتي

كود

إقرأ معلومات الطابعة الإفتراضية

dim strDefaultPrinter as string


strDefaultPrinter = Application.Printer.DeviceName

ثم عين الطابعة التي تريد الطباعة عليها مثلا هكذا

Set Application.Printer = Application.Printers("HP LaserJet Series II")

إعمل شيئا مثل طباعة تقريرك

ثم أرجع الطابعة الإفتراضية

Set Application.Printer = Application.Printers(strDefaultPrinter)

أملا منك التجربة وموافاتي بالنتيجة فهناك المزيد من الأكواد المتعلقة بهذا الموضوع

مع وافر الاحترام

[Ibrahim IT]

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

إلى الاخ العزيز محب العلم انته تحفه صاغها الرحمن من احلا التحف

و لك مني جزيل الشكر و التقدير على الاهتمام و الرد الجميلة و كانت هذه في ميزان حسناتك و اعانني الله على رد الجميل اخوك iha king

[Ibrahim IT]

بعد السلام تم تجربة الكود و كان جميل و نطلب المزيد من الاكواد في هذا الموضوع اخوك iha king

[محب العلم]

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

الحمد لله ،

أخي IHA KING ، شكرا لك وساوافيك بإذن الله بما تطلب قريبا وإن كان هناك شيء مخصص تريده أرجو منك التحديد وإلا سيكون الموضوع بشكل عام

مع وافر الاحترام والتقدير

[محب العلم]

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

الحمد لله ،

أخي IHA KING ، شكرا لك وساوافيك بإذن الله بما تطلب قريبا وإن كان هناك شيء مخصص تريده أرجو منك التحديد وإلا سيكون الموضوع بشكل عام

مع وافر الاحترام والتقدير

[محب العلم]

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

الحمد لله ،

أخي IHA KING ، شكرا لك وساوافيك بإذن الله بما تطلب قريبا وإن كان هناك شيء مخصص تريده أرجو منك التحديد وإلا سيكون الموضوع بشكل عام

مع وافر الاحترام والتقدير