TForm1 Ausdrucken

[Peter Kaschubowski]

Ich habe eine TForm1 als Sudmaske bezeichnet. Wie füge ich die zwischen BeginDoc und EndDoc ein, um sie ausdrucken zu können?
Gruss
Peter Kaschubowski

[DeddyH]

Ich bin nicht sicher, ob ich Dich richtig verstanden habe, aber schau Dir mal GetFormImage an. Diese Grafik kannst Du mit den ganz normalen Canvas-Methoden drucken.

[Peter Kaschubowski]

Lieber DeddyH,
habe Deine Antwort erhalten. Leider verstehe ich absolut nichts. Ich bin sehr neu in der Delphi-Szene, komme von Q-Basic und Pascal 5.5. Nun ist es mir gelungen einen Pascal-Quelltext zu schreiben, der mir in 81 Labels des TForm1, ich nannte es 'sudmaske', alle Zahlen nach Sudoku-Regeln einträgt. Es ist schön auf dem Bildschirm anzusehen. Was Canvas ist, weiß ich nicht. Wie man Canvas druckt, erst recht nicht. Ich erbitte also ein kräftiges 'Unter die Arme greifen', auf dass es Scheuerstellen gibt. Bitte lass mir entsprechende Programmzeilen zukommen.
Auf Dein Verständnis hoffend
besten Dank und Gruss
Peter Kaschubowski

[DeddyH]

Hallo Peter,

mal aus dem Kopf und wahrscheinlich alles andere als optimal:

Delphi-Quellcode:

Printer.BeginDoc;
Printer.Canvas.Draw(0,0,GetFormImage);
Printer.EndDoc;

Versuch erstmal, ob irgendetwas gedruckt wird, Skalierung, Druckerauflösung und derlei Dinge wurden hier noch nicht berücksichtigt.

[Peter Kaschubowski]

Lieber DeddyH,
ist angekommen Dein 'nur so aus dem Kopf'. Ich babe es gleich ausprobiert und es wurde die 'sudmaske' gedruckt, aber gaaaanz klein. Erbitte neue Anweisungen.
Danke
Peter kaschubowski

[DeddyH]

*Puh* das ist leider nicht in 2 Zeilen zu lösen. Am Besten suchst Du mal in der DP nach [dp]Drucker + SetMapMode[/dp], da sollten sich einige Ansätze finden.

[Blackheart]

Funktioniert das nicht mit Form.Print

[DeddyH]

Form.Print ist im Grunde aber auch nichts anderes laut OH.

Zitat:

Mit Print kann das Formular gedruckt werden. Print verwendet die Methode GetFormImage, um ein Bitmap des Formulars zu erhalten und übergibt dieses in den HDC des Druckers.