Hallo,
zu deinem Punkt 2: Label ausdrucken
Mit einem Tutorial kann ich zwar nicht dienen aber mit ein bisschen Code:
Delphi-Quellcode:
uses Printers;
Procedure LabelDrucken(Lab: TLabel; iLeft, iTop: integer);
begin
printer.begindoc;
iLeft:= iLeft* 10;
iTop:= iTop* 10;
printer.Canvas.CopyRect(Rect(iLeft, iTop, iLeft+ Lab.Width* 10, iTop+ Lab.Height* 10), Lab.Canvas, Rect(0, 0, Lab.Width, Lab.Height));
printer.enddoc;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin //Position auf dem Blatt
LabelDrucken(label1, 20, 40);
end;
Der Code ist nicht mit einem Drucker getestet worden.
In der Code-Lib steht auch noch was zum Thema drucken.