Trtko Koprivnica
Član broj: 69494 Poruke: 695 *.adsl.net.t-com.hr.
|
Morao bi pretvarat šćć u ..... , vidi donju funkciju
jedino što moraš funkciju malo prepravit
staraslova = Replace(staraslova, "Š", "[")
itd ..... pa onda probaj štampat
Public Function pretvori(dovezi As String) As String
Dim staraslova As String
staraslova = dovezi
staraslova = Replace(staraslova, "[", "Š")
staraslova = Replace(staraslova, "{", "š")
staraslova = Replace(staraslova, "]", "Ć")
staraslova = Replace(staraslova, "}", "ć")
staraslova = Replace(staraslova, "^", "Č")
staraslova = Replace(staraslova, "~", "č")
staraslova = Replace(staraslova, "@", "Ž")
staraslova = Replace(staraslova, "`", "ž")
staraslova = Replace(staraslova, "\", "Đ")
staraslova = Replace(staraslova, "|", "đ")
pretvori = staraslova
End Function
a što ne štampaš direktno iz accessa na štampać ????
vidi kako bi to izgledalo
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, "=================================== === ========== ========== =========="
..... itd i moraš na kraju zatvoriti tablicu ili query i obavezno LPT1 port
|