[es] - Stamoanje račna na POS printer kroz COD !

Air Live
Srbija

Član broj: 162278
Poruke: 410
*.tz2.dlp375.bih.net.ba.

Profil

Stamoanje račna na POS printer kroz COD !

^{22.01.2008. u 14:33 - pre 197 meseci}

Kao sto Gtsbi rece da postavim temu pa evo ja je postavio !
Kako iz ovog primera stampati kroz COD na pos Printer a ne preko REPORT-a

Znaci sve ovo isto ali preko COD-a !

Pozdrav !

Prikačeni fajlovi

racuni.rar - 18.65k

Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
*.bilokalnik.hr.

+8 Profil

Re: Stamoanje račna na POS printer kroz COD !

^{23.01.2008. u 07:17 - pre 197 meseci}

Možeš i direktno na lpt1: port , kao što smo nekad u clipperu

evo ti dio koda pa da vidiš

veliko = Chr(27) & "W" + Chr(1) + Chr(27) & "w" + Chr(1)
malo = Chr(27) & "W" + Chr(0) + Chr(27) & "w" + Chr(0)
masno = Chr(27) & "E"
nemasno = Chr(27) & "F"
duplo = Chr(27) & "G"
normalno = Chr(27) & "H"

Open "lpt1:" For Output As #1

' R1 racun za stampanje
Print #1, masno + veliko + "BILOKALNIK-IGMA d.o.o. R1" + malo + nemasno
Print #1, "CIGLANA 10 "
Print #1, "Radna jedinica :" + masno + duplo + "[LJUNKARA BOTOVO" + normalno + nemasno
Print #1, "48 000 KOPRIVNICA"
Print #1, "Telefon: 048/831-554"
Print #1, "Mati~ni broj: 3697916"
Print #1, ""
Print #1, " Ra~un broj: " + masno + veliko + rek1.Fields("Br_dokum") + malo + nemasno
Print #1, ""
Print #1, masno + duplo + "Kupac : " + rek1.Fields("Otpreme_naziv") + normalno + nemasno
Print #1, "Datum ra~una : " & rek1.Fields("Dat_dokum") & " Vrijeme vaganja : " & rek1.Fields("time_vaga")
Print #1, "Vozilo : " + rek1.Fields("reg_oznaka")
Print #1, "========================================================================"

Odgovor na temu

DarioBH
Bosna i Hercegovina

Član broj: 86881
Poruke: 453
*.PPPoE-3759.sa.bih.net.ba.

+1 Profil

Re: Stamoanje račna na POS printer kroz COD !

^{23.01.2008. u 10:26 - pre 197 meseci}

Tvrtko jedno pitanje
Kako na taj nacin odstampati u istom redu lijevo poravnanje 'naziv artikla' i desno poravnanje 'cijena', kao sto je na racunima

Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
*.bilokalnik.hr.

+8 Profil

Re: Stamoanje račna na POS printer kroz COD !

^{23.01.2008. u 13:03 - pre 197 meseci}

treba samo malo vise koda
onak na brzaka

Print #1, masno + duplo + "Kupac : " + trim(rek1.Fields("Otpreme_naziv"))+space(30-len(trim(rek1.Fields("Otpreme_naziv"))) + normalno + nemasno

to znaci da ce odstampati 30 znakova, otpreme_naziv + ostatak praznog

itd ..

Odgovor na temu

Air Live
Srbija

Član broj: 162278
Poruke: 410
*.tz.dlp334.bih.net.ba.

Profil

Re: Stamoanje račna na POS printer kroz COD !

^{23.01.2008. u 13:16 - pre 197 meseci}

Da ovaj cod ce da ostampa ovo sto je napisano u njemu,ali kako ce da odstampa ovo sa sub forme ove artikle po broju racuna iz forme Racuni !

Znaci ajdemo malo da povezemo ovaj primer konkretno da štampa ovo sto je na subformi a po broju računa iz forme Računi !

Pozdrav !

Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
*.bilokalnik.hr.

+8 Profil

Re: Stamoanje račna na POS printer kroz COD !

^{23.01.2008. u 14:09 - pre 197 meseci}

fuckaj ga, znaci nisi jak u accessu
a radis program za ducan,

pa vrlo jednostavno češ odštampati
neda mi se sad pisat cijeli kod

Print #1, "Račun broj : " brojracuna ' na formama korist imena objekata broj_racuna , brojracuna
(loše je Broj računa)
Print #1, "itd....

Dim d1 As Database
Dim R1 As Recordset
Set d1 = CurrentDb
Set R1 = d1.OpenRecordset("select * from racuni where br_racuna=" & frmupiti!brojracuna )
Do While Not R1.EOF
Print #1,R1.Fields("stavkataita")
R1.MoveNext
Loop

eto kako

lako
pozdrav

Odgovor na temu

Air Live
Srbija

Član broj: 162278
Poruke: 410
*.tz.dlp440.bih.net.ba.

Profil

Re: Stamoanje račna na POS printer kroz COD !

^{23.01.2008. u 18:45 - pre 197 meseci}

Pa pravo da ti kazem da i nisam bog zna sta jak u access-u,ja bih te molio ako mozes da mi napises cod za ovaj primer koji sam postavio.do sada mi sve radi pereko reporta ali imam problem na raznim vrstama printera pa moram uvijek da mijenjam artikle u lijevo i u desno.Pa sam htio sad da to uradim kroz cod.

Pozdrav !

Odgovor na temu

izonic
ishab zonic
Tuzla

Član broj: 38128
Poruke: 591
*.PPPoE-130.sa.bih.net.ba.

Sajt: www.icentar.ba

+2 Profil

Re: Stamoanje račna na POS printer kroz COD !

^{23.01.2008. u 23:53 - pre 197 meseci}

Poravnanje:
Zavisi koliko karaktera je printer.
Hajd da kazemo da je 41 pa zaokruzimo na 40
E sad koliko kolona imas.
Napr.
Naziv artikla Jedm cijena kolicina iznos
Ostaje jos PDV pojedinacno i ukupno te ti to najvjerovatnije nece stati u jedan red nego trebas 2

Dimenzionises broj variabli koliko imas kolona i to svaku toliko koliko zelis da kolona ima karaktera.

Napr.
Dim Naziv_a as string *20
Znaci da si obezbijedio 20 karaktera
Ukupno u jednom redu mora biti 40
Poslije ravnas sa Ltrim i dtrim

zxz

Odgovor na temu