Public Sub DruckenDialog()
Dim Anz As Integer
Dim m As Integer
On Error Resume Next
 
<pre><code>frmhaupt.CommonDialog1.CancelError = True
frmhaupt.CommonDialog1.ShowPrinter ' Dialog öffnen
If Err.Number = 0 Then 
     Anz = frmhaupt.CommonDialog1.Copies ' Anzahl der Kopien zurück geben
 
    For m = 1 To Anz
       'Opening Workbook
        NewPro.Workbooks.Open Wertedatei
        NewPro.ActiveWorkbook.PrintOut
        'Closing workbook
        NewPro.ActiveWorkbook.Close Wertedatei
    Next m
End If
End Sub