Dim DruckBeginn As Integer 
Dim DruckEnde As Integer 
Dim KopienAnzahl As Integer 
Dim I As Integer 
Dim X As Integer 
 
X = 0 
 
On Error GoTo AbbrechenClick              
 
 
Application.Dialogs(8).Show              
 
 
DruckBeginn = ActiveSheet.FromPage 
DruckEnde = ActiveSheet.ToPage 
KopienAnzahl = ActiveSheet.Copies 
 
For I = 1 To KopienAnzahl                
Next I

Application.Dialogs(8).Preview = False 
'und 
Application.Dialogs(8).Preview.Enabled = False