Multiple labels on a page

[Gkirkup]

I need to print a page of six identical labels. Do I need to repeat the same code six times on my report object? Or is there a way to code one label and have that repeat on various places on the page? That would be two columns of three labels each.

Robert

 

[Taruz]

Hi..

This code could work..:

Dim trz, ct As Integer

Private Sub Report_Open(Cancel As Integer)
    trz = 1
  ct = 6 'repeat label count
End Sub

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
If ct <> trz Then
    Me.NextRecord = False
    trz = trz + 1
    Exit Sub
End If
If ct = trz Then
    Me.NextRecord = True
    trz = 1
    Exit Sub
End If
End Sub

If I have misunderstood the problem i am sorry..

 

[Gkirkup]

There is no record manipuation here. I am trying to print the SAME record, six times, at different spots on the page, to make labels. I am trying to avoid having six copies of the label in my report object.

Robert

 

[phillipmai]

Gkirkup, did you get the answer, i need the same thing.

 

[Gkirkup]

No, I didn't find an easy answer. I just repeated my label six times on the page.

Robert

 

[G37Sam]

Convert the label to records in a table, then print all the records

 

[AccessBlaster]

Have you tried Access Label Wizard?