Supportnet Computer
Planet of Tech

Supportnet / Forum / Datenbanken

Druckfunktion in access





Frage

Ich habe folgen Anforderung. In einem Accessbericht, wird die menge der Artikel mit abgesetzt. jetzt soll der Datensatz der jeweiligen artikel entsprechend der menge gedruckt werden

Antwort 1 von Pausenfueller

Hallo,

ich verstehe leider nur Bahnhof.

Wird der Bericht nicht komplett gedruckt oder hast du vergessen, die entsprechenden Felder anzulegen, damit noch weitere Angaben außer der Menge angezeigt und gedruckt werden?

Versuche mal dein Problem etwas ausführlicher und verständlicher darzulegen.

Gruß
Pausenfüller

Antwort 2 von jens_knebel

Hallo Pausenfüller.
Der bericht wird komplett gedruckt das ist nicht das Problem.
Der kunde bekommt drei verschiedene Artikel.
Jeder Artikel steht auf einer eigenen Seite im Bericht.
1. Seite Artikel 1 mit Menge 4
2. Seite Artikel 2 mit Menge 3 usw

Jetzt soll die erste Seite des Berichts 4mal gedruckt werden und die 2. Seite 3 mal.

Ich hoffe das mein Problem jetzt besser beschrieben ist.
Gruß

Jens

Antwort 3 von Pausenfueller

Hallo,

habe ich das jetzt richtig verstanden, die Anzahl der zu druckenden Seiten soll sich danach richten, welche Artikel-Stückzahl auf der jeweiligen Seite angegeben ist? Also jede einzelne Seite des Berichtes soll dem Drucker mitteilen, wie oft sie jeweils ausgedruckt werden will.

Von sowas habe ich noch nie was gehört, tut mir leid. Für einen kompletten Bericht wäre das für mich noch irgendwie vorstellbar, aber innerhalb des Berichtes auch noch differenziert....

Gruß
Pausenfüller

Antwort 4 von jens_knebel

richtig
Da der Bericht auf einem Etikett gedruckt werden soll.
Auf dem Etikett ist dann nur die Auftragsnummer der artikel und die Auftragsnummer drauf.

Gruß
Jens

Antwort 5 von jens_knebel

Hab hinbekommen:

Private Sub Detailbereich_Print(Cancel As Integer, PrintCount As Integer)
Dim drucken As Integer
drucken = Me!Menge
Static Anzahl As Integer

If Anzahl < drucken Then

Me.NextRecord = False
Anzahl = Anzahl + 1

Else

Anzahl = 0

End If

End Sub

Klappt einwandfrei

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: