nevsad 21.03.2016 08:33
Predmet:label print broja

printanje labela

iz kalkulacije napravim label sa poljima
1 barkod
2 nativ proizvoda
3 jed.mjere
4 cijena
..
5 kulaz

Problem predstavlja printanje labela.
Naime.kod printa labela printa se samo jedna label_a , ameni treba onoliko koliko je kolicina ulaza iz kalkulacije.Npr.. kulz je polje i iz kalkulacijeje to je recimo 8 kom,u printu labela ja bih trebao imati tih 8 istih lebel_a,a ne samo jednu.
nemam ideja kako to napraviti
unaprijed zahvalan
ramic

zxz 21.03.2016 09:30
Predmet:Re: label print broja

Morat ces zakaciti primjer.
Ne zbog toga sto nije dobro objasnjeno bego jednostavno da vidis razliku.

nevsad 21.03.2016 09:47
Predmet:Re: label print broja

evo primjer
Prilozi:
label.rar (Velicina datoteke:67.48 KB)

pmiroslav 21.03.2016 12:56
Predmet:Re: label print broja

Evo probaj ovo. Dodao sam ti tablicu tblBrojevi koju popuniš sa brojevim od 1 do koliko misliš da će ti najviše naljepnica trebati od jednog artikla.
Tvoj Qkalkulacija sam prepravio da ti zbraja količine od pojedinog artikla.
Dodao sam novi Qlabels i on ti je sada Record Source za tvoj Report.
Prilozi:
labelMP.rar (Velicina datoteke:334.42 KB)

nevsad 22.03.2016 20:20
Predmet:Re: label print broja

ideja nije losa ...

fino hvala

ramic

nevsad 23.03.2016 11:36
Predmet:Re: label print broja

Evo kako sam ja rijesio ovaj prblem
1 kreirao sam tabelu barcode
2 iz query_ja napravim drugu tabelu,koja mi je sourcerecod, kalkulacije broja sa ekranske forme,naziva stampabc
3 donjim kodom sa komandnog tastera pozivam pregled labela

Private Sub Command90_Click()
Dim i As Integer, rst As DAO.Recordset, strRep As String, lngBrr As Long
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM barcode"
DoCmd.RunSQL "SELECT Qkalkulacija.proizvod, Qkalkulacija.kulaz, Qkalkulacija.broj, Qkalkulacija.ime, Qkalkulacija.jedmj, Qkalkulacija.cijena INTO stampabc FROM Qkalkulacija WHERE (((Qkalkulacija.broj)=[Forms]![kalkulacija]![broj]));"

Set rst = CurrentDb.OpenRecordset("stampabc")
Do Until rst.EOF
lngBrr = rst!broj
For i = 1 To rst!KULAZ
DoCmd.RunSQL "INSERT INTO barcode (proizvod,broj) VALUES ('" & rst!proizvod & "'," & lngBrr & ")"
Next i
rst.MoveNext
Loop
rst.Close
If lngBrr = 0 Then lngBrr = InputBox("Broj kalkulacije?")
DoCmd.RunSQL "UPDATE barcode SET broj = " & lngBrr
DoCmd.SetWarnings True
DoCmd.OpenReport "Labels", acViewPreview, "", "", acNormal

Gjoreski 24.03.2016 23:38
Predmet:Re: label print broja

eve nesto sto jas imam praveno za printajne na barcod na label printer
vo Config Print.exe se pravi konfiguracija a za pecatejne se koristi Barcode DOS Print.exe
Prilozi:
Barcode.rar (Velicina datoteke:82.46 KB)