منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

اخواني رجاء كيف يتم طباعة على اكثر من طابعة

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

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

بالتوفيق

اخي امير اخي احمد


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

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

اخي احمد

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

مشكور اخي  لاهتمامك

Private Sub Command2_Click()


crtw.Destination = crptToPrinter

crtw.DataFiles(0) = App.Path + "\test.mdb"

crtw.ReportFileName = App.Path + "\namreport.rpt"


crtw.SelectionFormula = "{tablenam.name}='" + Trim(Text1.Text) + "'"
 
crtw.Action = 1
End Sub

أهلا بك أخي الكريم , قم بإضافة هذا الجزء في بداية كود الطباعة لكي تحدد الطابعة التي تريد إرسال التقرير إليها :


طبعا لازم تغير بيانات  الطابعة التي تريد إرسال التقرير إليها , بالتوفيق .

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

شكرا لك اخي العزيز

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

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

الف شكر للاخ احمد منصور المحترم


بالتوفيق

أهلا بك أخي الكريم , هذا مثال يوضح لك كيفية عمل ماتريده , بالتوفيق .