En poursuivant votre navigation sur ce site, vous acceptez l'utilisation de cookies pour vous proposer des contenus et services adaptés. Mentions légales.

Recherche

Recherche

Les mémos

Je débute...

Visites

 1223767 visiteurs

 5 visiteurs en ligne

Nous contacter

Contact

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

Catégorie : - Etats
Page lue 7753 fois
Vous êtes ici :   Accueil » Première étiquette