Ausdruck
29.12.2005 16:59:44
Hans
Man kann zwischen 1 und 4 ausdrücken wählen.
Nur man keine 0 angeben so das er keine druckt , dann kommt Laufzeitfehler 1004.
Wie kann ich es machen das man auch keine ausdrucken kann ...
Sub Dymo()
Windows("DATEN.xls").Activate
Sheets("Auftragsnummer").Select
anzahl = InputBox("Wieviele Auftragsnummern ?", "Druck", 1)
If anzahl <= 4 Then ActiveWindow.SelectedSheets.PrintOut Copies:=anzahl, ActivePrinter:= _
"Dymo", Collate:=True
End Sub
Anzeige