Microsoft Excel

Herbers Excel/VBA-Archiv

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

Makro Excel 97 /2003

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