Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Fixe Größe für Detailbereich, Seite 1 anders
zurück: Memofeld wird im Bericht nach 255 Zeichen abgeschnitten weiter: Hintergrundbild im Bericht Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Rolling_Metty
Anfänger


Verfasst am:
11. Jan 2008, 11:25
Rufname:


Fixe Größe für Detailbereich, Seite 1 anders - Fixe Größe für Detailbereich, Seite 1 anders

Nach oben
       Version: Office 2k (2000)

Hallo Forum,

seit einiger Zeit beschäftige ich mich mit folgendem Problem, dessen Lösung ich ohne euere Hilfe nicht finde.

Ich arbeite an einer Rechnung, die über mehrere Seite lang sein kann. Die Rechnung ist als Bericht angelegt. Im Berichtskopf ist der Briefkopf, im Berichtsfuß die Addition aller Rechnungspositionen, im Seitenkopf ab Seite 1 ein Übertrag, im Seitenfuß die Zwischensumme samt Bankverbindung. Das alles funktioniert ohne Probleme.

Die Rechnungsseite arbeitet mit drei Spalten: Rechnungsposition, Positionstext und Positionwert. Diese Spalten werden durch senkrechte Striche getrennt, die dynamisch mit der Größe des Feldes Positionstext 'mitwachsen'. Diese Lösung fand ich hier im Forum und arbeitet exellent (an dieser Stelle Danke an alle, die sie damals erarbeitet haben!). Auch die Unterscheidung, ob Seite 1 oder eine der weiteren Seiten vorliegt, arbeitet perfekt.

Doch gerade diese Linien sollen nun auch auf einer Seite, bei der nur wenige Rechnungspostionen vorliegen, bis ganz nach unten reichen. Daher nun meine Frage: Kann ich die Linienlänge statt der eingestellten Dynamik fix einstellen oder ist es sinnvoll, die Größe des Detailbereiches für die 1. und die folgenden Seiten fix zu definieren (denke mal, das ist die bessere Lösung, da ich dann den Berichtsfuß mit der Summe immer am unteren Ende der letzten Rechnungsseite habe.)

Über eine Antwort mit einer möglichst einfachen (auch für einen Laien verständlich Laughing ) Lösung würde ich mich sehr freuen.

Schon mal herzlichen Dank für euere Mühe!

Gruß Metty
Nachtrag: Rolling_Metty am 11. Jan 2008 um 10:29 hat folgendes geschrieben:
Hier noch als Nachtrag der Code:
Code:
Option Compare Database

Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)
    Me.Section(acPageHeader).Visible = (Me.Page > 1)
End Sub

Private Sub Detailbereich_Print(Cancel As Integer, PrintCount As Integer)
    Dim X1 As Single, Y1 As Single
    Dim X2 As Single, Y2 As Single
    Dim Farbe As Long
     
    'Festlegen der Maßeinheit für Koordinaten auf einer Seite
    Me.ScaleMode = 7 'Festlegen der Maßeinheit cm
    'Erste Linie bei 0,0
    X1 = 0
    X2 = 0
    Y1 = 0
    Y2 = 55.87 'Linie maximal 55,87 (22 Zoll) Länge
    Me.DrawWidth = 6 'Breite der Linie in Pixel
    Farbe = RGB(0, 0, 0)  'Linienfarbe Schwarz
    Me.Line (X1, Y1)-(X2, Y2), Farbe 'Zeichnen der Linie
    'Zweite Linie bei 2,899
    X1 = 2.899
    X2 = 2.899
    Y1 = 0
    Y2 = 55.87 'Linie maximal 55,87 (22 Zoll) Länge
    Me.DrawWidth = 6 'Breite der Linie in Pixel
    Farbe = RGB(0, 0, 0)  'Linienfarbe Schwarz
    Me.Line (X1, Y1)-(X2, Y2), Farbe 'Zeichnen der Linie
    'Dritte Linie bei 15,3
    X1 = 15.3
    X2 = 15.3
    Y1 = 0
    Y2 = 55.87 'Linie maximal 55,87 (22 Zoll) Länge
    Me.DrawWidth = 6 'Breite der Linie in Pixel
    Farbe = RGB(0, 0, 0)  'Linienfarbe Schwarz
    Me.Line (X1, Y1)-(X2, Y2), Farbe 'Zeichnen der Linie
'Vierte Linie bei 18,499
    X1 = 18.499
    X2 = 18.499
    Y1 = 0
    Y2 = 55.87 'Linie maximal 55,87 (22 Zoll) Länge
    Me.DrawWidth = 6 'Breite der Linie in Pixel
    Farbe = RGB(0, 0, 0)  'Linienfarbe Schwarz
    Me.Line (X1, Y1)-(X2, Y2), Farbe 'Zeichnen der Linie
End Sub

Private Sub Report_Activate()
    DoCmd.Maximize
End Sub

Private Sub Seitenfußbereich_Format(Cancel As Integer, FormatCount As Integer)
'    Me!Uebertrag = Me!Zwischensumme
End Sub

Private Sub Seitenkopfbereich_Format(Cancel As Integer, FormatCount As Integer)
    Me.Section(acPageHeader).Visible = (Me.Page > 1)
End Sub

Private Sub Seitenkopfbereich_Print(Cancel As Integer, PrintCount As Integer)
    Me.Section(acPageHeader).Visible = (Me.Page > 1)
End Sub

Nachtrag: Rolling_Metty am 11. Jan 2008 um 10:55 hat folgendes geschrieben:
Und hier noch die Bilder, damit ihr euch das optisch einmal vorstellen könnt:

Seite 1: {Grafik angehaengt by Willi Wipp}
Seite 2 und folgende: {Grafik angehaengt by Willi Wipp}

Auf Seite 1 sollten die senkrechten Linien immer bis zur unteren Querlinie reichen, ebenso auf Seite 2. Hier sollte nach Möglichkeit die Addition der Summen auch ganz unten erscheinen.

Ich hoffe, mein Problem verständlich gemacht zu haben.

Gruß Metty



musterrechnung2.jpg
 Beschreibung:
 Dateigröße:  40.48 KB
 Angeschaut:  3430 mal

musterrechnung2.jpg



musterrechnung1.jpg
 Beschreibung:
 Dateigröße:  95.19 KB
 Angeschaut:  3430 mal

musterrechnung1.jpg


Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: SQL INSERT; fixe Tabellenstruktur; Abfrageergebniss zu groß 2 nvr1337 104 11. Sep 2013, 14:43
nvr1337 SQL INSERT; fixe Tabellenstruktur; Abfrageergebniss zu groß
Keine neuen Beiträge Access Tabellen & Abfragen: Tabelle via Abfrage anders darstellen? 3 xlPaula 191 09. Feb 2013, 22:45
Gast Tabelle via Abfrage anders darstellen?
Keine neuen Beiträge Access Tabellen & Abfragen: Bug im Beziehungslayout ? Plötzlich linke Seite verschwunden 8 Stefan24 710 15. Jan 2013, 12:04
Gast Bug im Beziehungslayout ? Plötzlich linke Seite verschwunden
Keine neuen Beiträge Access Tabellen & Abfragen: Format-Befehl in Access 2010 anders?Wie bekomme ich das hin? 4 kaineanung1 1946 15. Nov 2011, 16:17
Gast Format-Befehl in Access 2010 anders?Wie bekomme ich das hin?
Keine neuen Beiträge Access Tabellen & Abfragen: Sortieren von 2 Felder - Ausgabe anders 2 Peter Steiner 400 13. Nov 2009, 21:29
Peter Steiner Sortieren von 2 Felder - Ausgabe anders
Keine neuen Beiträge Access Tabellen & Abfragen: Spalte Anders Anzeigen lassen 4 Harry_J 407 04. Apr 2008, 11:01
Harry_J Spalte Anders Anzeigen lassen
Keine neuen Beiträge Access Formulare: Accessfentster immer mit bestimmter Größe öffnen 0 skater2301 485 25. Jul 2007, 17:24
skater2301 Accessfentster immer mit bestimmter Größe öffnen
Keine neuen Beiträge Access Formulare: dynamische Größe eines Unter-Endlosformulars 3 Killah 605 20. Jun 2007, 11:11
Killah dynamische Größe eines Unter-Endlosformulars
Keine neuen Beiträge Access Formulare: Bild hat unterschiedliche Größe 2 Guybrush junior 496 01. Feb 2007, 15:33
Guybrush junior Bild hat unterschiedliche Größe
Keine neuen Beiträge Access Tabellen & Abfragen: Tabelle hat beim Öffnen immer gleiche Größe?! 4 ladau66 909 10. Mai 2006, 10:37
Gast Tabelle hat beim Öffnen immer gleiche Größe?!
Keine neuen Beiträge Access Formulare: Variable Größe des Detailbereichs in Endlosformular 1 Notfall_Franz 1711 29. März 2006, 11:00
stargazer01 Variable Größe des Detailbereichs in Endlosformular
Keine neuen Beiträge Access Formulare: Wie kann ich die Größe eines Formulars an mein Fenster anpas 6 Party 1108 29. März 2006, 10:13
Willi Wipp Wie kann ich die Größe eines Formulars an mein Fenster anpas
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML CSS