Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190
iCentar » Racunari i oprema » Programirannje i baze podataka » Pascal/Delphi » Matrični printeri (Epson LX-300) Uplatnica?
harisco 19.12.2013 14:34
Predmet:Matrični printeri (Epson LX-300) Uplatnica?

Poštovani,

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 pokaže, 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 doÅ¡la.

Hvala
Prilozi:
tip2.jpg (Velicina datoteke:61.11 KB)

Gjoreski 19.12.2013 16:16
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 (Velicina datoteke:15.16 KB)

zxz 19.12.2013 16:43
Predmet: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:

PreuzmiIzvorni kôd (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 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.

zxz 20.12.2013 09:32
Predmet: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:
epson_Fx_Kodovi.zip (Velicina datoteke:6.70 KB)

harisco 20.12.2013 10:50
Predmet:Re: Matrični printeri (Epson LX-300) Uplatnica?

Hvala još jednom, ako si u Sarajevu možemo na kafu, možda oko Delphi-ja razmijenimo kakvih iskustava.

pozdrav

zxz 20.12.2013 11:03
Predmet: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.

Gjoreski 20.12.2013 14:48
Predmet: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

harisco 20.12.2013 09:27
Predmet: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