If Datum <> rst!Datum Then
	Print #1, "----------------------------------------"
	Print #1, Datum; Tab(41 - Len(Format(siznos, "###0.00"))); Format(siznos, "###0.00")
	Print #1, "----------------------------------------"
	siznos = 0
	Datum = rst!Datum
End If