+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : printer لا يظهر الكلمات الاحرف الاولى من الاسطر (/showthread.php?tid=8716)
printer لا يظهر الكلمات الاحرف الاولى من الاسطر - jeanjamil - 13-06-2017
السلام عليكم
هذا الكود يطبع memo
لكنه لا يظهر الكلمات الاحرف الاولى من الاسطر
جربت alignment لكن نفس النتيجة
[quote pid='42068' dateline='1497374465']
السلام عليكم
هذا الكود يطبع memo
لكنه لا يظهر الكلمات الاحرف الاولى من الاسطر
جربت alignment لكن نفس النتيجة
var
Ptext : textfile;
I : LongInt;
begin
if Print Dialog OK//
AssignPrn(ptext
ReWrite(Ptext)
; Printer.Canvas.Font := Memo1.Font;
for I := 0 to Memo1.Lines.Count - 1 do begin
[ WriteLn(ptext,Memo1.Lines[I]
end;
closefile
(ptext)
[/quote]
RE: printer لا يظهر الكلمات الاحرف الاولى من الاسطر - Mr.DOS - 13-06-2017
السلام عليكم
تأكد من حواف ورقة الطباعة ، اعدادات الورقة ، او القريد الخاص بإظهار البيانات
- ما اسم ونسخة صانع التقارير المستعمل
RE: printer لا يظهر الكلمات الاحرف الاولى من الاسطر - محمد - 04-12-2017
(13-06-2017, 06:21 PM)jeanjamil كتب : السلام عليكم
هذا الكود يطبع memo
لكنه لا يظهر الكلمات الاحرف الاولى من الاسطر
جربت alignment لكن نفس النتيجة
[quote pid='42068' dateline='1497374465']
السلام عليكم
هذا الكود يطبع memo
لكنه لا يظهر الكلمات الاحرف الاولى من الاسطر
جربت alignment لكن نفس النتيجة
var
Ptext : textfile;
I : LongInt;
begin
if Print Dialog OK//
AssignPrn(ptext
ReWrite(Ptext)
; Printer.Canvas.Font := Memo1.Font;
for I := 0 to Memo1.Lines.Count - 1 do begin
[ WriteLn(ptext,Memo1.Lines[I]
end;
closefile
(ptext)
[/quote]
يمكن ادراج سطرين في memo ثم الطباعة وبعد الطباعةقم بحدف السطرين