ترحيل

[الشيباني1]

اخواني الاعزاء تحية طيبه في المرفق قائمه وورقتين ارجو التفضل بالمساعده بكود 1- لترحيل محتويات القائمه الى الورقة الاولى المسماة ( مواد ) والى الثانيه المسماة ( خلاصه ) 2- لطبع القائمه بالطابعتين المعرفتين في جهازي (Canon MF3200 Series )و (HP Deskjet F2400 series )بزرين يستعملان حيث تدعو الحاجة اليهما مع شكري وتقديري

ترحيل.zip

[الشيباني1]

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

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

Sub PrintToAnotherPrinter()

Dim STDprinter As String

    STDprinter = Application.ActivePrinter

    Application.ActivePrinter = "microsoft fax on fax:" 

    ' change printer

    ActiveSheet.PrintOut 

    ' prints the active sheet

    Application.ActivePrinter = STDprinter 

    ' change back to standard printer

End Sub

[الشيباني1]

اخي العزيز مع شكري وتقديري ارجو المساعده في ادخال الطابعتين الموضحتين في طلبي الى الكود حيث حاولت ولم افلح مع الامتنان

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

مرحبا

أنت لن تدخل إلا اسم طابعة واحدة فقط

أما الطابعة الثانية فى افتراضية

الكود أعلاه

يغير الطابعة الافتراضية إلى الطابعة الثانية " غير الافتراضية"

و هى التى بين القوسين

microsoft fax on fax:

ضع اسم طابعتك غير الافتراضية مكان هذه

بعد ذلك يعيد الكود الطابعة الافتراضية كما كانت

[الشيباني1]

اخي العزيز مع تقديري تم التعديل وتم الطبع بطابعة (HP ) كيف اطبع بطابعة (canon ) ما اريده هو امكانية استخدام الطابعتين في الوقت نفسه بزرين مع الشكر

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

إذا طبعت بهذا الكود

ستطبع بالطابعة الإضافية

أما لو طبعت بالطريقة العادية

فستطبع بالطابعة الافتراضية

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

[الشيباني1]

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

[ابو اسامة العينبوسي]

السلام عليكم

اخى الكريم

هذا الكود يظهر الطابعات المثبته لديك بشكل سريع

Application.Dialogs(xlDialogPrinterSetup).Show

اعدك بحل قريب شامل

[الشيباني1]

استاذنا العزيز مع تحياتي كلي امل في الحصول على مبتغاي مع الامتنان

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

Sub PrintToAnotherPrinter()

Dim STDprinter As String

        Application.ActivePrinter = "اسم الطابعة الأولى:" 

       ActiveSheet.PrintOut       

End Sub

الكود السابق يطبع مع تحديد اسم الطابعة الأولى

اعمل زري أمر كودهما واحد

لكن مع تغيير اسم الطابعة

[الشيباني1]

اخي العزيز مع شكري وتقديري ادرج ادناه الكودين بعد تعديلهما واللذان كان من جراء عملهما ظهور الرسالة التاليه :

( cant excute code in break mode ) عسى ان يكون الخلل في اجراءاتي مع الشكر الجزيل.

Sub PrintToAnotherPrinter_1()

Dim STDprinter As String

Range("A2:J46").Select

Application.ActivePrinter = "ýHP Deskjet F2400 series Úáì ýNe03:"

ActiveSheet.PrintOut

End Sub

Sub PrintToAnotherPrinter_2()

Dim STDprinter As String

Range("A2:J46").Select

Application.ActivePrinter = "ýCanon MF3200 Series Úáì ýNe05:"

ActiveSheet.PrintOut

End Sub

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

الكود فى حالة توقف

تأكد من توصيل الطابعتين

غير السطر الأخير

ActiveSheet.selections.PrintOut

لاحظ أن كل كود له زر مختلف

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

[الشيباني1]

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

[الشيباني1]

اخواني الاعزاء تحية طيبه ترى هل شملت طلبي حول الترحيل برمجة ما ليبقى دون اية ملاحظة من اساتذتنا الاعزاء منذ 11/2 مع الشكر والتقدير