Office: (Office 2010) Berichtshöhe einstellen

Ich denke, deine Funktion zum Zusammensetzen des Strings heißt
strCaption = getAuftrag()? Oder hast du den Namen geändert?
maike

 

Nein hab ich nicht. Ich habe es auch zuerst mit getAuftrag() probiert. Da kam der gleiche Fehler. Ich wollt halt einfach selber ausprobieren, hab dann strAuftrag probiert und nachdem das nicht ging ohne zu überlegen gepostet, was ich grad hatte ...

 

Ist die Funktion getAuftrag() im gleichen Modul wie der Aufruf für die Funktion TwipsFromFont?
maike

 

Ja das ist sie maike!

 

Poste einmal den vollständigen Code aus deinem Berichtsmodul.
maike

 

Ok hier der vollständige Code. Ich denke, der untere Teil müsste vielleicht noch anders eingeleitet werden, aber ich weiß leider nicht wie genau:

Code:

 

Jep. Dein Code zum Aufruf der Berechnung von Höhe und Breite ist jetzt ein Teil der Funktion HatInhalt. Das geht schief.

Code:

maike

 

Ok, jetzt läuft es wieder ohne Fehler durch, aber auch ohne Berechnung.

Wo genau leg ich denn fest, welche Maße mein Textfeld maximal haben darf?

 

Eins nach'n annern.
Ohne Berechnung heißt, es kommt die MsgBox für "Ätsch, nix gerechnet" oder es passiert gar nix?
Sind Daten im Bericht?
maike

 

Der Bericht wird mit den Daten angezeigt, aber es kommt keine Meldung, welche Größe dieser hat. Momentan zum testen hab ich immer diesselben Daten, aber für die Praxis wär es mir schon wichtig, dass der Ausdruck sich auf ein Etikett beschränkt!

Danke maike für alles!

 

Hallo miteinander,

@Kekskrümel: Kann es sein, dass der Code gar nicht ausgeführt wird, weil die Ereigniseigenschaft nicht auf Ereignisprozedur eingestellt wurde?

Im übrigen habe ich das grade mal nachgestellt und ausgetestet. Leider lässt sich mit dem Ergebnis nichts anfangen, da offensichtlich die Zeilenumbrüche nicht berücksichtigt werden. Es wird also die Länge des Textes ermittelt, nicht aber seine Höhe.

 

Hallo Anne!

Danke für den Hinweis. Das war mir so nicht bewußt. *frown.gif*

Ich habe jetzt noch ein wenig experimentiert und dabei ist mir eingefallen, dass es für Berichte die Methode TextWidth und TextHight gibt. Damit kommt man an die gewünschten Informationen.

@Kekskrümel:
Füg mal bitte den folgenden Code unverändert am Ende Deines VBA-Codes im Bericht ein und öffne den Bericht in der Seitenansicht:
Code:

Der Code geht davon aus. dass das Steuerelement, in dem die zusammengestellten Informationen angezeigt werden, den Namen Vorlage hat.

HTH

 

Vielen Dank euch!´
Mit dem Code von Thomas funktioniert es jetzt schon mal.
Wie kann man das jetzt noch anpassen? Die Maße sind mir eigentlich relativ egal bei öffnen.
Ich hätte lieber nur eine Meldung, wenn der Bericht zu lang ist. Die maximal Maße: Breite 94 mm, Höhe 49 mm

 

Vielleicht so: Code:

 

Danke Anne. Funktioniert leider nicht so. Aber ich hab grad was anderes festgestellt: der Bericht wird abgeschnitten, wenn das komplette Feld belegt ist. Von dem her könnte man diesen Schnickschnack natürlich auch weglassen, wenn das sehr aufwändig wird und man muss halt dann nochmal kurz prüfen, ob alles da ist, bevor man druckt.