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

 1224821 visiteurs

 10 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 : Les mémos - Etats
Page lue 7757 fois
Vous êtes ici :   Accueil » Première étiquette