EasyDelphi Q&A

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

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


0 تصويتات
133 مشاهدات
السلام عليكم

عندي برنامج مبيعات يستخدم أكثر من طابعة ( واحدة للباركود، وواحدة للأوصال و أخرى للتقارير)

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

سؤالي: كيف يتم ذلك برمجيا ؟
سُئل في تصنيف Delphi بواسطة (400 نقاط) | 133 مشاهدات

1 إجابة واحدة

+1 تصويت

يكفي فقط إضافة المكون الخاص بإعدادات الطابعة و هو مجرد ديالوق Dialog تجده قائمة الDialogs و إسمه : PrinterSetupDialog مثله مثل OpenDialog او ColorDialog ... إلخ المهم بعد وضعه على الفورم أو DataModule أفضل و تناديه كالآتي:

dm.PrinterSetupDialog.Execute();


و حظا طيبا لك و لمن يهمه الأمر wink.

تم الرد عليه بواسطة (21,520 نقاط)
0
شكرا جزيلا على سرعة الرد
ما أحتاجه هو:
النافذة بها ثلاث أزرار للطباعة
كل زر من المفروض يطبع في طابعة مختلفة عن الزر الآخر
أريد من الرنامج أن يتذكر كل زر الطابعة المحددة فيه، لأن الطريقة التي طريقتك لا تبعد كثيرا عن الطريقة اليدوية.
0
يمكنك إستعمال الوحدة printers
و بعدها تحميل قائمة الطابعات الشغالة و بعد ذلك تختار من القائمة الطابعة التي تريد
Printer.PrinterIndex ثم تقوم بالطباعة بواسطة نفس الكلاس ..
الأمر يتطلب الكثير من العمل و لكنه يستحق ...
0
شكراً شكراً ، تمت العملية بنجاح
0
هل لك أن توضح لنا الأخ rm31dz كيف تمت العملية بنجاح و شكرا ...
+1
uses Printers

procedure TForm2.Button1Click(Sender: TObject);
begin
  if PrintDialog1.Execute then
  begin
    QuickRep1.PrinterSettings.PrinterIndex := Printer.PrinterIndex;
    QuickRep1.PrinterSettings.Copies := PrintDialog1.Copies;
    Button1.Caption := IntToStr(Printer.PrinterIndex);
    ListBox1.Items:=Printer.printers;
  end;
end;
0
مشكور جدا الأخ rm31dz على الرد و أشكر أيضا الأخ BraveSofts.

اسئلة متعلقة

+1 تصويت
1 إجابة
سُئل أكتوبر 30، 2019 في تصنيف vcl بواسطة Chaouki39102 (180 نقاط) | 81 مشاهدات
+3 تصويتات
1 إجابة
+4 تصويتات
1 إجابة
سُئل أغسطس 14، 2018 في تصنيف SQLite بواسطة reema (320 نقاط) | 63 مشاهدات
ادعُ اصدقائك في الفايسبوك لمشاركتك
Comodo SSL

مرحبًا بك إلى EasyDelphi Q&A، حيث يمكنك طرح الأسئلة والحصول على الإجابة عليها من المستخدمين الآخرين.

لا يسمح بطلب او السؤال عن كراك او تفعيل او كسر او فك او اي شيء يخالف اتفاقيات الترخيص  مهما كان السبب ومهما كان البرنامج ونوعه. ولا حتى نشر روابط تحتوي على مثل هذه الاشياء لا في الاسئلة ولا في الاجابات ولا التعليقات . نهائيا

497 سؤال
752 إجابة
1,417 تعليق
275 مستخدم