EasyDelphi Q&A
0 تصويتات
41 مشاهدات
السلام عليكم

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

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

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

1 إجابة واحدة

+1 تصويت

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

dm.PrinterSetupDialog.Execute();


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

تم الرد عليه بواسطة (18,030 نقاط)
شكرا جزيلا على سرعة الرد
ما أحتاجه هو:
النافذة بها ثلاث أزرار للطباعة
كل زر من المفروض يطبع في طابعة مختلفة عن الزر الآخر
أريد من الرنامج أن يتذكر كل زر الطابعة المحددة فيه، لأن الطريقة التي طريقتك لا تبعد كثيرا عن الطريقة اليدوية.
يمكنك إستعمال الوحدة printers
و بعدها تحميل قائمة الطابعات الشغالة و بعد ذلك تختار من القائمة الطابعة التي تريد
Printer.PrinterIndex ثم تقوم بالطباعة بواسطة نفس الكلاس ..
الأمر يتطلب الكثير من العمل و لكنه يستحق ...
شكراً شكراً ، تمت العملية بنجاح
هل لك أن توضح لنا الأخ rm31dz كيف تمت العملية بنجاح و شكرا ...
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;
مشكور جدا الأخ rm31dz على الرد و أشكر أيضا الأخ BraveSofts.

اسئلة متعلقة

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

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

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

396 سؤال
634 إجابة
1,130 تعليق
237 مستخدم