Public Class frmPrint
    Property ds As DataSet = Nothing
    Property Druckart As String = "HostListe"
    Property DruckeZugangsdaten As Boolean = False

    Private Sub CmdPrint_Click(sender As Object, e As EventArgs) Handles CmdPrint.Click

        If ChkDHCPDrucken.Checked = False Then deleteDHCPHostsFromDS(ds)
        Dim dt As DataTable = Class1.OrderDataTableby(ds.Tables(0), "HOST ASC")

        Dim PrintAR As New frmPrintActiveReports
        PrintAR.DHCPAndrucken = ChkDHCPDrucken.Checked
        PrintAR.dt = dt
        PrintAR.DruckArt = Me.Druckart
        PrintAR.Show()
    End Sub

    Private Sub deleteDHCPHostsFromDS(ds As DataSet)

        For Each row As DataRow In ds.Tables(0).Select()
            If Not row.Item("DHCP") = "0" Then
                row.Delete()
            End If
        Next
        ds.Tables(0).AcceptChanges()
    End Sub

    Private Sub CheckedListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles rdbHostCheckListe.CheckedChanged, rdbHostListe.CheckedChanged
        'If rdbHostListe.Checked And Me.DruckeZugangsdaten = False Then Druckart = "HostListe"
        'If rdbHostListe.Checked And Me.DruckeZugangsdaten = True Then Druckart = "HostListeMitZugangsdaten"
        'If rdbHostCheckListe.Checked Then Druckart = "HostCheckListe"
        rptSelectinator()
    End Sub

    Private Function rptSelectinator()
        If rdbHostListe.Checked And Me.DruckeZugangsdaten = False Then Druckart = "HostListe" : lblZugangsdatenDruckWarnung.Visible = Me.DruckeZugangsdaten
        If rdbHostListe.Checked And Me.DruckeZugangsdaten = True Then Druckart = "HostListeMitZugangsdaten" : lblZugangsdatenDruckWarnung.Visible = Me.DruckeZugangsdaten
        If rdbHostCheckListe.Checked Then Druckart = "HostCheckListe" : lblZugangsdatenDruckWarnung.Visible = False

    End Function

    Private Sub frmPrint_Load(sender As Object, e As EventArgs) Handles Me.Load
        rptSelectinator()
        'If Me.DruckeZugangsdaten = True Then lblZugangsdatenDruckWarnung.Visible = True

    End Sub
End Class