Alignment the text in Inventory label

Hello,
This is a Inventory life tag label and I use following code for print how many labels as I want.
Option Compare Database

Option Explicit

Dim LabelBlanks&
Dim LabelCopies&
Dim BlankCount&
Dim CopyCount&

Function LabelSetup()
LabelBlanks& = Val(InputBox$("Enter Number of blank labels to skip"))
LabelCopies& = Val(InputBox$("Enter Number of Copies to Print"))
If LabelBlanks& 0 Then LabelBlanks& = 0
If LabelCopies& 1 Then LabelBlanks& = 1
End Function
Function LabelInitialize()
BlankCount& = 0
CopyCount& = 0
End Function
Function LabelLayout(R As Report)
If BlankCount& LabelBlanks& Then
R.NextRecord = False
R.PrintSection = False
BlankCount& = BlankCount& + 1
Else
If CopyCount& (LabelCopies& - 1) Then
R.NextRecord = False
CopyCount& = CopyCount& + 1
Else
CopyCount& = 0
End If
End If
End Function



----- Lee wrote: -----

Hello,

My problem is: the program allows print one label or many labels at a time. if I print one label it perfects, but if I print more than 2 at the time then the text in the second label begin to change. they are not fit in the label any more. I want to align the text so that every time I print more than 2 labels the text in the label does not change their position. Are there any suggestion would help me a lot?
Thanks,
Lee