Print af labels, hvor tal i tabel skal angive antal

Hvilken fil-type anvender du normalt til udskrivning på labelprinteren?

Lidt programmering i VBA kan sandsynligvis gøre noget ved det...

Printeren tager både en access rapport, word, excel og notepad, det kræver bare at jeg har printer driveren på pc.

Skal vi prøve med Excel - der via VBA kan hente data fra DataBasen og fremstille det anførte antal etiketter.

Hvad er etiket-formatet?

Bredde 50mm højde 30mm
Afstand fra bund kant til top kant på næste label 18 mm

Denne udskriver det antal eksemplarer af en rapport. Antallet er angivet i formularens felt Antal:

Dim i As Integer
Dim Antalex As Integer
Antalex = [Antal]
For i = 1 To Antalex
DoCmd.OpenReport "Rapport2", acNormal, "", ""
Next i

The way I see it you ned to loop through a recordset and for each product loop and print the required qty.

Something like this (NOT tested).


Sub MyProc

Dim db as Database
Dim rst As Recordset
Dim i as Integer

    On Error Goto Err_MyProc

        Set db = CurrentDb()
        Set rst = db.OpenRecordset("MyTable")

        'Loop through products
    Do until rst.eof

          'Print qty for the current product
          For i = 1 to rst![QTY]

        DoCmd.OpenReport "ReportNameGoesHere", acNormal, , "Produkt = '" & rst![Produkt] & "'"

          Next i           

      rst.Movenext

    Loop

        rst.Close 

    Exit_MyProc:

        Set rst = Nothing 
        Set db = Nothing
        Exit Sub

    Err_MyProc:
        'Error handler here.
        Resume Exit_MyProc
End Sub

Det ser impornerende ud - men hvor/hvordan skal det lægges ind henne ?

Prøv f.eks. at lægge det ind i en kommandoknap. Du skal ændre "MyTable" til navnet på din egen tabel.

if you cant get it working then your welcome to send me your dB and I'll do it for you as soon as I get a bit of time over the weekend.

ekspertenATsanthell.dk

AT = @

Terry, thanks for your offer, I have mail it to  you