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 !

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