von euroandi » Sa, 27.01.2007 18:40
Hallo Karo,
danke für Deine Antwort, was mir noch fehlt ist eine Schleife.
Ich habe es in Excel hinbekommen
Code: Alles auswählen
a = Cells(1, 1).Value
For i = 1 To 100
If a < i Then
Else
ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i, Copies:=1, Collate:=True
End If
Next i
Gruß Andreas
Hallo Karo,
danke für Deine Antwort, was mir noch fehlt ist eine Schleife.
Ich habe es in Excel hinbekommen
[code]
a = Cells(1, 1).Value
For i = 1 To 100
If a < i Then
Else
ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i, Copies:=1, Collate:=True
End If
Next i
[/code]
Gruß Andreas