TImage im Querformat drucken

[soapy]

Ich habs jetzt mit ein bisschen Hilfe so gelöst:

Delphi-Quellcode:

var
  ScaleX, ScaleY: Integer;
  RR: TRect;
begin

begin
  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;
    end;
  Orientation :=poLandscape;  //das hat gefehlt... Jetzt fehlts nicht mehr *freu*
  end;
end;

Gruß
Soapy