Komplettes Formular ausdrucken?

[Borschti]

Hallo erstmal,

also wie der Threadname, sagt versuche ich (schon seit längerem) mein Komplettes Delphi Formular auszudrucken, allerdings vergebens.
Beim stöbern in Google ist mir ein schon etwas älterer Thread aufgefallen in dem jemand ein Problem mit dem ausdrucken einer RichEdit Komponente hat.

Hier mal der Link: http://www.delphipraxis.net/internal...ect.php?t=7312

Ich habe also versucht den Lösungsvorschlag von einem Poster auf eine Edit Komponente anzuwenden (mein Formular besthet nur aus Labels, Editfeldern, Buttons, einem MainMenu und einer ComboBox)

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  RichEdit1.Print(RichEdit1.Lines.Text); 
end;

Also dies habe ich dann mal ausprobiert und es hat nicht geklappt, ich denke ich muss etwas im uses Teil einbinden weiß aber nicht was, kann mir da vielleicht jemand kurz aushelfen?

Und ich habe gleich noch eine Frage, kann ich diesen Quelltext ausschnitt auf alle meine Komponenten anwenden oder gibts da vielleicht viel übersichtlichere und einfacherere Möglichkeiten mit Delphi 7?

Schonmal Danke im vorraus.

mfg.

[Progman]

Die Function GetFormImage liefert ein Bitmap deines Forms. Das sollte dann die Grundlage zum Ausdrucken werden. Zu "ein Bitmap drucken" findest du sicher einiges beim Suchen.

[Borschti]

Danke werd gleich mal loslegen

[Borschti]

Hat geklappt danke erstmal

Aber ein winzig kleines Problem ist noch vorhanden und zwar ist das Bild auf dem papier wirklich sehr klein, wie kann ich denn die Größe des Ausdruckes Einstellen?
Hab da zwar schon eine Vermutung aber ich weiß nicht wie die Eingabe dann aussehen muss

[Deep-Sea]

http://www.swissdelphicenter.ch/de/showcode.php?id=968

[Borschti]

Hmm erstmal danke für deine Antwort aber bei der Procedure in dem Link wird nur direkt in das Bild reingezoomt, ich suche etwas damit ich das Bild, welches ausgedruckt wird, größer machen kann weil z.Z. ist dies nur ca 32x32 Pixel groß :/

[Deep-Sea]

Zitat von Borschti:

Hmm erstmal danke für deine Antwort aber bei der Procedure in dem Link wird nur direkt in das Bild reingezoomt, ich suche etwas damit ich das Bild, welches ausgedruckt wird, größer machen kann weil z.Z. ist dies nur ca 32x32 Pixel groß :/

Deine ganze Form ist nur 32x32 Pixel groß?
Anstatt der Funktion "SetCanvasZoomFactor" ein Bitmap-Canvas zu übergeben, kannst du ihr auch Printer.Canvas übergeben
Ich drucke so (wenn auch nicht mit der Funktion sondern eine selbst geschriebenen) auch Delphi-Objekte aus, und zwar immer 100% Blattgröße (wenn die Seitenverhältnisse stimmen) ...

[Borschti]

Nein meine Form ist 375x518 Pixel groß aber er druckt sie aus welchem Grund auch immer so winzig aus

[Progman]

Stichwort: StretchDraw und Printer.canvas.
Nur genauere Codebeispiele find ich jetzt hier nicht, eben mal suchen

[Deep-Sea]

Zitat von Borschti:

Nein meine Form ist 375x518 Pixel groß aber er druckt sie aus welchem Grund auch immer so winzig aus

Das liegt an der Auflösung Also ist dein Ausdruck trotzdem 375x518 Pixel groß.
StretchDraw, wie Progman sagt, wäre für dich vlt. doch besser als meine Lösung ^^ Dafür ist StretchDraw bei Text sehr schrecklich, während SetMapMode & Co. perfekte Ergebnisse liefern, da es dann keine vergrößerten Rastergrafiken sind ...