Bosna i Hercegovina



harisco Offline
Clan
Registrovan/a od: 12.06.2012-09:05
Komentari: 3


Subject: Matrični printeri (Epson LX-300) Uplatnica?
Potovani,

Konkretno me interesuje za Delphi 7 (PASCAL). Kako koristiti ESC komande na ove printere, konkretno na EPSON LX-300. Ako je ko radio da mi pokae, bio bih mu zahvalan. Radi se konkretno o perforiranim uplatnicama gdje su već iscrtana polja gdje samo brojeve treba upisati? Ako ste radili i u drugom programskom jeziku pomoć bi dobro dola.

Hvala

Ikona prilozene slike:
tip2.jpg
Tip fajla: Informacije o fajlu: jpg jpg
Preuzimanja: 28
Veličina: 61.11 KB
Veličina slike: 1216 x 653 Pixels

↑  ↓

Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,167


Subject: 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.

DownloadIzvorni kod (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:
Informacije o fajlu: rar  Obrasci.rar
Preuzimanja: 24
Veličina: 15.16 KB

↑  ↓

zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,296


Subject: Re: Matrični printeri (Epson LX-300) Uplatnica?
Jel tebi trebaju u stvari kodovi za printer stampu kao sto je gore Gjoreski postavio primjer.
Primjer:

DownloadIzvorni kod (Delphi):
  1. Var
  2.    fajl: file;
  3.   Podesenje, Tekst, Reset: string;
  4.  begin
  5.       Podesenje:=         #27'@' +     // inicijalizacija printera
  6.                           #27#48 +     // prored
  7.                           #27#80 +     // 10cpi
  8.                           #27#108#0 +  // Poravnanje lijevo
  9.                           #27#67#0#9; // Velicina stranice u incima
  10.       Tekst:= 'neki tekst koji treba da se stampa';
  11.       Reset:= #27'@';
  12.  
  13.       AssignFile(f, 'LPT1:');
  14.       try
  15.         Rewrite(fajl);
  16.         Write(fajl, podesenje+ Tekst + Reset);
  17.       finally
  18.         CloseFile(fajl);
  19.       end;
  20.  end;

Za popunjavanje one uplatnice to ce biti muke po mati i sa kodovima.
Mozda je boje bilo preko kristal reporta.
tamo je to lakse nastimati nego sa kodovima.
E sad do tebe je kako ces se odluciti.
Pretpostavljam da imas jos neke stampe sem ovog pa da korsitis kristal report.

Poslije cemo ovo prebaciti u pascal forum.
Pozdrav
Ovaj komentar je mijenjan 3 puta. zadnja izmjena 19.12.2013-16:55 od strane zxz. ↑  ↓

harisco Offline
Clan
Registrovan/a od: 12.06.2012-09:05
Komentari: 3


Subject: Re: Matrični printeri (Epson LX-300) Uplatnica?
E, lavovi ste, bolji ste od mnogih stranih foruma. Jo jedno pitanjce kako ide PageBreak da bi naredne uplatnice na perforiranom papiru pravilno printao?

Hvala
↑  ↓

zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,296


Subject: Re: Matrični printeri (Epson LX-300) Uplatnica?
Evo ti svi kodovi, pa ti sebi nastimaj kako zelis.
Pripremi dosta uplatnica za probu hehehe.

Prilozi:
Informacije o fajlu: zip  epson_Fx_Kodovi.zip
Preuzimanja: 33
Veličina: 6.70 KB


Pozdrav
↑  ↓

harisco Offline
Clan
Registrovan/a od: 12.06.2012-09:05
Komentari: 3


Subject: Re: Matrični printeri (Epson LX-300) Uplatnica?
Hvala jo jednom, ako si u Sarajevu moemo na kafu, moda oko Delphi-ja razmijenimo kakvih iskustava.

pozdrav
↑  ↓

zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,296


Subject: Re: Matrični printeri (Epson LX-300) Uplatnica?
Hehe nisam.
Imas u profilu moje podatke, TZ.
Ne radim dugo u paskalu nego vb malo c++ i malo php a ostalo samo kad moram pa nabauljam.
Zadnja verzija na kojoj sam radio je turbo paskal6.
Pozdrav
↑  ↓

Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,167


Ocjena: Ocjena:100 Subject: Re: Matrični printeri (Epson LX-300) Uplatnica?
Jas sega ne razbrav koj cod ke go koristis dali onaj vo Delphi od zxz ili onaj vo VB odnosno VBA sto go staviv jas?
Inaku jas sto go pravev primerot e vo VB e za Epson printer koj e namenet za potpolnuvajne na vakov tip na uplatnici no ne bev vo moznost da go nabavam toj printer i proektot zastana bidejki na drugi printeri e mnogu tesko da gi podesis ovie raboti.
Kako sto rece ZXZ pripremi mnogu uplatnici i so sreka neka e.

pozdrav
↑  ↓

 Podijeli  Dodaj odgovor Stranice (1): 1


All times are GMT +01:00. Current time: 26.05.2017-08:27.