Einzelnen Beitrag anzeigen

Benutzerbild von sx2008
sx2008

Registriert seit: 15. Feb 2008
Ort: Baden-Württemberg
2.332 Beiträge
 
Delphi 2007 Professional
 
#4

AW: Skaliertes ausdrucken eines Metafiles

  Alt 25. Jul 2014, 22:28
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;
fork me on Github
  Mit Zitat antworten Zitat