Hallo zusammen,
ich bin Newby bei VBA und konnte anhand einer Beispieldatei von dieser Seite ein Formular erstellen, bei der ein Nummernbereich angegben werden kann und die Nummer dann automatisch in das Formaular eingefügt und entsprechend ausgedruckt wird.
Das klapt soweit auch ganz gut, aber leider muss ich jedes einzelne Format über die Druckvorschau auf den Drucker schicken.
Da ich aber auch mal 100 Formulare ausdrucken muss, würde ich gerne das VBA-Skript ohne die Druckvorschau nutzen und den Druckvorgang am Stück laufen lassen.
Sollte doch eigentlich gehen, oder ? :-
Hier das Beispiel-Skript (https://www.herber.de/mailing/Druckseiten_und_Anzahl_der_Ausdrucke_ueber_UserForm_festlegen.htm)
Sub DruckDialog()
Dim sTxt As String
Dim lFrom As Long, lTo As Long, lCounter As Integer
sTxt = InputBox("Von - bis:", , "30001-30005")
If sTxt = "" Then Exit Sub
If InStr(sTxt, "-") = False Then Exit Sub
If Not IsNumeric(Left(sTxt, 5)) Then Exit Sub
If Not IsNumeric(Right(sTxt, Len(sTxt) - InStr(sTxt, "-"))) _
Then Exit Sub
lFrom = Left(sTxt, 5)
lTo = Right(sTxt, Len(sTxt) - InStr(sTxt, "-"))
For lCounter = lFrom To lTo
With Worksheets("Tabelle1")
.Range("F7") = lCounter
.PrintPreview
End With
Next lCounter
End Sub
Wie muss ich die Zeile ".PrintPreview" ändern, dass das Skript mir die entsprechende Anzahl von Formularen direkt ohne Vorschau auf den Standarddrucker schickt?
Freue mich auf Eure Antwort und bin über hilfreiche Infos sehr dankbar :-)
Gruß uwe