Notes
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Cette propriété renvoie ou définit le nombre d'étiquettes de publipostage personnalisées sur une page. Long (en lecture/écriture).
expression. NumberAcross
Expression Expression qui renvoie un objet « CustomLabel ».
Si vous affectez à cette propriété une valeur qui n'est pas valide pour la mise en page d'étiquettes de publipostage spécifiée, une erreur se produit.
Cet exemple montre comment créer une étiquette personnalisée nommée « Dept. Labels » et définir sa mise en page, y compris le nombre d'étiquettes sur la largeur de la page.
Set myLabel = Application.MailingLabel.CustomLabels _
.Add(Name:="Dept. Labels", DotMatrix:=False)
With myLabel
.Height = InchesToPoints(0.5)
.HorizontalPitch = InchesToPoints(2.06)
.NumberAcross = 4
.NumberDown = 4
.PageSize = wdCustomLabelLetter
.SideMargin = InchesToPoints(0.28)
.TopMargin = InchesToPoints(0.5)
.VerticalPitch = InchesToPoints(2)
.Width = InchesToPoints(1.75)
End With
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.