+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف اطبع محتوى listbox مباشرة (/showthread.php?tid=8705)
كيف اطبع محتوى listbox مباشرة - jeanjamil - 30-05-2017
السلام عليكم
كيف اطبع محتوى listbox مباشرة اي
بدون ظهور مربعات الحوار
RE: كيف اطبع محتوى listbox مباشرة - Delphi4Us - 30-05-2017
كود :
الارسال الى الطابعة مباشرة
With Printer do
Begin
Title:='';
BeginDoc;
end;
With Printer.Canvas do
Begin
Font.Name:='Times New Roman';
Brush.Style:=bsClear;
Font.Size:=30;
....
end;الكتابة الى ملف تم طباعة هذا الملف
كود :
uses Printer;
var
MyFile: TextFile;
i : Integer;
begin
AssignPrn(MyFile);
Rewrite(MyFile);
For i:=0 to ListBox.Items.Count-1 do
Writeln(MyFile, ListBox.Items[i]);
System.CloseFile(MyFile);
end;جرب هذا ايضا
كود :
ListBox1.PaintTo(Printer.Handle, 10, 10);