Seite einrichten

[Saskia79]

hier ist der Quellcode
(Das sind aber Werke aus dem Netz, da ich keine Ahnung habe was ich tun soll)

Delphi-Quellcode:

procedure TForm2.Drucken1Click(Sender: TObject);
begin
ListBox1.visible := true;
Printer.PrinterIndex := ListBox1.ItemIndex; // Zuweisung aktiver Drucker

end;



procedure TForm2.ListBox1Click(Sender: TObject);
var
  i: Integer;
  r:TRect;
  s:String;
begin
Printer.PrinterIndex := ListBox1.ItemIndex; // Zuweisung aktiver Drucker

printer.BeginDoc;
printer.title := ' - Leuchten';
Printer.Canvas.Font.Size := 10;
Printer.Canvas.Font.Name := 'Verdana';
s := Memo1.Text;
r:=memo1.ClientRect;
for i := 0 to memo1.lines.count -1 do Begin
printer.canvas.textout( 0, i * printer.Canvas.TextHeight( Memo1.Lines[i] ) , Memo1.Lines[i]);
End;
DrawTextEx(PRINTER.Canvas.Handle, Pchar(s), Length(s), r, 100, nil);
Printer.Canvas.TextRect(r,50,50,s);
Printer.Canvas.StretchDraw (r,Image1.Picture.Bitmap);
//Printer.Canvas.Draw(4000,3000,Image1.Picture.Bitmap);
printer.EndDoc;