Première étiquette

Démarrer l'impression des étiquettes à un endroit précis de la page

Lorsque l'on utilise des "pages d'étiquettes" survient rapidement la nécessité de démarrer l'impression des étiquettes à un endroit précis de la page, ne fusse que par raison d'économie. Et plus la quantité à imprimer est faible et plus ce besoin est important.

La méthode la plus simple consiste à ajouter un peu de code dans les événements de l'état, comme indiqué ci-dessous.

Option Compare Database
Option Explicit

' Mettre dans la partie déclaration de l'état
Public intToSkip As Integer
Public intSkipped As Integer

' Propriété de la zone Détail - Événement "Sur impression"
Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)

    If intSkipped < intToSkip Then
        Me.NextRecord = False
        Me.PrintSection = False
        intSkipped = intSkipped + 1
    End If
End Sub

' Propriété de l'état - Événement "Sur ouverture"
Private Sub Report_Open(Cancel As Integer)
    Dim intEttiket As String
    intEttiket = InputBox("Combien d'étiquettes vides souhaitez-vous ? : ")

    If IsNull(intEttiket) Then
        Cancel = True
    Else
        intToSkip = Val(intEttiket)
    End If
End Sub