Image ausdrucken / erledigt

Adrian · Beiträge: 314

Servus!

Jetzt habe ich das Forum durchwühlt und die Online-Hilfe gequält, aber es klappt immer noch nicht.
Ich lasse mir Grafiken darstellen,die man auf Wunsch auch ausgedrucken kann. Das Ganze sieht momentan so aus:

markieren

Delphi-Quelltext

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

procedure TForm1.DruckenClick(Sender: TObject);
begin
  PrintDialog1.Execute;
  with Printer do
  begin
    BeginDoc;
    Printer.Canvas.StretchDraw(Rect(0,0,Image1.Width,Image1.Height),Image1.Picture.Graphic);
    EndDoc;
  end;
end;

Effekt: Jedesmal kommt ein wunderschönes, weißes Blatt Papier aus dem Drucker. Hat zwar auch was für sich, entspricht aber nicht ganz meinem Programmwunsch.
Warum, warum, warum? Bin bald soweit :autsch:

Gruß,

Adrian

Currywurst · Beiträge: 50 Win XP Pro D3 Pro, D5 Std, D6 Pers

schau hier unter "printing bitmaps" homepages.borland.co...ary/Delphi/Printing/ (ca anfang letztes drittel der seite)

und wenn es keine bitmap is, mach eine draus :-)

Adrian · Beiträge: 314

Servus currywurst!

Prima, es klappt bestens!
Jetzt muß ich nur noch den Code begreifen...

Gruß,

Adrian

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme