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

 1218267 visiteurs

 4 visiteurs en ligne

Nous contacter

Contact

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


Catégorie : Les mémos - Etats
Page lue 7059 fois

Vous êtes ici :   Accueil » Paires et Impaires