دخول

**Lam.Abdeldjalil**

4 طابعة التذاكر Receipt Printer

توجد عدة طرق للتعامل مع الطابعات في Delphi/Lazarus
* الطباعة المباشرة للمنفذ بالنسبة للطابعات ذات المنافذ COM/LPT
* الطباعة باستخدام محرر التقارير
الطباعة اليدوية باستخدام TPrinter

في موضوعنا نختار الأسهل باستخدام محرر التقارير
التعامل مع هذه الطابعة مثل التعامل مع أي طابعة فقط خذ بعين الاعتبار عرض الورق مثل 8سم

* Delphi

مثال Fastreport

كود :
frxreport1.LoadFromFile('myReport.fr3');
frxreport1.PrepareReport;
frxreport1.PrintOptions.Printer:='MyPrinter';
frxreport1.PrintOptions.ShowDialog := False;
frxreport1.Print;

يجب اختيار الطابعة و إلا ستتم الطباعة على الطابعة الافتراضية كما يفضل أن تكون الطباعة مباشرة دون معاينة

* Lazarus

مثال Lazreport

كود :
uses LR_Prntr;
var
  prnold :Integer; 
...

prnold:=prn.PrinterIndex; 
frReport1.LoadFromFile('MyReport.lrf'); 
prn.PrinterIndex := prn.Printers.IndexOf('Myprinter');
if prnold<>prn.PrinterIndex  then 
 frReport1.ChangePrinter(prnold,prn.PrinterIndex); 
if frReport1.PrepareReport then   
 frReport1.PrintPreparedReport('1',1);

يمكن التغيير في خصائص طابعة التذاكر: من تفعيل أو تعطيل قاطع الورق ، تفعيل أو تعطيل فتح درج النقود قبل أو بعد الطباعة ،طول وعرض الورق ، الجودة إن وجدت ، تفعيل أو تعطيل الصوت قبل أو بعد الطباعة ، عدد النسخ

ملاحظة Fastreport لا يغير الطابعة أثناء المعاينة بل أثناء الطباعة فقط

سيتم رفع الأمثلة لاحقا

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة