'definitionen
Dim IniFile As String
Dim StartPath As String
Dim AdressFile As String
Dim ret As Long
 
 
 
 
 
 
 
 
 
 
 
Private Sub Command3_Click()
 
'erstellen für den dsigner
 
Dim sfile As String
sfile = StartPath + "Donnerstag 1 essen"
 
 
ret = Me.ll.LlDefineVariableExt("Datum von", Me.DTPicker1.Value, LL_TEXT)
ret = Me.ll.LlDefineVariableExt("Datum bis", Me.DTPicker2.Value, LL_TEXT)
 
 
ret = Me.ll.LlDefineVariableExt("Montag", Me.Text1(0), LL_TEXT)
ret = Me.ll.LlDefineVariableExt("Dienstag", Me.Text1(1), LL_TEXT)
'ret = Me.ll.LlDefineVariableExt("Dienstag2", Me.Text1(2), LL_TEXT)
ret = Me.ll.LlDefineVariableExt("Mittwoch1", Me.Text1(3), LL_TEXT)
ret = Me.ll.LlDefineVariableExt("Mittwoch2", Me.Text1(4), LL_TEXT)
ret = Me.ll.LlDefineVariableExt("Donnerstag1", Me.Text1(5), LL_TEXT)
ret = Me.ll.LlDefineVariableExt("Donnerstag2", Me.Text1(6), LL_TEXT)
ret = Me.ll.LlDefineVariableExt("Freitag1", Me.Text1(7), LL_TEXT)
ret = Me.ll.LlDefineVariableExt("Freitag2", Me.Text1(8), LL_TEXT)
ret = Me.ll.LlDefineVariableExt("Samstag", Me.Text1(9), LL_TEXT)
ret = Me.ll.LlDefineVariableExt("Sonntag", Me.Text1(10), LL_TEXT)
 
 
ret = Me.ll.LlDefineVariableExt("Preis Montag", Me.Text2(0), LL_TEXT)
ret = Me.ll.LlDefineVariableExt("Preis Dienstag", Me.Text2(1), LL_TEXT)
ret = Me.ll.LlDefineVariableExt("Preis Mittwoch1", Me.Text2(3), LL_TEXT)
ret = Me.ll.LlDefineVariableExt("Preis Mittwoch2", Me.Text2(4), LL_TEXT)
ret = Me.ll.LlDefineVariableExt("Preis Donnerstag1", Me.Text2(5), LL_TEXT)
ret = Me.ll.LlDefineVariableExt("Preis Donnerstag2", Me.Text2(6), LL_TEXT)
ret = Me.ll.LlDefineVariableExt("Preis Freitag1", Me.Text2(7), LL_TEXT)
ret = Me.ll.LlDefineVariableExt("Preis Freitag2", Me.Text2(8), LL_TEXT)
ret = Me.ll.LlDefineVariableExt("Preis Samstag", Me.Text2(9), LL_TEXT)
ret = Me.ll.LlDefineVariableExt("Preis Sontag", Me.Text2(10), LL_TEXT)
 
'designer starten
 
 
ret = ll.LlDefineLayout(Form1.hWnd, "List", LL_PROJECT_LIST, sfile)
 
 
 
End Sub
 
 
Private Sub Command5_Click()
Dim a As String
Dim b As String
 
a = Me.Text1(6).Text
If a = "" Then
b = StartPath + "Donnerstag 1 essen.lst"
Else
b = StartPath + "Donnerstag 2 essen.lst"
End If
 
'Vorschau anzeigen
 
   ret = ll.Print(0, LL_PROJECT_LIST, b, 1, LL_PRINT_PREVIEW, _
            LL_BOXTYPE_NORMALWAIT, Form1.hWnd, "Print RTF-page to preview", _
            True, Environ$("temp"))
 
 
'hab auch schon b= nur dateiname versucht
 
 
End Sub