Sub
Drucken()
Range(
"G1"
).
Select
Dim
Rng
As
Range, Zelle, TB
Set
TB = Sheets(
"Druckknopf"
)
For
Each
Zelle
In
Rng
TB.Range(
"G1"
) = Zelle.Value
-------------> Range(
"A1:F8"
).
Select
<---------
-------------> Selection.PrintOut Copies:=1, Collate:=
True
<---------
Next
End
Sub