Skaliertes ausdrucken eines Metafiles

[Tenobaal]

Mein Profil war leidern nicht mehr aktuell. Ich verwendet Delphi XE5 bzw. die Hochschule hats gekauft, weil ich im Rahmen meines Studium damit arbeite
FastReport sagt mir gerade nix. Ich wollte nur Standardkomponenten in meinem Programm verwenden.

[sx2008]

Deine X/Y Position dürfte im Bereich des Druckers sein in dem er nicht drucken kann.

Delphi-Quellcode:

procedure TFormNetview.Drucken2;
var
  TRect r;
Begin
  printer.Orientation:=poLandscape;
  printer.BeginDoc;
    r := Rect(0,0,Printer.PageWidth,Printer.PageHeight);
    InflateRect(r, -300, -300);   // Zielrechteck um 300 Pixel rundrum verkleinern
    // bei 300 dpi entspricht das einem Rand von einem Zoll    

    Printer.Canvas.StretchDraw(r, WMF);
  printer.EndDoc;
End;

[Tenobaal]

Funktioniert leider auch nicht. Wieder nur die obere Ecke sichtbar.
Ich glaube, dass die StretchDraw() Methode in Verbindung mit Metafiles fehlerhaft arbeitet. Ich habe Forenbeiträge gefunden, die darauf hindeuten.