01-12-2016, 01:44 PM
وعليكم السلام ورحمة الله وبركاته ،
لم تحدد نوع برنامج التقارير الذي تستعمله .
إذا كان ال FastReport .
حيث أن MyPrinter هو من نوع ComboBox ويحوي قائمة الطابعات المثبتة على جهازك.
لاستخراج جميع الطابعات المثبة على جهازك :
أضف الأمر التالي :
لا تنس إضافة Printers إلى قائمة ال Uses.
لم تحدد نوع برنامج التقارير الذي تستعمله .
إذا كان ال FastReport .
كود :
frxReport1.PrintOptions.Printer := MyPrinter.Text ;حيث أن MyPrinter هو من نوع ComboBox ويحوي قائمة الطابعات المثبتة على جهازك.
لاستخراج جميع الطابعات المثبة على جهازك :
أضف الأمر التالي :
كود :
MyPrinter.Items.Assign(Printer.Printers);لا تنس إضافة Printers إلى قائمة ال Uses.
اللهم اجعلني من أهل القرآن ، الذين هم أهلك و خاصتك.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
تذكر بأن الوقت الذي تلهو فيه ، غيرك يبني مجده فيه.
![[-]](https://delphi4arab.net/forum/D4A2020/collapse.png)