Stamoanje račna na POS printer kroz COD !

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 !

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, "========================================================================"

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

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

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 !

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

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 !