Gesamte Formular ausdrucken

[Metallicwar]

uff
Habe mir gedacht, des Problem ist schnell zu beheben, aber dass es keine passende Funktion gibt
Jetzte muss ich mir was einfallen lassen, muss das noch irgendwie wie morgen hinbekommen ^^

[stahli]

Notlösung wäre: Bildschirmauflösung auf 2560*1600

[Metallicwar]

Wäre eine Notlösung, welche nicht wirklich gut ist^^.

Man man man, wieso gibt es ausgerechnet für dieses Problem, keine Funktion ...

[blauweiss]

Hallo MetallicWar,

schau mal hier, das könnte Dir vielleicht helfen...:
http://www.delphipraxis.net/153575-s...ml#post1040436

Grüße,
blauweiss

[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?

[blauweiss]

Zitat von Metallicwar:

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

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

Ja !

Gruss blauweiss

[Metallicwar]

Um ehrlich zu sein, versteh ich den Code nicht wirklich^^
Kurz mal erklären und evtl. Tipps geben was ich ändern muss, damit er ausdruckt und keinen Screen macht?