Hallo mal wieder und guten Morgen,
ich bin jetzt soweit das ich Self.Canvas.StretchDraw in meinen Quelltext Integriert habe, allerdings bewirkt es nichst :/
Ich weiß nicht was ich falsch mache, vielleicht gebe ich die Werte in der Anweisung falsch ein oder habe die Anweisung an einer Komplett falschen Stelle Geschrieben, vielleicht fehlt auch einfach nur eine weitere Anweisung die ich übersehen habe...
Hier mal mein Quelltext, ein kleiner Hinweis darauf wo drann es liegen könnte wäre echt super
Delphi-Quellcode:
procedure TForm1.Drucken1Click(Sender: TObject);
begin
if PrintDialog1.execute
then
Bitmap := GetFormImage;
try
Clipboard.Assign(Bitmap);
Self.Canvas.StretchDraw(Rect(0, 0, 375, 518), Bitmap);
with Printer do begin
BeginDoc;
Canvas.Draw((PageWidth - Bitmap.Width) div 2, (PageHeight - Bitmap.Height) div 2, Bitmap);
EndDoc;
end;
finally
Bitmap.Free;
end;
end;
Danke schonmal im Vorraus.