On Error Resume Next
With CommonDialog1
  .CancelError = True
  ...
  .Flags = cdlPDReturnDC + cdlPDNoPageNums 
  If druckfräsen.SelLength = 0 Then 
    .Flags = .Flags + cdlPDAllPages 
  Else 
    .Flags = .Flags + cdlPDSelection 
  End If 
  .ShowPrinter 
 
  If Err = 0 Then
    Printer.Print "" 
    druckfräsen.SelPrint .hDC
    Printer.EndDoc
  End If
End WIth
On Error Goto 0