Prikazi cijelu temu 19.12.2013 17:16
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


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):
  1. Function LX300()
  2.    Dim rs As DAO.Recordset
  3.    Dim txt As String
  4.    Dim Naziv As String
  5.    Dim Danok As String
  6.    Dim Cena As String
  7.    Dim DDV As String
  8.    Dim Lin As String
  9.    Dim Kolicina As String
  10.    Dim Rb As Integer
  11. Set rs = Forms![frmKasa]![frmKasa_Stavkai_Subform].Form.RecordsetClone
  12.  If rs.RecordCount <= 0 Then
  13.    MsgBox "Бројот на ставките во сметката е помал или енаков на 0! ВадеЕ“ето на Сметка не е дозволено "
  14.    Exit Function
  15.  End If
  16.  
  17.  '**************************************************************************
  18.  Open "Lpt1" For Output As #1               'Otvori Port(LPT1)
  19.  Print #1, Chr(27) & "@"                    'Inicijalizirajne na printerot
  20.  Print #1, Chr(27) & "A" & Chr(11)
  21.   Print #1, Chr(27) & "E"                    'Podesi Font Bold
  22. '**************************************************************************
  23. txt = "                         " & Format(Date, "dd.mm.yyyy")
  24. Print #1, txt
  25. txt = "                         " & Time
  26. Print #1, txt
  27. txt = ""
  28. Print #1, txt
  29. txt = "              SMETKA            "
  30. Print #1, txt
  31. txt = " BROJ:" & Forms![frmKasa]![Smetka_Broj]
  32. Print #1, txt
  33. txt = ""
  34. Print #1, txt
  35. txt = "--------------------------------------"
  36. Print #1, txt
  37. txt = "Rb  Artikal  Koli.    Cena     Vkupno "
  38. Print #1, txt
  39. txt = "--------------------------------------"
  40. Print #1, txt
  41.    rs.MoveFirst
  42.    Do While Not rs.EOF
  43.    Rb = Rb + 1
  44.    Naziv = Latinica(Left(DLookup("Artikal_Ime", "tblArtikli", "ID_Artikal=" & rs.Fields(2)), 20)) 'Artikal podatok
  45.   Danok = DLookup("Artikal_DDV", "tblArtikli", "ID_Artikal=" & rs.Fields(2))                     'Danocna stapka
  46.   Cena = Format(rs.Fields(5), "0.00")                                                            'Cena podatok
  47.   Kolicina = Format(rs.Fields(4), "0.00")                                                        'Kolicina podatok
  48.   Lin = "                                              "
  49. txt = Rb & "." & Naziv
  50. Print #1, txt
  51. Vkupno = Cena * Kolicina
  52. txt = "    " & DesnoRavni(Kolicina) & " " & DesnoRavni(Cena) & " " & DesnoRavni(Format(Vkupno, "0.00"))
  53. Print #1, txt
  54. If IsNull(rs.Fields(1)) Or rs.Fields(1) = "" Then Call AzurirajneStavkiSmetka(rs.Fields("ID_Stavka"))
  55. rs.MoveNext
  56. Loop
  57.  
  58.  txt = "--------------------------------------"
  59.  Print #1, txt
  60.  txt = "                   Vkupno : " & DesnoRavni(Forms![frmKasa]![txtVkupno])
  61.  Print #1, txt
  62.  txt = "--------------------------------------"
  63.  Print #1, txt
  64.  txt = " Vi blagodarime na posetata"
  65.  Print #1, txt
  66.  Print #1, Chr(10)
  67.  Print #1, Chr(10)
  68.  Print #1, Chr(10)
  69.  Print #1, Chr(10)
  70.  Print #1, Chr(27) & "F"
  71.  Close #1
  72.  Rb = 0
  73.  Call Nova
  74. End Function


Prilozi:
Obrasci.rar
Preuzimanja:485
Velicina datoteke:15.16 KB