Ausdruck klappt/klappt nicht!?
Ing.Grohn
in einer Tabelle wird eine Druckroutine aufgerufen und die Anzahl der Exemplare abgefragt:
Anzahl = Val(.TextBox1.Value)
If .CheckBox1.Value = True Then
With Sheets("Rechnung")
.Range("D15:D18").Interior.ColorIndex = 36
.Range("F17:G17").Interior.ColorIndex = 36
End With
ActiveWindow.SelectedSheets.PrintOut _
From:=1, _
To:=1, _
Copies:=Anzahl, _
Collate:=True
Sheets("Rechnung").Select
End If
Hat bisher immer funktioniert. Auf einem neuen Rechner mit Windows 7 funktioniert der Ausdruck nicht korrekt: es wird lediglich 1 Exemplar gedruckt (ich hab das ganze vor dem ActiveWindow.slectedSheets.PrintOut und nach dem PrintOut mit Msgbox Anzahl überpruft. Die Zahl stimmt!!
Auf meinem Rechner funktioniert das auch korrekt.
Wo muß ich suchen?
Für eine Hilfe (am 1. Mai!!?) recht herzlich bedankt!!
Mit freundlichen Grüßen
Allbrecht