1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

Procedure PrintCanvas(c:TCanvas;lft,tp,wid,hei:integer);
var
b:TBitmap;
 r:TRect;
 begin
  b:=TBitmap.create;
b.Width:=wid;
 b.Height:=hei;
  b.PixelFormat:=pf24Bit;
BitBlt(b.Canvas.Handle,0,0,wid,hei,c.Handle,0,0,SRCCOPY);
 Printer.Title:='test';
 Printer.BeginDoc;
 r:=bounds(0,0,b.Width,b.Height);
 Printer.Canvas.CopyRect(r,b.Canvas,r);
 Printer.EndDoc;
 b.free;
 end;

procedure TForm1.Button1Click(Sender: TObject);
begin
PrintCanvas(label1.Canvas,0,0,label1.Width,label1.Height);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure printlabel(caption: String);
begin
Form1.RichEdit1.Text := caption;
begin
try 
Form1.RichEdit1.Print(Form1.RichEdit1.Text);
except
ShowMessage('Fehler');
end;
end;
end;                    

1:

printlabel(Label1.Caption);                    

1:
2:
3:
4:
5:

procedure TForm1.FormCreate(Sender: TObject);
begin
printlabel(Label1.Caption);
printlabel(Label2.Caption);
end;