AquaSoft Forum

• Das Wort "Me" ersetzt den Namen des aktuellen Berichts.
• Die Wörter "Deutsch" und "Englisch" stehen für Feldnamen im Bericht, also nicht für den Namen der Tabelle oder des Berichts selbst.
• Korrekterweise sollte übrigens vor Feldnamen ein "!" und nicht ein "." stehen, also"Me!Deutsch.Left" und "Me!Englisch.Left".
• Im Beispiel werden die deutschen und englischen Wörter über den gleichen Bericht ausgedruckt.
• Das Beispiel funktioniert nur, wenn ein Bereich die gesamte Breite des Berichts hat, d.h. dort werden 4 Wörter nebeneinander gedruckt.
• Damit diese nicht übereinander geschrieben werden, müssen sie je nach Zähler "i" entsprechend platziert werden.

• Im Bericht für die Vorderseite die Reihenfolge auf links oben, rechts oben, links unten, rechts ändern.
• Im Bericht für die Rückseite den Bereich auf die ganze Seitenbreite (abzüglich Rand) ändern und die Spaltenanzahl auf 1 setzen. Die Felder aber in der linken Hälfte stehen lassen. Ausserdem die für deinen Fall stark vereinfachte Prozedur einbauen:

Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)
    Dim pos as Integer
    Dim ctl as Control

    If Me.Controls(0).Left > 8448 Then
       pos = (-8448)
       Me.MoveLayout = True
    Else
       pos = 8448
       Me.MoveLayout = False
    End If

    For Each ctl in Me.Controls
       ctl.Left = ctl.Left + pos
    Next

End Sub

Im Bericht für die Vorderseite die Reihenfolge auf links oben, rechts oben, links unten, rechts ändern.

[*]Im Bericht für die Rückseite den Bereich auf die ganze Seitenbreite (abzüglich Rand) ändern

und die Spaltenanzahl auf 1 setzen.

Die Felder aber in der linken Hälfte stehen lassen.

Ausserdem die für deinen Fall stark vereinfachte Prozedur einbauen:

Laufzeitfehler '2100':
Das Steuerelement oder Unterformular ist zu groß für die gewünschte Position.

Option Compare Database

Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)

Dim pos As Integer
Dim ctl As Control

If Me.Controls(0).Left > 8448 Then
pos = (-8448)
Me.MoveLayout = True
Else
pos = 8448
Me.MoveLayout = False
End If

For Each ctl In Me.Controls
ctl.Left = ctl.Left + pos
Next

• Es ist richtig, dass vom Entwurf her nur noch 2 Karten auf einer Seite erscheinen und zwar untereinander.
• Nun musst du noch im Entwurfsfenster die Breite des Detailbereichs von derzeit 14 auf 28.7cm vergrössern, d.h. den Rand nach rechts ziehen.
• Auf Grund der seitlichen Ränder solltest du die Zahl 8448 überall durch 7900 ersetzen (evt. muss sie nach einem Testausdruck noch etwas nachjustiert werden; grössere Zahl=Felder weiter nach rechts, kleinere Zahl=Felder weiter nach links, +/-547=1cm; wenn die gleiche Fehlermeldung erscheint, ist die Zahl zu gross).

Die Bereichsbreite ist größer als die Seitenbreite, und in dem zusätzlichen Platz gibt es keine Elemente. Daher werden einige Seiten wahrscheinlich leer sein.
Die Berichtsbreite Ist z.B. größer als die Seitenbreite.

Auf Ihrem Computer fehlt mindestens eine Objektbibliothek von Microsoft Access 97. Um mit Ihrer konvertierten Datenbank arbeiten zu können, müssen Sie diese Datenbank in Access 97 öffnen und fehlende Verweise w i e derherstellen.
Klicken Sie 'OK', um den Speichervorgang fortzusetzen und diese Datenbank im Access 97-Format mit fehlenden Verweisen zu speichern, oder klicken Sie 'Abbrechen', wenn Sie diese Datenbank nicht speichern möchten.

1. Unter "Datei -> Seite einrichten" muss für die Rückseite der gleiche Seitenrand eingestellt werden, wie für die Vorderseite, also Links 5.75, Rechts 5mm (statt je 10mm)
2. Der Detailbereich darf nur 28.6cm breit sein
3. Der Codierblock hatte tatsächlich einen klitzekleinen Fehler ( und sorry; korrigierter Code unten, es sollte ">=" statt nur ">" heissen)
4. Mit dem Wert 8300 siehts bei mir gleich aus wie die Vorderseite

Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)

    Dim pos As Integer
    Dim ctl As Control

    If Me.Controls(0).Left >= 8300 Then
       pos = (-8300)
       Me.MoveLayout = True
    Else
       pos = 8300
       Me.MoveLayout = False
    End If

    For Each ctl In Me.Controls
       ctl.Left = ctl.Left + pos
    Next

End Sub

Der Detailbereich darf nur 28.6cm breit sein

Gratuliere zu Deiner Ausdauer, das Problem lösen zu wollen