Problem: Štampa report-a u DOS modu

Napravio sam Report koji se odštampa normalno na laserskom štampaču (pod normalnim
podrazumevam grafički mod - tabele na reportu, fontovi, veličine slova, itd). Problem
mi predstavlja štampa na matričnom štampaču. Klijent zahteva da se štampa na matričnom,
ali i da štampa bude brza, što nije moguće u grafičkom modu.

Napravio sam i tu mogućnost - kreira se txt fajl koji se štampa iz dos moda i štampa
je brza. Problem je u iscrtavanju tabela. Tabele se uopšte ne prikazuju u txt fajlu.
Probao sam i da kreiram label-u sa ASCII kodovima (na report-u iscrtam tabelu), ali nije
dalo zadovoljavajuće rezultate.

Da li neko ima ideju kako ovo da rešim?

Kaži gazdi da ne može i jare i pare.

Potpis

Ozbiljan i odgovoran mladić

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

Isprobao sam kod i čini mi se da će biti ok.

Hvala Trtko na pomoći.

Nema na čemu

i nemoj zaboraviti poslije štampanja zatvorit štampač


Close #1

Stavio sam ovu temu u
http://www.elitesecurity.org/t...ogramiranja-Baza-Znanja-slicno

tamo ima podgrupa "Interesantne teme" i na dnu je dodata i ova :-)

Za "prvu pomoc" moze da ti pomogne da za sve sto je na reportu koristis font koji "ide" uz taj stampac. U padajucem meniju izberi font koji pored svog imena ikonicu stampaca. Bice brze, sigurno ;)