العمل مع الطابعات

uses Printers;

begin

with Printer do

begin

BeginDoc; { بدايةالطباعه }

Canvas.Font:=label1.font; { نحدد نوع الخط }

{ نطبع النص }

Canvas.TextOut(100,100,'هذا فحص لطباعة الطابعة !!!');

EndDoc; { نهاية الطبع }

end;

begin

with Printer do

begin

BeginDoc; { بدايةالطباعه }

Canvas.Font:=label1.font; { نحدد نوع الخط }

AssignPrn(f: TextFile):

EndDoc; { نهاية الطبع }

end;

var

PRect: Trect;

PBitMap: TBitmap;

begin

PBitmap:=TBitMap.Create;

PBitmap.LoadFromFile('C:\1.bmp');

with PRect do

begin

left:=0;

top:=0;

right:=Printer.PageWidth;

Bottom:=Printer.PageHeight;

end;

with printer do

begin

BeginDoc;

font.name:='Times New Roman';

Canvas.StretchDraw(PRect,Bitmap);

EndDoc;

end;

PBitmap.Free;