VBA Druck + Anzahl Exemplare + autom. Nummerierung

Sub WerteDrucken() With ActiveSheet.PageSetup .Zoom = False .PrintArea = "$A$6:$L$25" .Orientation = xlPortrait .Zoom = 75 .CenterHeader = "&""Comic Sans MS""&16""&I" & "Übersicht aller Werte""" End With Application.Dialogs(xlDialogPrint).Show ActiveSheet.PageSetup.PrintArea = False End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub WerteDrucken() With ActiveSheet.PageSetup .Zoom = False .PrintArea = "$A$6:$L$25" .Orientation = xlPortrait .Zoom = 75 .CenterHeader = "&""Comic Sans MS""&16""&I" & "Übersicht aller Werte""" End With Dim Anzahl As Integer Anzahl = InputBox(Chr(13) & Chr(13) & "Bitte Anzahl eintragen" & Chr(13) & "", "Druckt die _ angegebene Anzahl") If Anzahl 5 Then MsgBox "Es dürfen nur 1 - 5 Exemplare gedruckt werden" Exit Sub Else ActiveWindow.SelectedSheets.PrintOut Copies:=Anzahl 'Application.Dialogs(xlDialogPrint).Show ActiveSheet.PageSetup.PrintArea = False End If End Sub

Hi,
irgendwie funktioniert es nicht ganz. Zunächst war ein Syntax Fehler bei der Zeile
Anzahl = InputBox(Chr(13) & Chr(13) & "Bitte Anzahl eintragen" & Chr(13) & "", "Druckt die _
angegebene Anzahl")
drin, daher habe ich es wie folgt geändert:
Anzahl = InputBox(Chr(13) & Chr(13) & "Bitte Anzahl eintragen" & Chr(13) & "", "Druckt die angegebene Anzahl")
Dadurch wird aber die Ausdrucknummer aufgeführt, und der Druckauftrag geht immer an meinen Standardrucker. Und das obwohl ich den von dir ausgeblendeten Teil wieder herangezogen habe.
Application.Dialogs(xlDialogPrint).Show
Dadurch erscheint zwar die Drucker Auswahl, aber im Hintergrund wurde offensichtlich dennoch ein Druckauftrag an meinen Drucker verschickt, verstehe nur nicht wieso?

Das mit dem Unterstrich ist ein automatisch erzeugter Zeilenumbruch hier im Forum.
Der Druckauftrag wird durch .PrintOut verschickt. Du wolltest doch drucken, oder? Dass du auch einen Drucker auswählen wolltest und nicht nur die Anzahl, hast du nicht gesagt. Standarddrucker ist normal.
Versuch das, nicht getestet:

Sub WerteDrucken()
With ActiveSheet.PageSetup
.Zoom = False
.PrintArea = "$A$6:$L$25"
.Orientation = xlPortrait
.Zoom = 75
.CenterHeader = "&""Comic Sans MS""&16""&I" & "Übersicht aller Werte"""
End With
Dim Anzahl As Integer
Anzahl = InputBox(Chr(13) & Chr(13) & "Bitte Anzahl eintragen" & Chr(13) & "", "Druckt die  _
angegebene Anzahl")
If Anzahl  5 Then
MsgBox "Es dürfen nur 1 - 5 Exemplare gedruckt werden"
Exit Sub
Else
Dim Standarddrucker As Variant
Dim Meindrucker As String
Standarddrucker = ActivePrinter
Meindrucker = "Hier den Namen des Druckers eintragen" ' das sieht dann irgendwie so aus: _
"\\drucker-d-03\hp1625 auf Ne02:"
ActivePrinter = Meindrucker
ActiveWindow.SelectedSheets.PrintOut Copies:=Anzahl
'Application.Dialogs(xlDialogPrint).Show
ActiveSheet.PageSetup.PrintArea = False
ActivePrinter = Standarddrucker
End If
End Sub

Sub Drucken_Nummerieren() With ActiveSheet.PageSetup .Zoom = False .PrintArea = "$A$6:$L$25" .Orientation = xlPortrait .Zoom = 75 .CenterHeader = "&""Comic Sans MS""&16""&I" & "Übersicht aller Werte""" End With Dim Anzahl As Integer, i As Integer Anzahl = InputBox(Chr(13) & Chr(13) & "Bitte Anzahl eintragen" & Chr(13) & "", "Druckt die _ angegebene Anzahl") If Anzahl 5 Then MsgBox "Es dürfen nur 1 - 5 Exemplare gedruckt werden" Exit Sub Else i = 1 Do While i

Sub Drucken_Nummerieren() With ActiveSheet.PageSetup .Zoom = False .PrintArea = "$A$6:$L$25" .Orientation = xlPortrait .Zoom = 75 .CenterHeader = "&""Comic Sans MS""&16""&I" & "Übersicht aller Werte""" End With Dim Anzahl As Variant, i As Integer Anzahl = InputBox("" & Chr(13) & Chr(13) & "Bitte Anzahl eintragen" & Chr(13) & "", "Druckt die _ angegebene Anzahl") If StrPtr(Anzahl) = 0 Then Exit Sub End If Anzahl = Round(Anzahl, 0) If Anzahl 5 Then MsgBox "Es dürfen nur 1 - 5 Exemplare gedruckt werden" Exit Sub Else i = 1 Do While i

Beliebteste Forumthreads (12 Monate)

VBA Druck + Anzahl Exemplare + autom. Nummerierung

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Druck + Anzahl Exemplare + autom. Nummerierung

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread