<\/p>\n
Auch wenn man Berichte meist erst gegen Ende eines Projekts programmiert und sie gegenüber der Benutzeroberfläche oft stiefmütterlich behandelt, weiß man doch, wie man Berichte mit Inhalt füllt: Nämlich durch Datenbindung des Berichts an eine Tabelle oder Abfrage und der in den verschiedenen Bereichen eingefügten Felder zur Anzeige der Daten. Es geht aber auch anders: Mit dem Print-Befehl des Report-Objekts drucken Sie Texte an beliebige Stellen der einzelnen Berichtsbereiche. Wie das funktioniert und was Sie damit anstellen können, lesen Sie in diesem Beitrag.<\/b><\/p>\n
Wer in Access-Berichten die üblichen Pfade verlassen und ausgefallene Szenarien realisieren möchte, muss im Normalfall ein wenig Zeit mitbringen. Mal eben Text in einem Textfeld in unterschiedlichen Schriftarten darstellen, den Inhalt eines Textfelds mittig oder gar am unteren Rand ausrichten oder eine komplette Seite mit Informationen füllen, die nicht aus gebundenen Feldern stammen<\/p>\n
Mit Access-Berichten durchaus ein Problem – wenn es denn die Print<\/b>-Methode des Report-Objekts nicht gäbe.<\/p>\n
Mit dieser Methode können Sie Text in beliebigen Schriftarten an beliebigen Stellen in die einzelnen Bereiche eines Access-Berichts schreiben. Der kleine Nachteil ist, dass dies nicht bereichsübergreifend geschehen kann – das schmälert den Nutzen dieser Funktion für Berichte mit dem gewissen Etwas jedoch nicht.<\/p>\n
Ereignisreich<\/p>\n
Während Sie die Datenherkunft und die Position der gebundenen und ungebundenen Steuerelemente eines Access-Berichts normalerweise zur Entwurfszeit festlegen und diese dann von Access automatisch gefüllt werden, erfolgt der Aufruf des Print<\/b>-Befehls erst zur Laufzeit, und zwar innerhalb bestimmter Ereignisse. Dabei handelt es sich um die beiden Ereignisse Beim Formatieren <\/b>und Beim Drucken <\/b>eines jeden Berichtsbereichs, die auch in dieser Reihenfolge pro Bereich einmal oder mehrmals ausgelöst werden.<\/p>\n
Der Unterschied zwischen den beiden Ereignissen ist, dass beim Aufruf von Beim Formatieren <\/b>noch keine Informationen über die Formatierung des aktuellen Bereichs vorliegen, beim Ereignis Beim Drucken <\/b>jedoch schon.<\/p>\n
Wenn Sie einem Bereich, der in Abhängigkeit vom Inhalt seiner gebundenen Steuerelemente eine unterschiedliche Höhe aufweisen kann, per Print <\/b>Text hinzufügen möchten, ist es möglicherweise interessant, die endgültige Höhe des Bereichs zu kennen – und dies ist erst im Ereignis Beim Drucken <\/b>möglich.<\/p>\n
Print it<\/b><\/p>\n
Probieren Sie das einfach mal aus, indem Sie beispielsweise für den Seitenkopf das Ereignis Beim Drucken <\/b>anlegen und dort einen Print<\/b>-Befehl unterbringen. Dazu öffnen Sie einen Bericht in der Entwurfsansicht, aktivieren den Seitenkopfbereich durch einen Klick auf den Balken mit der Beschriftung Seitenkopf<\/b>, klicken auf die Eigenschaft Beim Drucken <\/b>im Bereich Ereignisse <\/b>des Eigenschaftsfensters und anschließend auf die nun erscheinende Schaltfläche mit den drei Punkten (…).<\/p>\n
Wenn Sie im folgenden Dialog den Eintrag Code-Generator <\/b>auswählen, öffnet sich der VBA-Editor und präsentiert den automatisch angelegten Rumpf einer Prozedur namens Seitenkopfbereich_Print<\/b>.<\/p>\n
Tragen Sie hier die folgende Anweisung ein und öffnen Sie den Bericht in der Seitenvorschau, um das Ergebnis aus Bild 1 zu erhalten:<\/p>\n
![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2009_02\/BerichtePrinten-web-images\/pic001_opt.jpeg\")
<\/p>\n
Bild 1: Ein erster kleiner Beispieltext<\/span><\/b><\/p>\n Es kann sein, dass Sie nun keinen Text sehen, was zum Beispiel daran liegen kann, dass Sie Access 2007 verwenden und den Bericht in der Berichtsansicht geöffnet haben. Diese löst aber weder das Beim Formatieren<\/b>– noch das Beim Drucken<\/b>-Ereignis aus. Sie müssen also zur Seitenansicht wechseln. Es kann auch sein, dass der Bereich, in dem der Text gedruckt werden soll, schlicht zu klein bemessen ist. Die Print<\/b>-Anweisung nimmt keine Rücksicht darauf, ob der auszugebende Inhalt im Zielbereich Platz findet; gegebenenfalls erhalten Sie hier sogar abgeschnittene Zeilen.<\/p>\n Auf die oben angegebene Weise können Sie Texte in alle Berichtsbereiche drucken. Der Text im Detailbereich erscheint auf jeden Fall mindestens einmal, auch wenn die Datenherkunft keine Datensätze enthält.<\/p>\n Von Zeile zu Zeile<\/b><\/p>\n Wenn Sie nicht nur eine, sondern mehrere Zeilen drucken möchten, geben Sie einfach mehrere Print-Anweisung hintereinander ein:<\/p>\n Entgegen der Angabe in der Online-Hilfe führt dies allerdings nur zu einem Wagenrücklauf, nicht jedoch zu einem Zurücksetzen der X-Position auf den Beginn der Zeile. Stattdessen erhalten Sie die Ausgabe aus Bild 2.<\/p>\n Bild 2: Zwei aufeinanderfolgende Print-Anweisungen liefern einen Wagenrücklauf, aber keinen Start am Zeilenbeginn.<\/span><\/b><\/p>\n Wenn Sie zwei Zeilen direkt untereinander drucken möchten, müssen Sie die X-Position zuvor mit folgender Anweisung auf 0 einstellen:<\/p>\n Damit kommen wir zum Einstellen der Startposition von Texten, die per Print <\/b>in Berichte geschrieben werden sollen: Neben der Eigenschaft CurrentX <\/b>gibt es nämlich auch noch die Eigenschaft CurrentY <\/b>zum Einstellen der y-Koordinate.<\/p>\n Wenn Sie den Text also nicht ganz oben im betroffenen Bereich drucken möchten, sondern weiter unten, müssen Sie den Abstand zum oberen Rand des Bereichs mit der CurrentY<\/b>-Eigenschaft angeben. Das Gleiche gilt natürlich für den Abstand zum linken Rand; hier kommt die CurrentX<\/b>-Eigenschaft zum Zuge.<\/p>\n Diese beiden Eigenschaften behalten ihren Wert nach einmaligem Einstellen jedoch nicht, sondern ändern sich mit jedem erneuten Aufruf der Print<\/b>-Anweisung und definieren die neue Position des Startpunkts für weitere Print<\/b>-Aufrufe. Als Beispiel geben die folgenden Zeilen die x- und y-Position vor und nach dem Drucken einer Textzeile aus:<\/p>\n Das Ergebnis im Direktfenster sieht so aus:<\/p>\n Auf diese Weise können Sie gleichzeitig die Höhe und die Breite des soeben ausgedruckten Textes bestimmen. Aber um welche Einheit handelt es sich denn hier überhaupt Normalerweise um Twips. Die Einheit stellen Sie auf zwei Arten ein:<\/p>\n Zusätzlich zur Länge\/Breite einer Einheit können Sie deren Ursprung relativ zum bestehenden linken und oberen Seitenrand verändern, und zwar mit den beiden Eigenschaften ScaleLeft <\/b>und ScaleTop<\/b>.<\/p>\n Texte aneinanderreihen<\/b><\/p>\n Wenn Sie Texte ohne Zeilenumbruch aneinanderreihen möchten, können Sie dem Argument der Print<\/b>-Anweisung ein Semikolon anhängen:<\/p>\n <\/p>\n liefert beispielsweise folgende Ausgabe im Bericht:<\/p>\n Kreuzweise<\/b><\/p>\n Mit den hier vorgestellten Befehlen können Sie etwa Kreuztabellen in Berichten realisieren. Ein einfaches Beispiel ist die Darstellung des kleinen 1×1. Dafür ist der Code aus Listing 1 erforderlich und das Ergebnis sieht wie in Bild 3 aus. Beachten Sie, dass der Bereich, in dem diese Matrix gedruckt werden soll, hoch genug ist – anderenfalls wird diese nicht komplett dargestellt. Die Routine durchläuft zwei Schleifen und füllt so zunächst die Spalten der Matrix und dann die Zeilen.<\/p>\n Listing 1: Drucken des kleinen 1×1 im Detailbereich eines Berichts<\/p>\n Bild 3: Das per Print-Anweisung erzeugte kleine 1×1<\/span><\/b><\/p>\n Damit Sie erkennen, welchen Nutzen das Erstellen einer eigenen Einheit beziehungsweise eines eigenen Rasters haben kann, finden Sie in Listing 2 einige Zeilen Code, die zwar genau das Gleiche durchführen wie die aus Listing 1, die aber von einer normierten Matrix im aktuellen Berichtsbereich ausgehen (hier 11×12). Der eine oder andere mag diese Vorgehensweise vorziehen.<\/p>\n Text eines Textfelds in unterschiedlichen Schriftarten anzeigen<\/b><\/p>\n Unter Access ist es nicht möglich, dem Inhalt eines Textfelds verschiedene Formatierungen zuzuweisen – zumindest nicht in Versionen älter als Access 2007. Dort finden Sie zumindest eine spezielle Art von Rich-Text-Format, um Texte zu formatieren.<\/p>\n In manchen Fällen kann man dieses Verhalten jedoch auch mit älteren Versionen von Access nachbilden. Die Voraussetzung ist, dass der Text nicht umbrochen wird: Die Print<\/b>-Anweisung ignoriert beim Drucken nämlich nicht nur das untere Ende des jeweiligen Bereichs, sondern sie druckt auch über den rechten Seitenrand hinaus, wenn der Text zu lang ist, um auf einer Seitenbreite dargestellt zu werden. (Sie können den Text natürlich mit einer selbst gebastelten Funktion in mehrere Zeilen zerlegen, aber darauf gehen wir hier aus Platzgründen nicht näher ein.)<\/p>\n Als Beispiel soll eine Liste von Personen samt Geburtsdatum angezeigt werden, wobei die Namen fett und das Geburtsdatum dahinter in Klammern und in normaler Breite gedruckt werden.<\/p>\n Der Beispielbericht verwendet die Tabelle tblKontakte <\/b>mit den Feldern ID<\/b>, Vorname<\/b>, Nachname <\/b>und Geburtsdatum<\/b> als Datenherkunft.<\/p>\n Damit Sie in den Ereignisprozeduren Beim Formatieren <\/b>oder Beim Drucken <\/b>auf die Werte dieser Felder für den aktuellen Datensatz zugreifen können, müssen Sie diese Felder auch im Detailbereich des Berichts platzieren. Da die Felder nicht angezeigt werden sollen, stellen Sie die Eigenschaft Sichtbar <\/b>gleich auf Nein <\/b>ein – immerhin möchten wir ja die Print<\/b>-Methode verwenden, um die Daten wie im Bericht aus Bild 4 anzuzeigen.<\/p>\n Bild 4: Nachbilden der Anzeige unterschiedlicher Formatierungen in einem einzigen Steuerelement<\/span><\/b><\/p>\n Der Einsatz der Print<\/b>-Methode sieht dann wie in der folgenden Routine aus:<\/p>\n Der Clou ist also, die gewünschten Inhalte einfach auf zwei Print<\/b>-Befehle zu verteilen und zwischendurch die Zeichenformatierungen zu ändern – von fett und kursiv auf normal und umgekehrt. Außerdem müssen Sie an den ersten Print<\/b>-Befehl ein Semikolon anhängen, damit der Teil mit dem Geburtsdatum einfach in der gleichen Zeile hinten angefügt werden kann.<\/p>\n Vertikal zentrieren<\/b><\/p>\n Der Anlass für die Beschäftigung mit einem Beitrag zum Thema Print<\/b>-Befehl war eine Frage in einer Newsgroup. Dort wollte ein Access-Entwickler wissen, wie er den Preis einer Rechnungsposition auf Höhe der untersten Zeile der möglicherweise mehrzeiligen Positionsbeschreibung darstellen könne. Access-MVP Josef Poetzl lieferte die eleganteste Lösung, die wir hier in abgewandelter Form vorstellen.<\/p>\n Zur Vereinfachung soll der folgende Beispielbericht nicht die üblichen Rechnungsdaten, sondern nur die Positionen und die Preise selbst anzeigen, weshalb die als Datenherkunft dienende Tabelle tblPositionen <\/b>auch nur die drei Felder ID <\/b>(Primärschlüsselfeld), Position <\/b>(Memo) und Preis <\/b>(Währung) enthält. Den Bericht namens rptPositionen <\/b>erstellen Sie folgendermaßen:<\/p>\n Der Bericht sollte nun in der Seitenansicht wie in Bild 5 aussehen (die Zeilen sind der Übersicht halber mit alternierenden Hintergrundfarben ausgestattet).<\/p>\n Bild 5: Positionen einer Rechnung in üblicher Darstellung<\/span><\/b><\/p>\n Leider liefert Access keine Eigenschaft, mit der Sie die vertikale Ausrichtung von Textfeldern einstellen können – und auch das würde nichts helfen, denn Sie müssten auch noch sicherstellen, dass das Textfeld mit dem Preis die gleiche Höhe wie das mit dem Positionstext aufweist. Dessen Höhe ist variabel und hängt, wie oben angedeutet, von der Anzahl der angezeigten Zeilen ab.<\/p>\n Nun könnte man meinen, dass sich die Höhe des Preis<\/b>-Feldes in Abhängigkeit von der Höhe des Positions<\/b>-Feldes einstellen lässt, aber das ist in keiner der Prozeduren möglich, die durch die Ereignisse Beim Formatieren <\/b>oder Beim Drucken <\/b>ausgelöst werden. Beim Formatieren ist die Höhe noch nicht bekannt und beim Drucken ist die Formatierung bereits abgeschlossen und nicht mehr änderbar.<\/p>\n Also verwenden Sie die Print<\/b>-Anweisung, die Sie auch mit den Inhalten der Felder der Datenherkunft verwenden können. Interessant ist bei diesem Beispiel nicht die Print<\/b>-Anweisung selbst – diese soll nur den Preis mit einer entsprechenden Währungs-Formatierung ausgeben -, sondern die Ermittlung der Position für die Ausgabe. Da sich diese nach der Höhe des Textfeldes mit der Position richtet, kommt als Ereignis für die Print<\/b>-Anweisung nur Beim Drucken <\/b>infrage, denn erst dort ist die Höhe des Textfeldes bekannt.<\/p>\n Die Höhe wird in der Routine aus Listing 3 mit Me!Position.Height <\/b>ermittelt. Würde man diesen Wert für CurrentY <\/b>angeben, würde die Routine den Preis genau unterhalb der letzten Zeile drucken. Also brauchen wir noch die Höhe des Preises, die wir mit Me.TextHeight(Me!Preis) <\/b>ermitteln. Die Differenz aus beiden, ergänzt um einen kleinen Ausgleichsfaktor, ergibt die vertikale Position. Nun soll der Preis aber auch noch rechtsbündig ausgerichtet werden, was dazu führt, dass wir auch noch die Breite des darzustellenden Texts inklusive Formatierung mit Me.TextWidth <\/b>ermitteln müssen und CurrentX <\/b>genau so einstellen, dass der Text am rechten Rand des Berichts endet (siehe Bild 6).<\/p>\n Bild 6: Positionen einer Rechnung mit unten ausgerichteten Preisen<\/span><\/b><\/p>\n Seitenweise<\/p>\n Die Print<\/b>-Anweisung eröffnet eine ganze Menge Möglichkeiten. Die größte Einschränkung dabei ist die Tatsache, dass sie sich nicht um räumliche Beschränkungen kümmert und über den rechten oder oberen Rand hinausdruckt, ohne den Bereich zu vergrößern. Ist der Bereich zu klein beziehungsweise der zu druckende Text zu groß dimensioniert, ist er einfach nicht sichtbar.<\/p>\n Wenn der Text zu groß geraten könnte, sollten Sie die durch den Text belegte Breite gegebenenfalls mit der TextWidth<\/b>-Methode prüfen und diesen umbrechen oder auf andere Weise andeuten, dass der Text nicht komplett angezeigt werden kann – zum Beispiel durch Abschneiden an entsprechender Stelle und durch Hinzufügen von drei Punkten („Dieser Beispieltext ist zu …“).<\/p>\n Wenn Sie gleich mehrere Seiten mit der Print<\/b>-Methode füllen möchten, sollten Sie berücksichtigen, dass Berichte überhaupt nur mehrere Seiten anzeigen, wenn entsprechende Daten vorliegen. Ohne Daten wird immer nur die erste Seite angezeigt – außer natürlich, Sie stellen die Eigenschaften einzelner Bereiche so ein, dass diese auf einer neuen Seite angezeigt werden.<\/p>\n Brauchen Sie einen Bericht mit mehreren Seiten, ohne dass Sie Daten aus einer Datenherkunft anzeigen möchten, erzeugen Sie trotzdem eine solche, die schlicht und einfach ein Feld mit ausreichend durchnummerierten Zahlen enthält – ein Autowertfeld reicht völlig aus.<\/p>\n Stellen Sie Höhe und Breite des Detailbereichs so groß ein, dass dieser die komplette Seite einnimmt. Wählen Sie die oben beschriebene Tabelle als Datenherkunft aus, und wenn die Tabelle mehr Datensätze enthält, als der Bericht Seiten anzeigen soll, dann schränken Sie die Datenherkunft durch ein entsprechendes Kriterium ein (SELECT * FROM tblSeiten WHERE Seite <= 10 <\/b>wäre beispielsweise ein Ausdruck, der für einen zehnseitigen Bericht benötigt würde).<\/p>\n Anschließend können Sie die Seiten des Berichts nach Lust und Laune mit der Print<\/b>-Anweisung oder auch mit Punkten, Kreisen, Linien oder Vierecken füllen, die Sie mit den Methoden PSet<\/b>, Circle <\/b>oder Line <\/b>erzeugen.<\/p>\n Wie Sie festlegen, was auf welcher Seite angezeigt wird Ganz einfach: Werten Sie im Beim Drucken<\/b>-Ereignis einfach die Eigenschaft Page <\/b>des Berichts aus. Sie enthält die aktuell gedruckte Seite des Berichts. Sie können diese Eigenschaft auch leicht mit der Print<\/b>-Methode kombinieren, um die Seitenzahl im Bericht anzuzeigen:<\/p>\n Groß, größer, Print<\/b><\/p>\n Ein weiterer Vorteil der Print-Anweisung ist, dass Sie damit beliebige Schriftgrößen ausgeben können und nicht wie in Steuerelementen auf 72 Punkte beschränkt sind. Dies kann beim Drucken von Headern oder Logos durchaus interessant sein.<\/p>\n Zusammenfassung und Ausblick<\/b><\/p>\n Die Print<\/b>-Methode von Berichten ist ein echtes Stiefkind. Dabei können Sie zusammen mit den übrigen Methoden und Eigenschaften zum Gestalten von Berichtselementen abseits von Textfeldern und den anderen eingebauten Steuerelementen vieles erreichen, was sonst unmöglich scheint.<\/p>\n Ein gutes Beispiel dafür liefert der Beitrag Termine in Berichten darstellen <\/b>(Shortlink 660). Dort erfahren Sie, wie Sie Outlook-ähnliche Tagesübersichten mit den aktuellen Terminen in optisch ansprechender Weise per Bericht ausgeben.<\/p>\n Beim Umgang mit der Print<\/b>-Methode ist es wichtig, dass die jeweils gültigen Schrift- und Positionseigenschaften verwendet werden. Wenn Sie nach dem Drucken einer Zeile für die folgende eine andere Schriftart verwenden möchten, dann müssen Sie diese über die entsprechenden Font-Eigenschaften des Report<\/b>-Objekts explizit angeben. Die CurrentX<\/b>– und CurrentY<\/b>-Eigenschaften enthalten jeweils die aktuelle Position, an der Texte, Punkte, Linien, Rechtecke oder Kreise eingefügt werden. Auch diese Eigenschaften müssen Sie per Code einstellen, wenn Sie die Position verändern möchten.<\/p>\n Listing 2: Drucken des kleinen 1×1 mit normierter Höhe und Breite<\/p>\n Listing 3: Drucken des Preises einer Position, der an der letzten Zeile der jeweiligen Position ausgerichtet ist<\/p>\n Enthaltene Beispieldateien:<\/p>\n BerichteManuellFuellen.mdb<\/p>\nPrivate Sub Seitenkopfbereich_Print(Cancel As µ\r\n Integer, PrintCount As Integer)\r\n Me.Print "Printed by Print"\r\n End Sub<\/pre>\n
Me.Print "Zeile 1"\r\nMe.Print "Zeile 2"<\/pre>\n
![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2009_02\/BerichtePrinten-web-images\/pic002_opt.jpeg\")
<\/p>\nMe.CurrentX = 0<\/pre>\n
Debug.Print Me.CurrentX, Me.CurrentY\r\nMe.Print "Zeile 1"\r\nDebug.Print Me.CurrentX, Me.CurrentY<\/pre>\n
0 0\r\n588 269<\/pre>\n
\n
Me.Print "Text 1 ";\r\nMe.Print "Text 2"<\/pre>\n
Text 1 Text 2<\/pre>\n
Dim i As Integer\r\nDim j As Integer\r\nMe.Print "Kleines 1x1"\r\nFor i = 1 To 10\r\n Me.CurrentX = Me.ScaleWidth \/ 11 * (i)\r\n Me.CurrentY = Me.ScaleHeight \/ 11\r\n Me.Print i\r\n For j = 1 To 10\r\n If i = 1 Then\r\n Me.CurrentX = 0\r\n Me.CurrentY = Me.ScaleHeight µ\r\n \/ 12 * (j + 1)\r\n Me.Print j\r\n End If\r\n Me.CurrentX = Me.ScaleWidth \/ 11 * (i)\r\n Me.CurrentY = Me.ScaleHeightµ\r\n \/ 12 * (j + 1)\r\n Me.Print i * j\r\n Next j\r\nNext i\r\nMe.Line (0, Me.ScaleHeight \/ 12 * 2)-µ\r\n(Me.ScaleWidth, Me.ScaleHeight \/ 12 * 2)\r\nMe.Line (Me.ScaleWidth \/ 11 * 1, µ\r\nMe.ScaleHeight \/ 12 * 1)-(Me.ScaleWidthµ\r\n\/ 11 * 1, Me.ScaleHeight \/ 12 * 12)<\/pre>\n
![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2009_02\/BerichtePrinten-web-images\/pic003_opt.jpeg\")
<\/p>\n![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2009_02\/BerichtePrinten-web-images\/pic004_opt.jpeg\")
<\/p>\nPrivate Sub Detailbereich_Print(Cancel As µ\r\n Integer, PrintCount As Integer)\r\n Me.FontBold = True\r\n Me.FontItalic = True\r\n Me.FontSize = 11\r\n Me.Print Me.Vorname & " " & Me.Nachname;\r\n Me.FontBold = False\r\n Me.FontItalic = False\r\n Me.Print " (" & Me.Geburtsdatum & ")"\r\n End Sub<\/pre>\n\n
![\"pic005.png\"](\"..\/fileadmin\/_temp_\/2009_02\/BerichtePrinten-web-images\/pic005_opt.jpeg\")
<\/p>\n![\"pic006.png\"](\"..\/fileadmin\/_temp_\/2009_02\/BerichtePrinten-web-images\/pic006_opt.jpeg\")
<\/p>\nPrivate Sub Detailbereich_Print(Cancel As µ\r\n Integer, PrintCount As Integer)\r\n Me.Print Me.Page\r\n End Sub<\/pre>\n
Private Sub Detailbereich_Print(Cancel As Integer, µ\r\n PrintCount As Integer)\r\n Dim sngPositionHeight As Single\r\n Dim sngHeight As Single\r\n sngPositionHeight = Me!Position.Height\r\n sngHeight = Me.TextHeight(Me!Preis)\r\n Me.CurrentY = sngPositionHeight - sngHeight - 20\r\n Me.CurrentX = Me.ScaleWidth - µ\r\n Me.TextWidth(Format(Me!Preis, "0.00 EUR"))\r\n Me.FontName = Me!Position.FontName\r\n Me.FontSize = Me!Position.FontSize\r\n Me.Print Format(Me.Preis, "0.00 EUR")\r\n End Sub\r\nDim i As Integer\r\nDim j As Integer\r\nMe.ScaleWidth = 11\r\nMe.ScaleHeight = 12\r\nMe.Print "Kleines 1x1"\r\nFor i = 1 To 10\r\n Me.CurrentX = i\r\n Me.CurrentY = 1\r\n Me.Print i\r\n For j = 1 To 10\r\n If i = 1 Then\r\n Me.CurrentX = 0\r\n Me.CurrentY = j + 1\r\n Me.Print j\r\n End If\r\n Me.CurrentX = i\r\n Me.CurrentY = j + 1\r\n Me.Print i * j\r\n Next j\r\nNext i\r\nMe.Line (0, 2)-(Me.ScaleWidth, 2)\r\nMe.Line (1, 1)-(1, Me.ScaleHeight)<\/pre>\n
Downloads zu diesem Beitrag<\/h3>\n