Volgnummer printen via Dymo labelwriter

[Databeest]

Ik ben op zoek naar een programmaatje of macro in excel die ik kan gebruiken om een volgummer te maken en te printen via Dymo Labelwriter (in 2 voud).

Het nummer mag eenmalig gemaakt worden (dus moet uniek zijn) en begint met de datum (DD-MM-JJJJ) van vandaag en daarna een volgnummer.

Bijvoorbeeld:


30082007-0089

Is datum 30 augustus 2007 volgnummer is 89.

 

[Wigi]

Hoi DB

zie bijlage.

Wigi

 

[Wigi]

Voor de volledigheid, ik heb deze code gebruikt:

Sub nieuwnummer()
    
    With Range("A1")
        If .Value = "" Then
            .Value = Format(Date, "ddmmyyyy") & "-" & Format(1, "0000")
        Else
            .Value = Format(Date, "ddmmyyyy") & "-" & Format(Split(.Value, "-")(1) + 1, "0000")
        End If
    End With
    
End Sub

Wigi

 

[Databeest]

Bedankt Wigi,

Dit werkt prima.

Kun je de label ook automatisch in 2-voud laten printen?

Ik ben helaas niet zo goed thuis in VB.

 

[Wigi]

En hoe wordt dat dan geprint? Op een gewone printer?

 

[Databeest]

En hoe wordt dat dan geprint? Op een gewone printer?

Via een Dymo labelwriter, maar wel vanuit Excel.

 

[Wigi]

En hoe stuur je dat dan aan?

 

[Databeest]

En hoe stuur je dat dan aan?

Via een extra menu, dat door de Dymo software als add-on in Excel wordt geplaatst.
Via Bestand afdrukken en dan de Dymo printer kiezen kan ook.

 

[Wigi]

Neem die code eens op via de Macro recorder wanneer je manueel print, dan heb je al ongeveer hetgeen je moet qua code nodig hebt.

 

[Databeest]

Wigi,

Dat zal ik gaan doen.
Ik zal laten weten of het gelukt is.

 

[Wigi]

OK

Zie ook hier voor wat betreft ActivePrinter.

Succes ermee

Wigi

 

[Databeest]

Wigi,

Dank je voor de hulp. Het printen gaat nu ook.

Nu is het zo dat elke dag moet starten met nummer 0001 en op dit momen:t wordt er doorgenummerd. Ik heb geprobeerd hier iets op te bedenken, maar kom er niet uit.

Heb jij enig idee?

 

[Wigi]

Zo dan

Sub nieuwnummer()
    
    Dim d As Date
    
    With Range("A1")
        If .Value = "" Then
            .Value = Format(Date, "ddmmyyyy") & "-" & Format(1, "0000")
        Else
            
            d = DateSerial(Mid(.Value, 5, 4), Mid(.Value, 3, 2), Left(.Value, 2))
            
            If Date > d Then
                .Value = Format(Date, "ddmmyyyy") & "-" & Format(1, "0000")
            Else
                .Value = Format(Date, "ddmmyyyy") & "-" & Format(Split(.Value, "-")(1) + 1, "0000")
            End If
            
        End If
    End With
    
End Sub

Wigi

 

[Databeest]

Wigi,

Dit werkt perfect!
Dank je wel.
:thumb: