Trtko Koprivnica
Član broj: 69494 Poruke: 695 *.bilokalnik.hr.
|
Naravno da se može riješiti , štampaš direktno na štampač, a ne u txt fajl
Evo pogledaj kako sam ja to riješio, ( ovo je samo dio koda )
sqlupit1 = "SELECT * from racnov"
Set rek1 = dato1.OpenRecordset(sqlupit1)
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, "========================================================================"
Print #1, "Ukupna te`ina : " + Space(10 - Len(Format(rek1.Fields("tezina_uku"), " ###,###,###.00"))) & Format(rek1.Fields("tezina_uku"), " ###,###,###.00")
Print #1, "Te`ina praznog vozila : " + Space(10 - Len(Format(rek1.Fields("tezina_voz"), " ###,###,###.00"))) & Format(rek1.Fields("tezina_voz"), " ###,###,###.00")
Print #1, "Te`ina robe : " + Space(10 - Len(Format(rek1.Fields("tezina_rob"), " ###,###,###.00"))) & Format(rek1.Fields("tezina_rob"), " ###,###,###.00")
Print #1, "=================================== === ========== ========== =========="
Print #1, " N a z i v r o b e JMJ Koli~ina Cijena Iznos "
Print #1, "=================================== === ========== ========== =========="
|