Gentagne udskrifter

Kan du ikke bruge den \"Label-Wizard\" der er i Access?

(Findes under Rapporter, Ny, og så vælges label-troldmanden, eller guide, eller hvad det ny hedder  på nydansk) ;-)

Har prøvet at lege lidt med det, men jeg kan ikke se at jeg kan vælge at gentage en post.....

Er der eventuelt en måde hvorpå man kan lave en forespørgsel, der giver 10 poster for hvert svar.......

Dim Collating as Boolean

Collating = False
DoCmd.PrintOut acPrintAll, , , , Antal, Collating

Fidusen ligger i Collating. Hvis du f.eks angiver 4 kopier, så er Antal = 4.
Hvis så Collating = True, så kommer siderne sådan:
1,2,3,4,5,6...  1,2,3,4,5,6 ...
Hvis så Collating = False, så kommer siderne sådan:
1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,4,5,5,5,5........

Før denne kommando, skal du selvfølgelig lige have åbnet for rapporten - f.eks. med:

DoCmd.OpenReport ReportName, acPreview

Hvad gør kommaerne så i linien:
DoCmd.PrintOut acPrintAll, , , , Antal, Collating

Jeg åbner rapporten med:
Private Sub Kommandoknap46_Click()

On Error GoTo Err_Knap46_Click

    Dim DocName As String

    DocName = \"AdresseLabels\"
    DoCmd.OpenReport DocName, A_PREVIEW
Exit_Knap46_Click:
    Exit Sub

Err_Knap46_Click:
    MsgBox Error$
    Resume Exit_Knap46_Click
   
End Sub

Det ser rigtigt ud, så skal du bare have min Printout linie med.

Kommaerne skal med. Parametrene ville have angivet de enkeltsider, som du kun vil have skrevet ud.

Jeg har prøvet det her:

Private Sub Kommandoknap46_Click()

On Error GoTo Err_Knap46_Click

    Dim DocName As String

    DocName = \"AdresseLabels_Hanne\"
    DoCmd.OpenReport DocName, A_PREVIEW
   
    Dim Collating As Boolean

    Collating = False
    DoCmd.PrintOut acPrintAll, , , , 10, Collating

Exit_Knap46_Click:
    Exit Sub

Err_Knap46_Click:
    MsgBox Error$
    Resume Exit_Knap46_Click
   
End Sub

Men det virker vist ikke.

Men åbner den ikke rapporten før den får informationerne.....

kan det være rigtigt ?

Den gør forøvrigt heller ikke det jeg ønskede.

Den skriver bare side 1 ud 10 gange i træk, men der er forskellige navne på.

Det jeg ønsker er at skrive det samme navn ud 10 gange på samme side.

Kan man ændre lidt i den ovenstående kode for at opnå dette ?

Hvorfor ikke den enkle løsning: Drop alt det med enkeltlabels. Definer en rapport, hvor felterne er gentaget 10 gange - på positioner svarende til dine labels.

fordi at der er ca. 350 poster, der skal udskrives, samt at det ikke er en engangs\"fornøjelse\". Og det vil derfor være et hestearbejde at sidde og skrive dem ud enkeltvis.

Jo, der er en lidt andeledes måde:

Du laver din rapport, så den ligner din fysiske label-side (10 stk labels). Du laver det samme på alle 10 labels med de samme variabler på samme sted alle 10 steder.

Når du nu udskriver, skal du kun udskrive 1 gang, så kommer der en hel labelside med 10 stk. labels med samme navn på alle 10 labels, hvorefter næste side indeholder det næste navn på alle 10 labels  ......

Du mener noget kodeværk, der løber recordsne igennem og udskriver en rapport for hver record.

Det er jo selvfølgelig en åbenlys mulighed.

god ide!

Jeg opgav tanken og brugte noget brevfletning i word i stedet.

Tanken lyder ellers fin nok så her er pts\'ne