كود :
الارسال الى الطابعة مباشرة
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);
قل: اللهم فاطِرَ السماوات والأرض عالم الغيبِ والشهادة، ربَّ كُلِّ شَيءٍ ومَلِيكَه، أَشْهد أن لا إله إلا أنت، أعوذ بك من شرِّ نفسي وشرِّ الشيطان وشِرْكِهِ وأن أقترف على نفسي سوءًا أو أجرُّه إلى مسلم
![[-]](https://delphi4arab.net/forum/D4A2020/collapse.png)