public frmAuftrag as frmAuftrag
 
Private Sub printbut_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles printbut.Click
        Dim objCurChild As Form = ActiveMdiChild
 
        If (Not objCurChild Is Nothing) Then
 
            frmAuftrag.PrintDialog1.ShowDialog()
 
        End If
    End Sub