Les mémos

Fermer Tables

Fermer Requêtes

Fermer Formulaires

Fermer Etats

Fermer Modules

Fermer Base

Fermer Automation

Fermer Administration

Fermer Registre

Fermer String

Fermer Email CDO

Fermer Outlook

Fermer Net

Fermer Dates - Heures

Fermer Fichiers

Fermer Références

Fermer Vrac

Je débute...

Fermer La normalisation

Fermer VBA

Attention
Aucun support
par émail !

Utilisez le forum pour les questions/réponses concernant MsAccess et les codes que vous trouverez sur ce site.
Visites

   visiteurs

   visiteurs en ligne

Etats - 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 conciste à 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


Date de création : 31/10/2005 : 06:33
Dernière modification : 08/02/2010 : 01:50
Catégorie : Etats
Page lue 6187 fois


Imprimer l'article Imprimer l'article

Recherche



Lettre d'information
Pour avoir des nouvelles de ce site, inscrivez-vous à notre Newsletter.
Captcha
Recopier le code :
Au sujet de l'auteur
L'auteur qui fréquente (fréquentait) le forum microsoft.public.fr.access a eu le plaisir d'être nommé MVP Office-Access de janvier 2003 à décembre 2011.

Qui sont les MVP ?

Divers ;-)
Nous contacter

Haut