Hallo mal wieder
nachdem ich mich mit StretchDraw mm für mm vorgetastet hatte und trotzdem keinen Schritt näher an mein Ziel gekommen bin das der Ausdruck auf dem Papier Zentriert ist versuche ich nun die Bitmap vorher zu vergrößern und dann mit Draw den Ausdruck zu Zentrieren, dies hat aber nur halbwegs geklappt denn der Ausdruck ist jetzt zwar Zentriert und die Druckfläche an sich entspricht auch meinen Vorstellungen aber das Formular an sich ist nur ganz klein links oben in der Ecke abgebildet...
Hier mal eine kleine Abbildung so wie es aussieht (hab hier leider keinen Scanner...):
http://foto.arcor-online.net/palb/al...6632336263.jpg
Und hier auch der entsprechende Code Ausschnitt:
Delphi-Quellcode:
procedure TForm1.Drucken1Click(Sender: TObject);
begin
if PrintDialog1.execute
then
Bitmap := GetFormImage;
try
Clipboard.Assign(Bitmap);
Bitmap.Height := Bitmap.Height * 7; //hier wird die größe verändert
Bitmap.Width := Bitmap.Width * 8; //hier auch
with Printer do begin
BeginDoc;
Printer.Canvas.Draw((PageWidth - Bitmap.Width) div 2, (PageHeight - Bitmap.Height) div 2, Bitmap);
// und hier wird der Ausdruck dann Zentriert
EndDoc;
end;
finally
Bitmap.Free;
end;
end;
Ich habe keine Ahnung wo dran das Liegen könnte, kennt das Problem vielleicht jemand oder weiß eine Lösung
