Hallo Delphi-Gemeinde
Ich habe ein Problem.
Und zwar habe ich ein Programm geschrieben, das lineare Funktionen berechnet und diese dann ausdruckt.
Das Programm errechnet die lineare Funktion, und stellt sie in einem TImage dar, das ich zusätzlich noch mit einem Koordinatensystem ausgestattet habe.
So klappt alles einwandfrei, druckt auch aus aber leider im Hochformat, sodass immer nur ein Teil der linearen Funktion und des Koordinatensystems angezeigt wird.
Das ist meine Druckroutine:
Delphi-Quellcode:
with Printer
do
begin
BeginDoc;
try
ScaleX := GetDeviceCaps(
Handle, logPixelsX)
div PixelsPerInch;
ScaleY := GetDeviceCaps(
Handle, logPixelsY)
div PixelsPerInch;
RR := Rect(0, 0, Koordinatensystem.picture.Width * scaleX, Koordinatensystem.Picture.Height * ScaleY);
Canvas.StretchDraw(RR, Koordinatensystem.Picture.Graphic);
finally
EndDoc;
//Methode EndDoc beendet den aktuellen Druckauftrag und schließt die
end;
end;
Wie kann ich nun einstellen, dass der Drucker das TImage im Querformat ausdruckt?
Und zum Schluss noch das Programm für euch: