Home
Home

---Soumis par Dev Ashish---

Imprimer le nombre de page sur un état à plusieurs colonnes.

    Parfois, il est nécessaire d'impirmer plusieurs numéros de pages, uniques, sur une seule feuille, comme dans le cas d'un répertoire téléphonique, sur deux colonnes, où on désire "Page 25 de 60" sur la colonne de gauche, "Page 26 de 60" sur celle de droite, et que 30 feuilles seront imprimées.

    Pour ce faire, insérer deux boîtes de texte dans le pied de pageTo do this, insert two text boxes in the Page Footer section and assign their properties as follows:

Name:         Textbox1
ControlSource: = [Page]
Visible:    False

Name:        Textbox2
ControlSource: = [Pages]
Visible:    False

    Ces contrôles sont importants, car selon le fichier d'aide d'Access, pour reférer à la propriété Pages dans une macro ou depuis  Visual Basic, le formulaire ou l'état doit inclure un contrôle dont la propriété  ControSource est assignée à une expression qui utilise Pages."

De plus, créer deux étiquettes, une pour la colonne de gauche, une pour la colonne de droite. Les appeler lblPageNum1 et lblPageNum2.

Alors, couper-coller le code suivant dans la procédure événementielle  OnPrint du pied de page.

'************ Code Start ************
Private Sub PageFooter_Print(Cancel As Integer, PrintCount As Integer)
Dim intPage As Integer
  If Me.Page = 1 Then
    intPage = 2
  Else
    intPage = Me.Page * 2
  End If
  With Me
    !lblPageNum1.Caption = "Page " & intPage - 1 & " of " & .Pages * 2
    !lblPageNum2.Caption = "Page " & intPage & " of " & .Pages * 2
  End With
End Sub
'************ Code End  ************