Centar za edukaciju-BiH

iCentar → Racunari i oprema → Programirannje i baze podataka → Pascal/Delphi


Prosiri i skupi Opcije teme
Stranice (1):1
 Prikazi prvu neprocitanu poruku

#1 19.12.2013 14:34
harisco Van mreze
Clan
Registrovan od:12.06.2012
Postovi:3


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

Slicice prilozenih slika:
tip2.jpg
Tip datoteke:Informacije o tipu datoteke za:jpg jpg
Preuzimanja:741
Velicina datoteke:61.11 KB
Velicina slike: 1216 x 653 Pikseli

↑  ↓

#2 19.12.2013 16:16
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,854


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 kd (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 tipu datoteke za:rar  Obrasci.rar
Preuzimanja:485
Velicina datoteke:15.16 KB

↑  ↓

#3 19.12.2013 16:43
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


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 kd (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.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 3 puta. Posljednja izmjena 19.12.2013 16:55 od strane zxz. ↑  ↓

#4 20.12.2013 09:27
harisco Van mreze
Clan
Registrovan od:12.06.2012
Postovi:3


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
↑  ↓

#5 20.12.2013 09:32
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


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:
Informacije o tipu datoteke za:zip  epson_Fx_Kodovi.zip
Preuzimanja:535
Velicina datoteke:6.70 KB

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#6 20.12.2013 10:50
harisco Van mreze
Clan
Registrovan od:12.06.2012
Postovi:3


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
↑  ↓

#7 20.12.2013 11:03
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


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.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#8 20.12.2013 14:48
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,854


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
↑  ↓

Stranice (1):1

Srodne teme

Ko je online?

Aktivni clanovi:
nema clanova


Kontakt
Sva vremena su GMT +01:00. Trenutno vrijeme: 12: 58 am.