Unterformulare drucken in der V12

Die Druck-Architektur der V12 soll endlich Schluß machen mit dem Print form-Gedöns und der Beschränkung auf horizontale Schnitte, mehr drucken wie das Verteilen von Lego-Steinen auf einer Platte. Mit Print object können die zu druckenden Objekte überall auf der Seite platziert werden. Und wurde das Objekt bereits an der richtigen Stelle im Formular angelegt, kann ich es mir sparen Koordinaten an den Befehl Print object weiterzureichen. Klasse! Endlich, Supercallifragalisticespiyaladocious, da hat sich doch die Entwickler-Konferenz wieder gelohnt.

Das ist meine Ausgangslage:

Ein Hauptformular und darin zwei Unterformulare. Das obere der Briefkopf und das untere die Fußzeile.

Das Drucken erledigt diese Methode:

Gedruckt wird nur das blaue Main Form, denn nur diese beiden Zeilen funktionieren:
OPEN PRINTING FORM("Main_Form")
$erfolg_b:=Print object(*;"@")

Subforms werden nicht gedruckt! Im Handbuch steht zwar, nur Hierarchische Listen und WebAreas können nicht Print object gedruckt werden. Doch das Handbuch wird jetzt ergänzt um und keine Subforms.

Kaum zu glauben! Nee, wirklich nicht. So ein schönes Feature, so eine große Hilfe, gibt sogar zwei Technotes 10-14_4Dv12_Print_Objects und Dynamic_Object_Printing, die mir sofort einfallen*, und niemand bemerkte, daß die wichtigste Funktionalität nämlich Subforms zu drucken nicht implementiert ist.

#@&%§@# … -::- … uno momento prego.

Mit OPEN PRINTING FORM("FormName") wird der On Load-Event getriggered. Klar, so geht das! Ein
$erfolg_b:=Print object(*;"@")
in der Subform-Methode und alle Subform-Objekte werden gedruckt.

Gedruckt werden sie schon, nur an falscher Stelle. 4D verwendet die Koordinaten im Unterformular und nicht die unter Berücksichtigung der Lage des Unterformulares im Hauptformular.

Och nee, nicht noch so'n Klopper.

Ich stelle es mir einfach vor, das zu lösen. Alle Koordinaten über eine Matrix berechnen und voila, werden die Objekte dort gedruckt wo sie durch die Subform platziert wurden. Das ist doch nicht so schwer, nur tägliche Praxis.

Stimmt, eigentlich einfach. Wenn's einfach ist, kann ich es auch mit 4D-Mitteln lösen und brauche auf niemanden zu warten, schon gar nicht bis der Groschen fällt.

So geht das jetzt:
// das Masterformular aktivieren
OPEN PRINTING FORM("Zeugnis_Master")
// die Koordinaten der Subform in upperLeft_L und upperTop_L merken
OBJECT GET COORDINATES(*;$printSF_Footer;upperLeft_L;upperTop_L;$r_L;$b_L)
// das Subformular aktivieren
OPEN PRINTING FORM("Zeugnis_Footer")

und in der Formmethode des Subformulars die Transformation vornehmen:

:($what="Service_PrintAll")
ARRAY TEXT($t_Objects;0)
ARRAY POINTER($t_P_vars;0)
FORM GET OBJECTS($t_Objects;$t_P_vars)
$N:=Size of array($t_Objects)
For ($i;1;$N)
// für alle Objekte die neuen Koordinaten errechnen
  OBJECT GET COORDINATES(*; $t_Objects{$i}; $l_L; $t_L; $r_L; $b_L)
  OBJECT MOVE(*;$t_Objects{$i}; upperLeft_L+$l_L; upperTop_L+$t_L; upperLeft_L+$r_L; upperTop_L+$b_L;*)
// und dann dort drucken
$erfolg_b:=Print object(*;$t_Objects{$i})
oder die Koordinaten direkt an den Print object-Befehl durchreichen, dann brauche ich links und oben und die Breite und die Höhe.

Nun reicht es diese drei Befehl abzusetzen und in der Formularmethode des Unterformulars Zeugnis_Printer ("Service_PrintAll")
aufzurufen. Dann sind die Objekte dort wo sie durch die Lage der Subform im Hauptformular liegen sollen.

Jetzt sitzt der Kopf oben, der Fuß unten und ich gestalte komplexe Druck-Formulare im Formular-Editor und genieße den Komfort der Subforms.

Warum nicht gleich so?