Function LX300()
   Dim rs As DAO.Recordset
   Dim txt As String
   Dim Naziv As String
   Dim Danok As String
   Dim Cena As String
   Dim DDV As String
   Dim Lin As String
   Dim Kolicina As String
   Dim Rb As Integer
Set rs = Forms![frmKasa]![frmKasa_Stavkai_Subform].Form.RecordsetClone
 If rs.RecordCount <= 0 Then
   MsgBox "Бројот на ставките во сметката е помал или енаков на 0! ВадеЕ“ето на Сметка не е дозволено "
   Exit Function
 End If
 
 '**************************************************************************
  Open "Lpt1" For Output As #1               'Otvori Port(LPT1)
  Print #1, Chr(27) & "@"                    'Inicijalizirajne na printerot
  Print #1, Chr(27) & "A" & Chr(11)
  Print #1, Chr(27) & "E"                    'Podesi Font Bold
'**************************************************************************
txt = "                         " & Format(Date, "dd.mm.yyyy")
Print #1, txt
txt = "                         " & Time
Print #1, txt
txt = ""
Print #1, txt
txt = "              SMETKA            "
Print #1, txt
txt = " BROJ:" & Forms![frmKasa]![Smetka_Broj]
Print #1, txt
txt = ""
Print #1, txt
txt = "--------------------------------------"
Print #1, txt
txt = "Rb  Artikal  Koli.    Cena     Vkupno "
Print #1, txt
txt = "--------------------------------------"
Print #1, txt
   rs.MoveFirst
   Do While Not rs.EOF
   Rb = Rb + 1
   Naziv = Latinica(Left(DLookup("Artikal_Ime", "tblArtikli", "ID_Artikal=" & rs.Fields(2)), 20)) 'Artikal podatok
   Danok = DLookup("Artikal_DDV", "tblArtikli", "ID_Artikal=" & rs.Fields(2))                     'Danocna stapka
   Cena = Format(rs.Fields(5), "0.00")                                                            'Cena podatok
   Kolicina = Format(rs.Fields(4), "0.00")                                                        'Kolicina podatok
   Lin = "                                              "
txt = Rb & "." & Naziv
Print #1, txt
Vkupno = Cena * Kolicina
txt = "    " & DesnoRavni(Kolicina) & " " & DesnoRavni(Cena) & " " & DesnoRavni(Format(Vkupno, "0.00"))
Print #1, txt
If IsNull(rs.Fields(1)) Or rs.Fields(1) = "" Then Call AzurirajneStavkiSmetka(rs.Fields("ID_Stavka"))
rs.MoveNext
Loop

 txt = "--------------------------------------"
 Print #1, txt
 txt = "                   Vkupno : " & DesnoRavni(Forms![frmKasa]![txtVkupno])
 Print #1, txt
 txt = "--------------------------------------"
 Print #1, txt
 txt = " Vi blagodarime na posetata"
 Print #1, txt
 Print #1, Chr(10)
 Print #1, Chr(10)
 Print #1, Chr(10)
 Print #1, Chr(10)
 Print #1, Chr(27) & "F"
 Close #1
 Rb = 0
 Call Nova
End Function