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 - Paires et Impaires

Pour des états conséquants, on souhaite pouvoir en imprimer les pages paires et impaires

 

La seule chose à modifier à votre état, est une zone de texte indépendante que vous ajouterez dans l'en-tête ou le pied de page.

Source du controle :

=[Pages]

Nommez le :TotalPages
Visible :Non

 

Placez les deux fonctions suivantes dans un module général que vous sauverez sous le nom de "mod_ImprimePaireImpaire"

 

Usage :

Depuis votre formulaire, il suffira d'appeller l'impression par :

Call PagesPaires("Liste des clients")

Call PagesImpaires("Liste des clients")

 

 

Function PagesPaires(strMonEtat)
On Error GoTo PagesPaires_Err
    Dim x As Integer, NombrePages As Integer
 
    DoCmd.OpenReport strMonEtat, acPreview
 
    NombrePages = Reports(strMonEtat)![TotalPages]
 
    For x = 1 To NombrePages
        If x Mod 2 = 0 Then
            DoCmd.PrintOut acPages, x, x, acHigh, 1, True
        End If
    Next x
    DoCmd.Close acReport, strMonEtat, acSaveNo
 
PagesPaires_Exit:
    Exit Function
PagesPaires_Err:
    MsgBox Error$­­­­
    Resume PagesPaires_Exit
End Function

 

Function PagesImpaires(strMonEtat)
On Error GoTo PagesImpaires_Err
    Dim x As Integer, NombrePages As Integer
 
    DoCmd.OpenReport strMonEtat, acPreview
 
    NombrePages = Reports(strMonEtat)![TotalPages]
 
    For x = 1 To NombrePages
        If x Mod 2 <> 0 Then
        DoCmd.PrintOut acPages, x, x, acHigh, 1, True
        End If
    Next x
    DoCmd.Close acReport, strMonEtat, acSaveNo
PagesImpaires_Exit:
    Exit Function
PagesImpaires_Err:
    MsgBox Error$­­­­
    Resume PagesImpaires_Exit
End Function


Date de création : 17/01/2006 : 02:46
Dernière modification : 17/01/2006 : 02:48
Catégorie : Etats
Page lue 5532 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