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

 1225029 visiteurs

 13 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 7089 fois
Vous êtes ici :   Accueil » Paires et Impaires