Ping, Drucken,mit schleife Label,Edit ect."Hochzählen"

[bitsetter]

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.