Stampa etichette numerate

Question

Salve a tutti,

utilizzo access per la gestione della produzione aziendale e per ogni scatola prodotta gli operatori devono aggiungere un'etichetta con il codice, lotto, quantità ecc relativi al prodotto realizzato (l'etichetta viene già stampata con i dati corretti e quindi è collegata ad un odl di produzione). Ora ho l'esigenza di numerare progressivamente le etichette per poter identificare il momento di produzione del prodotto, quindi se ho un lotto da 1000 pezzi ed ogni collo contiene 50 pezzi ho bisogno di 20 etichette numerate progressivamente dal nr 1 al nr 20.

Grazie molte x l'aiuto

Answer 1

Ciao Christian72,

inserisci una casella testo nell'etichetta, nella proprietà "Origine controllo" metti = 1 nella proprietà "Somma parziale" seleziona "Su Tutto"

Per maggiori info vedi: ACC: Procedura stampare un numero di riga per ogni record o un gruppo di report

Ciao

Giorgio Rancati

Answer 2

Salve a tutti, mi scuso per il ritardo nella risposta, di seguito espongo il codice con cui ho risolto il problema, in questo modo funziona perfettamente, stampo le etichette numerate secondo il numero di scatole previste con eticche a doppia pista, sicuramente ci saranno sistemi migliori ma funziona:

Private Sub cmdEtichettaProduzione_Click()

'stampa etichette piccola per produzione

On Error GoTo myErr

Dim strEtichette, strFiltro As String

Dim intTotalBox As Integer

Dim intNrCopie As Integer

Dim i As Integer

Dim intNeutre As Integer

strEtichette = "EtichettaProduzione"

strFiltro = "nrodl=forms!odl!nrodl"

Me.AllowEdits = True

'salva il record corrente prima di aprire il report

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

DoCmd.OpenReport strEtichette, acPreview, , strFiltro

intTotalBox = Me.Quantity / Me.PzXCollo

intNrCopie = intTotalBox / 2

intNeutre = Round(intNrCopie * 10 / 100) + 1

intNrCopie = intNrCopie + intNeutre

intTotalBox = intNrCopie * 2

'Stampa le etichette non numerate 10% del totale

Reports!EtichettaProduzione!txtContatore1 = ""

Reports!EtichettaProduzione!txtContatore2 = ""

DoCmd.PrintOut , , , , intNeutre

'Stampa le etichette numerate il 10% in piu' dell'ordine

Reports!EtichettaProduzione!txtContatore1 = intTotalBox + 1

Reports!EtichettaProduzione!txtContatore2 = intTotalBox + 2

For i = 1 To intNrCopie

    Reports!EtichettaProduzione!txtContatore1 = Reports!EtichettaProduzione!txtContatore1 - 2

    Reports!EtichettaProduzione!txtContatore2 = Reports!EtichettaProduzione!txtContatore2 - 2

DoCmd.PrintOut

Next i

DoCmd.Close acReport, "EtichettaProduzione"

myExit:

    Exit Sub

myErr:

    MsgBox Err.Description

    Resume myExit

End Sub

Answer 3

Ciao

Ci sono novità in merito al tuo problema?

Ricorda sempre di tener informato il forum.

Saluti

---

Gianluca Cani.

Microsoft Certified Professional - Technology Specialist

EMEA Global Technical Support Center

Se questo post ti è stato utile, clicca su "Vota come utile”

In questo modo aiuterai gli altri utenti a trovare la soluzione al problema