Predmet:Re: Matrični printeri (Epson LX-300) Uplatnica?
eve jas ke ti stavam eden primer nesto sto imam praveno vo vb6 no ne go dovrsiv neznam dali ke ti zavrsi rabota ,a ke stavam i edna procedura sto ja koristam za printeri na lpt port pa razgledaj mozebi nesto ke ti zavrsi rabota.
PreuzmiIzvorni kфd (Visual Basic):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
Prilozi:
Obrasci.rar
Preuzimanja:485
Velicina datoteke:15.16 KB