AW: Kenoschein drucken
06.01.2011 13:28:26
fcs
Hallo Walte,
nachfolgend eine Druckprozedur, die du in ein allgemeines Modul deiner Datei kopierst.
Anschliessend das Makro dem Druck-Symbol zuweisen (rechte-Maus-Klick auf Symbol, dann zuweisen).
Das Ganze funktioniert natürlich nur, wenn dein Drucker die Formulare sauber einziehen kann.
Das Makro generiert die Ausdrucke ziemlich flott. Mit der ESC-Taste kannst du die Ausführung stoppen. Zusätzlich muss du ggf. für den Drucker die zu druckenden Dokumente anhalten/löschen.
Die Formel in Zelle B20 solltes du nochmals prüfen.
Ich hoffe mal, dass ich die Spielsucht hier nicht zu sehr gefördert hab.
Gruß
Franz
Sub Keno_Drucken()
Dim wksSchein As Worksheet, Zaehler As Long
If MsgBox("Keno-Scheine 1 bis 50 drucken?", vbQuestion + vbYesNo, "Drucken KENO-Scheine") = _
vbYes Then
Set wksSchein = ActiveSheet
With wksSchein
For Zaehler = 1 To 50
Application.StatusBar = "Schein Nummer " & Zaehler & " wird gedruckt"
.Range("AS3").Value = Zaehler
.Calculate
.PrintOut
Next
Application.StatusBar = False
.Range("AS3").Value = 1
End With
End If
End Sub