Problem bei Komponenten Drucken

[1aa]

Ich versuche den Inhalt eines Panels mit unten stehender funktion zu drucken
funktioniert soweit auch aber sowohl schrift(vom TLable) als auch Bilder (TImage) werden sehr Pixelig ausgedruckt.

Mein Problem ist wie ich zB. die auflösung anpassen kann.

oder sollte ich andere Komponenten verwenden?

Delphi-Quellcode:

Procedure PrintWinControl(hWND: HWND; iLeft, iTop, iWidth, iHeight: integer);
var
  c: TCanvas;
begin
  iLeft := iLeft * 10;
  iTop := iTop * 10;
  BringWindowToTop(hWND);
  c:= TCanvas.Create;
  c.Handle:= GetWindowDC(hWND);
  try
    printer.begindoc;
    //Windows.SetMapMode(printer.Canvas.Handle, MM_LOMETRIC);
    printer.Canvas.CopyRect(Rect(iLeft, iTop, iLeft + iWidth * 10, iTop + iHeight * 10), c, Rect(0, 0, iWidth, iHeight));
    printer.enddoc;
  finally
    ReleaseDC(hWND, c.handle);
    c.Free;
  end;
end;

[1aa]

Ok ich versuche dei Frage mal anders zuformulieren ich habe ein Bild format eig egal und Texte die der User zurlaufzeit eingeben kann und will das formatiert drucken (d.h. Das bild zusammen Mit dem text ev. auch leicht überlappt)

hat jemand ein tutorial was sich mit sowas befasst oder kann mir einen Tip geben wie ich am besten an die sache ran gehe?

[Blup]

Du könntest hier im Forum nach "Bild" und "Drucken" suchen:
http://www.delphipraxis.net/dp_searc...ch_matchmode=0

Oder du besorgst dir eine Komponente die den ganzen Problemkreis Seitengestaltung und Druck für dich erschlägt.
z.B. TRichView http://www.trichedit.com/features/