Gesamte Formular ausdrucken

[Metallicwar]

Hallo,
ich nehme mal an du wolltest mich auf diesen Code hinweisen? Lieg ich richtig?

Delphi-Quellcode:

Mit folgender Routine kann man auch von unsichtbaren Formularen Screenshots erzeugen:

zusammenfalten · markieren
Delphi-Quellcode:
procedure PrintWindow(Wnd: HWND; ATo: TBitmap);
var
  hDCMem : HDC;
  DC : HDC;
  rect : TRect;
  bmp : HBITMAP;
  hOld : HGDIOBJ;
begin
  hDCMem:=CreateCompatibleDC(0);

  GetWindowRect(Wnd, rect);

  bmp:=0;

  DC:= GetDC(Wnd);
  bmp:= CreateCompatibleBitmap(DC, rect.Right-rect.Left, rect.Bottom-rect.Top);
  ReleaseDC(Wnd, DC);

  hOld:=SelectObject(hDCMem, bmp);
  SendMessage(wnd, wm_Print, hDCMem, PRF_CHILDREN or PRF_CLIENT or PRF_ERASEBKGND or PRF_NONCLIENT or PRF_OWNED);

  selectObject(hDCMem, hold);
  DeleteObject(hDCMem);

  ATo.FreeImage;
  ATo.Handle:=bmp;
end;

Und eben sagen, anstatt nen Screenshot vom Unsichtbaren zu machen soll er mir das unsichtbare auch noch mit ausdrucken?