Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
Screenshot zu InputBox	InputBox-Seite mit Beispielarbeitsmappe aufrufen

Makro Excel 97 /2003

• Makro Excel 97 /2003 von pia vom 26.08.2004 16:00:40
• AW: Makro Excel 97 /2003 - von GerdZ am 26.08.2004 16:35:08
  • AW: Makro Excel 97 /2003 - von Pia am 26.08.2004 16:58:50

Betrifft: Makro Excel 97 /2003 von: pia
Geschrieben am: 26.08.2004 16:00:40

Hallo zusammen

Untenstehendes Makro funktioniert mit Excel Version 97 einwandfrei.
Mit Excel Version 2003 werden aber alle Druckaufträge einzeln an den Drucker gesandt. Wo liegt das Problem? Weiss jemand die Lösung damit nicht jeder Auftrag einzeln an den Drucker gesendet wird?

Dim n%
ActiveCell.Select
n = InputBox("Menge eingeben, dann Enter-Taste:")
ActiveWindow.SelectedSheets.PrintOut Copies:=n
End Sub

Gruss und Danke im voraus

Pia

Betrifft: AW: Makro Excel 97 /2003 von: GerdZ
Geschrieben am: 26.08.2004 16:35:08

Hallo Pia,

versuche es mal mit:
ActiveWindow.SelectedSheets.PrintOut Copies:=n, Collate:=False

Gruß
Gerd




Betrifft: AW: Makro Excel 97 /2003 von: Pia
Geschrieben am: 26.08.2004 16:58:50

danke es funktioniert bestens.

Pia