PDA

Vollständige Version anzeigen : Einzelnen Bericht aus Formular mehrfach drucken...ABER WIE??


Manu Maus
16.01.2003, 22:55
Hallo!!

Anfänger braucht HILFE und bedankt sich schon jetzt für jeden Kommentar!!

Ich drucke EIN Artikeletikett mit über einem Button "Beim Klicken...."

DoCmd.OpenReport "Bericht Artikeletikett", acViewNormal, , "[Artikelnummer]=" & Str$(Me.[Artikelnummer])

Jetzt hätte ich noch gerne, daß er vor dem Druck fragt, wieviele Etiketten gedruckt werden sollen!!

Kann mir jemand helfen??

Merci!! :angel:
Manuela

Manuela Kulpa
17.01.2003, 05:12
Hallo Manuela :),

Reinhard Kraasch hat diesbezüglich ein schönes Beispiel (gezippt, 37 kb): Etiketten drucken (http://www.kraasch.de/downloads/beispiele/Etiketten.zip)

Gruß

Manu Maus
18.01.2003, 23:13
Peinlich - ist auf dem falschen Beitrag gelandet, deshalb hier nochmal!


Hallo zusammen!!

Zu dieser Anfrage habe ich Manuelas Tip angeschaut. Aber dieses Artikelprogramm ist nicht ganz das richtige für meinen Bedarf.
Trotzdem Danke für den Tip.

Ich drucke meine Artikel über einen Button direkt aus dem "FRM Artikel".
Die Ereignisprozedur sieht wie folgt aus:

DoCmd.OpenReport "Bericht Artikeletikett", acViewNormal, , "[Artikelnummer]=" & Str$(Me.[Artikelnummer])

Klappt wunderbar, aber ich bekomme halt nur 1 Etikett, obwohl manchmal auch mehrere benötigt werden. -->Dann müßte ich u.U. 20x den Button "Drucken" anklicken.

Am liebsten wäre mir, wenn sich nach dem anklicken dieses Buttons ein "Kästchen" öffnen würde, nach der Anzahl der Etiketten fragt und dann eine entsprechende Menge ausgedruckt wird.

Hat jemand eine Idee? Im Forum konnte ich leider auch nichts geziehltes finden.

Besten Dank an alle!!
Gruß und ein schönes Wochenende

Manuela

Elko
19.01.2003, 07:28
Hallo
Probiersmal damit


Dim Mldg, Titel, Voreinstellung As interger

Mldg = " Wieviele Artikeletikett drucken ?" ' Aufforderung festlegen.
Titel = "Artikeletikett" ' Titel festlegen.
Voreinstellung = "5" ' Voreinstellung festlegen.

w = InputBox(Mldg, Titel, Voreinstellung)

If w = "" Then Exit Function
For o = 1 To w
DoCmd.OpenReport "Bericht Artikeletikett", acViewNormal, , "[Artikelnummer]=" & Str$(Me.[Artikelnummer])

Next o


Gruß Rainer

Nouba
19.01.2003, 13:39
Hallo Manuela

um einen Bericht mehrmals zu drucken, sollte

<code>DoCmd.OpenReport "Bericht Artikeletikett", acViewNormal, , "[Artikelnummer]=" _
&nbsp;&nbsp;& Str$(Me.[Artikelnummer])
DoCmd.PrintOut , , , , AnzahlKopien</code>

genügen. Siehe auch OL-Hilfe.