Kod štampanja virmana imam printer LQ680.Access-ov report pretvaram u text file,zatim pozivam batch file i direktno ispisujem na printer.Ovo piše u batch file-u:Copy C:\Vir\rptIspis2.txt Lpt1: Kad ispišem uplatnice nema naših slova:Č,Ć,Đ,Š itd..Na reportu imam naša slova i u text dokumentu koji kreiram imam naša slova.
Potpis
Ova gornja funkcija mi odgovara samo sad trebam da mi report ili textni dokument pretvori ČĆ i ostala slova u ove znakove koje si postavio u funkciji.Kako to uraditi.Report mi se zove rptIspis2 i onda ga pretvaram preko macroa u rptIspis2.txt.Poslje toga pozivan batch file u kojem piše Copy C:\Vir\rptIspis2.txt Lpt1:
Ako imaš ideju samo da tvoja funkcija pretvori ova slova ili na reportu ili na text dokumentu.
Potpis
Hvala ti skužio sam kako treba sad ću to pripremit,ubaciću odmah funkciju i najbolje je ovo rješenje da odma pretvara na report-u.Još jedno pitanje za ovaj ispis računa koji si postavio ispod ove funkcije.To planiram primjenit za svoju kasu koja mi ispisuje preko driver-a.Ovaj si ti ispis postavljo i prije na forumima.Zanima me kad uzimaš podatke za ispis treba li recimo upisivat tblProdaja.Cijena za podatak na ispisu ili sa DLookup?
Potpis
Pa možeš u programu otvoriti tablicu ili sqlupit pa sa do while petljom vrtiti do zadnjeg podatka
sve ovisi koliko podataka uzimaš iz tablice. možeš i s dlookupom
npr
Dim dato As Database
Dim rek As Recordset
Set dato = CurrentDb
Dim sqlupit As String
sqlupit = "SELECT * FROM otpreme WHERE GODINA = " & "'" & Year(Date) & "'" & " AND BR_DOKUM=" & "'" & Format(brdok, "00000") & "'"
Set rek = dato.OpenRecordset(sqlupit)
do while not rek.eof()
' i sad tu uzmes podatke iz tablice i ispisuješ ih
Još nešto čini mi se da kad mi pretvara npr:staraslova = Replace(staraslova, "^", "Č"),ovo je veliko Č,ali isti mi znak upiše i za malo č="^",a trebo bi č="~"
Potpis
pa trebao bi pozvat onu moju funkciju pretvori , samo moraš zamjeniti redosljed slova
a kod ispisa
'Ispis stavaka iz SQL(1)
Do While Not rs(1).EOF
' Sta_rc = rs(1).Fields(1)
Sta_rc = pretvori(rs(1).Fields(1))
Print #1, Sta_rc
rs(1).MoveNext
Loop
rs(1).Close
@Miro35 , vjerojatno je raspored u mojoj funkciji kriv ( "[", "{" ) možda sam ja koristio neki drugi font
gdje je na primjer znak "{" na ascci 298 a možda bi trebao biti na ascci 278 .. itd
tu sam funkciju koristio kad sam iz oraclea vukao podatke u access i štampao ih iz reporta
Ima još samo jedna caka.
Neće mi uzimati u obzir razliku između velikih i malih slova, pa sam zakometirao velika slova i sad mi ispisuje slovo koje treba ali uvijek kao malo.
Public Function kodna387(dovezi As String) As String
Dim staraslova As String
Neće mi uzimati u obzir razliku između velikih i malih slova, pa sam zakometirao velika slova i sad mi ispisuje slovo koje treba ali uvijek kao malo.
A kad je odkomentirano onda uvijek ispisuje velika slova.
Razlog tome moze biti nacin sortiranja u tekucoj MDB bazi. Na pocetku modula verovatno imas Option Compare Database . Pokusaj sa Option Compare Binary . Tvoj Optin Compare Database verovatno ne pravi razliku izmedju malih i velikih slova.
Pretvaranje u UTF-8
14.05.2010. u 14:41 · pre 200 meseci
#1
