Gesamte Formular ausdrucken

[Metallicwar]

Hallo,
wie kann ich ein Formular ausdrucken, bei dem ein Teil außerhalb der Bildschirmanzeige liegt?
Momentan wird nur der sichtbare Bereich ausgedruckt, ich möchte aber alles.

[SirThornberry]

Wie machst du es denn bisher?

[Metallicwar]

einfach Formular.Print Das Formular erzeug ich erst zur Laufzeit.
Leider wird nur der sichtbare Bereich ausgedruckt.

[stahli]

Ich habe mir da früher mal was gebastelt - finde es aber leider nicht mehr.

- Bitmap in Gesamtgröße erzeugt
- PaintBox über den Scrollbereich
- Scrollpositition auf 0,0
- Canvas der PaintBox in das Bitmap kopiert
- Scrollbereich nach rechts verschieben, Canvas wieder kopieren (bis Ende)
- ggf. Scrollbereich nach links und 1 "Zeile" tiefer
... so lange bis alles kopiert ist

Ob es bessere Lösungen gibt kann ich nicht sagen. Es hatte damals zumindest funktioniert.

Dann solltest Du Dir vielleicht nun doch ein Report-Tool anschauen. Ist sicher nicht schwieriger als o.g. Funktion zu bauen...

[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