Ausdruck

Forumthread: Ausdruck
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Ausdruck

Ausdruck

29.12.2005 17:59:44

Hans

Habe folgendes Marko welches mir Auftragsnummer auf meinem Dymo ausdruckt.
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

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Ausdruck

29.12.2005 18:01:53

Reinhard
AW: Ausdruck

29.12.2005 18:15:45

Hans

AW: Ausdruck

29.12.2005 18:01:53

Reinhard

Hi Hans,


Sub Dymo()
Windows("DATEN.xls").Activate
Sheets("Auftragsnummer").Select
anzahl = InputBox("Wieviele Auftragsnummern ?", "Druck", 1)
If anzahl <= 4 and anzahl>0 Then ActiveWindow.SelectedSheets.PrintOut Copies:=anzahl, ActivePrinter:= _
"Dymo", Collate:=True
End Sub

Gruß
Reinhard
ps:Das Forum lebt auch von Rückmeldungen.

AW: Ausdruck

29.12.2005 18:15:45

Hans

WOW - Das geht aber schnell hier.
Danke Reinhard funktioniert wunderbar.