AW: Anzahl Kopien für Ausdruck...
14.09.2012 16:34:05
fcs
Hallo Ina,
wenn du nicht über das Menü Datei--Drucken gehen willst, dann kannst du folgendes Makro anwenden.
Gruß
Franz
Sub PrintCopies()
Dim varAnzahl As Variant
Eingabe:
varAnzahl = Application.InputBox(prompt:="Anzahl Druckkopien (1 bis 10)?", _
Title:="Drucken", Default:=1, Type:=1)
Select Case varAnzahl
Case 0 'Abgebrochen
Case 1 To 10
ActiveWindow.SelectedSheets.PrintOut copies:=varAnzahl
Case Else
MsgBox "unzulässige Eingabe, Anzahl Kopien ist begrenzt auf 1 bis 10", _
vbInformation + vbOKOnly, "Drucken"
GoTo Eingabe
End Select
End Sub