Hi alle,
ich habe eine A03-DB die Transporte erfasst und Aufträge ausgibt. Jetzt wollte ich auf dem Eingabeformular einen Button und ein Eingabefeld mit dem ich Etiketten drucken kann. ein Etikett in form eines Berichts habe ich schon. Jetzt möchte ich eben im Eingabefeld eine Anzahl eintragen und dann soll er diese Anzahl Etiketten ausdrucken.
Greentz´n Shoutz
Andreas
Hallo Andreas,
füge folgenden VBA-Code ein:
DoCmd.PrintOut acPages, 1, 999, acMedium, Forms![Formularname]![Feldname], True
[Formularname] ist logischerweise der Name Deines Formulars und
[Feldname] ist der Name des Textfeldes, in das Du die Anzahl der Kopien eingibst.
Grüße,
Kerstin
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Andreas,
füge folgenden VBA-Code ein:
DoCmd.PrintOut acPages, 1, 999, acMedium,
Forms![Formularname]![Feldname], True[Formularname] ist
logischerweise der Name Deines Formulars und
[Feldname] ist der Name des Textfeldes, in das Du die Anzahl
der Kopien eingibst.Grüße,
Kerstin
Danke Kerstin, nur leider weiss ich nicht genau wo ich den Code einbinden muss. Ich habe einen Button der bei Click diesen Bericht drucken soll. Sobald ich deinen Code einbinde druckt mir Access nur das Formular. Sooft ich es eben eingegeben habe.
Greetz´n Shoutz
Andreas
Danke Kerstin, nur leider weiss ich nicht genau wo ich den
Code einbinden muss. Ich habe einen Button der bei Click
diesen Bericht drucken soll. Sobald ich deinen Code einbinde
druckt mir Access nur das Formular. Sooft ich es eben
eingegeben habe.Greetz´n Shoutz
Andreas
Hallo Andreas,
hier der komplette Code, den Du hinter den Button legst:
Private Sub Befehl\_Click()
On Error GoTo Err\_Befehl\_Click
Dim stDocName As String
stDocName = "Berichtsname"
DoCmd.OpenReport stDocName, acPreview
DoCmd.PrintOut acPages, 1, 999, acMedium, Forms![Formularname]![Feldname], True
DoCmd.Close
Exit\_Befehl\_Click:
Exit Sub
Err\_Befehl\_Click:
MsgBox Err.Description
Resume Exit\_Befehl\_Click
End Sub
Befehl ersetzt Du mit dem Namen deines Buttons, Berichtsname mit dem Namen des Berichts. Formular- und Feldname wie gehabt.
So wird zunächst der Bericht geöffnet, anschließend der Druckbefehl ausgeführt und dann der Bericht wieder geschlossen.
Anders hab ich es jetzt leider auch nicht hinbekommen. Aber so sollte es funktionieren.
Grüße,
Kerstin