Druckserver spammen durch VBA ?
13.09.2005 09:03:24
Klaus
Ich brauche 250 A5 Zettel mit fortlaufenden Nummern (groß und gut lesbar, um Paletten in der Produktion zu markieren), daher habe mir gerade folgendes kleines Makro geschrieben:
Sub Makro1()
For x = 250 To 1 Step -1
ActiveSheet.Shapes("WordArt 1").Select
Selection.ShapeRange.TextEffect.Text = (x)
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next x
End Sub
funktioniert auch super, mein Drucker glüht. Allerdings hat mich zwei Minuten nach Makrostart unser Admin angerufen und ganz aufgelöst gefragt, was zur Hölle ich mit dem Druckserver angestellt hätte.
Drum mal in die Runde gefragt:
Gibt es für sowas auch elegantere Lösungen?
Gruß,
Klaus M.vdT.