Bosna i Hercegovina



#1 22.02.2014-22:38
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 8,824


Subject: Matricni printer
Kodovi za podesavanje stampe za matricni printer.
DownloadIzvorni kod (Text):
  1. Private Sub Print_Click()
  2. strDebSlova = Chr(27) & Chr(33) & Chr(32)
  3.  strObSlova = Chr(27) & Chr(33) & Chr(1)
  4. veliko = Chr(27) & "W" + Chr(1) + Chr(27) & "w" + Chr(1)
  5. malo = Chr(27) & "W" + Chr(0) + Chr(27) & "w" + Chr(0)
  6. masno = Chr(27) & "E"
  7. nemasno = Chr(27) & "F"
  8. duplo = Chr(27) & "G"
  9. normalno = Chr(27) & "H"
  10. Dim IznosStr
  11. IznosStr = Iznos.Value
  12. If IsNull(UplatioJe.Value) = True Then UplatioJe.Value = " "
  13. If IsNull(UplatioJe1.Value) = True Then UplatioJe1.Value = " "
  14. If IsNull(RacunPos.Value) = True Then RacunPos.Value = " "
  15. If IsNull(RacunPrim.Value) = True Then RacunPrim.Value = " "
  16. If IsNull(Svrha.Value) = True Then Svrha.Value = " "
  17. If IsNull(Svrha1.Value) = True Then Svrha1.Value = " "
  18. If IsNull(IznosStr) = True Then IznosStr = " "
  19. If IsNull(Primalac.Value) = True Then Primalac.Value = " "
  20. If IsNull(Primalac1.Value) = True Then Primalac1.Value = " "
  21. If IsNull(BrojObav.Value) = True Then BrojObav.Value = " "
  22. If IsNull(Mjesto.Value) = True Then Mjesto.Value = " "
  23. If IsNull(Datum.Value) = True Then Datum.Value = " "
  24. If IsNull(VrstaPrih.Value) = True Then VrstaPrih.Value = " "
  25. If IsNull(Opcina.Value) = True Then Opcina.Value = " "
  26. If IsNull(VU.Value) = True Then VU.Value = " "
  27. If IsNull(BO.Value) = True Then BO.Value = " "
  28. If IsNull(PozNaBroj.Value) = True Then PozNaBroj.Value = " "
  29.  
  30. Open PORT For Output As #1
  31. Print #1, strObSlova;
  32. Print #1, ""
  33. Print #1, Tab(3); [UplatioJe]
  34. Print #1, Tab(3); [UplatioJe1]; Tab(51); [RacunPos]
  35. Print #1, ""
  36. Print #1, Tab(3); [Svrha]; Tab(51); [RacunPrim]
  37. Print #1, Tab(3); [Svrha1]
  38. Print #1, Tab(45); duplo; "="; Format([IznosStr], "###0.00"); normalno
  39. Print #1, Tab(3); [Primalac]
  40. Print #1, Tab(5); [Primalac1]
  41. Print #1, Tab(48); [BrojObav]; Tab(73); [VU]
  42. Print #1, ""
  43. Print #1, Tab(7); [Mjesto]; Tab(19); Format([Datum], "DD. MM. YYYY"); Tab(64); Format([Od], "00   00   00")
  44. Print #1, Tab(47); [VrstaPrih]; "            "; Format([Do], "00   00   00")
  45. Print #1, ""
  46. Print #1, ""
  47. Print #1, Tab(48); [Opcina]; Tab(65); masno; [BO]; nemasno
  48. Print #1, ""
  49. Print #1, Tab(46); [PozNaBroj]
  50. Print #1, ""
  51. Print #1, ""
  52. Print #1, ""
  53. Print #1, ""
  54. Print #1, ""
  55. Print #1, ""
  56. Close #1
  57. End Sub

Pozdrav
↑  ↓

Stranice (1): 1


All times are GMT +01:00. Current time: 22.01.2017-02:37.