Etikettendruck

[AMB]

Guten Morgen,

aufgrund meines beschränkten VBA-Wissens habe ich folgendes Problem:

Ich habe ein ungebundenes Formular (frmAuswahl) mit Textfeldern (txtStart, txtEnde) und Schaltflächen (cmdDruck1, cmdDruck3). In die Textfelder werden Zahlen eingetragen (z.B.: 1,5) und über die Schaltflächen soll ein Bericht ausgewählt werden und entweder 1x oder 3 x gedruckt werden.

Das Textfeld im Bericht (rptEtiketten), in der die Zahl aus dem Formular übernommem werden soll, heißt txtNummer.

Ich bekomme die VBA-Anweisung mit der Schleife und der Datenübernahme nicht hin. Kann mir bitte jemand helfen!?
Weiterhin sollte auch der Drucker (Micra) festgesetzt werden, da er ja nicht der Standarddrucker ist.

Gruß
Michael

[DF6GL]

Hallo,



erklär mal genauer, was es mit "In die Textfelder werden Zahlen eingetragen (z.B.: 1,5)" auf sich hat und wozu diese Zahlen gebraucht werden.

Wenn , wie vermutet, auf den Etiketten fortlaufend Zahlen , beginnend mit txtStart und endend mit txtEnde ausgegeben werden sollen, so bietet sich dafür eine Tabelle an , die die Zahlen aus dem entspr. Wertebereich (in z. B. Feld "Nummer", Datentyp Zahl,long) speichert. Der Bericht mit seinem Textfeld  wird an diese Tabelle gebunden.

Der Drucker kann entweder über das Printer-Objekt eingestellt werden, oder der Standarddrucker wird vorher auf den speziellen Drucker umgestellt.

Statt zwei Schaltflächen für die Kopien(anzahl) erstelle ein weiteres Textfeld ("txtKopien") in die die Kopieen-Anzahl eingetragen wird.


Sub cmdDruck_Click()
.
.
.
Docmd.Openreport "test2" , acPreview ,, "Nummer >=" & Me!txtStart & " and Nummer <= " & Me!txtEnde
DoCmd.PrintOut , , , , Me!Kopien
.
.
End Sub


Ansonsten weiterer Tipp in dieser Beispiel-DB:  http://dbwiki.net/images/3/3b/AccSampleEtiketten2000.zip

[AMB]

Hallo,

Dein Gedanke war richtig, es sollte fortlaufend sein.
Hat geklappt! Danke dafür!