Private Sub cmdExportieren_Click()
 
Dim Titel As String
Dim tabTitel As String
Dim Ext As String
Dim F As Integer
Dim Tabelle
 
Tabelle = DataEnvironment1.rsArchiv
Titel = "Filmliste - Stand: " & Date & " - Media-Manager (c) 2003 by Tim Rutte"
tabTitel = "Filmliste - Stand: " & Date
 
'HTML-Datei erzeugen
F = HTMLOpenFile(Pfad & "Filmliste - Stand " & Date & " - Media-Manager.html", _
  Ext, Titel, tabTitel, Page, nPages)
 
 
Print #F, "<TABLE WIDTH=100% CELLPADDING=1 CELLSPACING=1 BORDER=1>"
 
With DataEnvironment1.rsArchiv
    Print #F, "<TRBGCOLOR=#FFFFFF>"
 
    'Die Spaltenüberschriften
 
If ChkFilmtitel.Value = True Or OptAlle.Value = True Then
    'Titel
    Print #F, " <TH>";
    Print #F, .Fields(1).Name;
    Print #F, "</TH>"
End If
 
If ChkLänge.Value = True Or OptAlle.Value = True Then
    'Länge
    Print #F, " <TH>";
    Print #F, .Fields(2).Name;
    Print #F, "</TH>"
End If
 
If ChkGenre.Value = True Or OptAlle = True Then
    'Genre
    Print #F, " <TH>";
    Print #F, .Fields(5).Name;
    Print #F, "</TH>"
End If
 
If ChkDatenträgerformat.Value = True Or OptAlle = True Then
    'Datenträger
    Print #F, " <TH>";
    Print #F, "Format";
    Print #F, "</TH>"
End If
 
If ChkDatenträger_Anzahl.Value = True Or OptAlle = True Then
    'Datenträger-Anzahl
    Print #F, " <TH>";
    Print #F, .Fields(21).Name;
    Print #F, "</TH>"
End If
 
If ChkFSK.Value = True Or OptAlle = True Then
    'FSK
    Print #F, " <TH>";
    Print #F, .Fields(13).Name;
    Print #F, "</TH>"
End If
 
If ChkFilmbewertung.Value = True Or OptAlle = True Then
    'Filmbewertung
    Print #F, " <TH>";
    Print #F, "Filmbewertung";
    Print #F, "</TH>"
End If
 
If ChkQualitätsbewertung.Value = True Or OptAlle = True Then
    'Qualitätsbewertung
    Print #F, " <TH>";
    Print #F, "Qualitätsbewertung";
    Print #F, "</TH>"
End If
 
If ChkSoundbewertung.Value = True Or OptAlle = True Then
    'Soundbewertung
    Print #F, " <TH>";
    Print #F, "Soundbewertung";
    Print #F, "</TH>"
End If
 
    Print #F, "</TR>"
 
    'Die Spalten füllen
 
End With
 
 
Unload Me
 
End Sub