Microsoft 365 créer un bouton pour imprimer

fanch55 à dit:

Dans le module de code de la feuille "Bulletin", placer le code ci-dessous puis cliquer sur le bouton

VB:

Private Sub CommandButton1_Click()
' On va définir les paramètres généraux d'impression de la feuille
    Application.PrintCommunication = False
    With Me.PageSetup
        .PrintArea = "$A:$L"
        .CenterHorizontally = True
        .CenterVertically = False
        .Orientation = xlPortrait
        .PaperSize = xlPaperA4
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    Application.PrintCommunication = True
   
' On demande d'abord de choisir une imprimante
    With Application.Dialogs(xlDialogPrinterSetup)
        If .Show Then
            Application.ScreenUpdating = False
          ' on parcourt chaque Elève (cellule) de la zone [listedesélèves]
            Dim Eleve As Range
            For Each Eleve In [listedesélèves]
                Select Case Eleve
                    Case "Elèves"                  ' On ignore (entête)
                    Case ""                        ' On ignore (cellule vide)
                    Case Else                      ' y'a un élève
                        Me.[N5].Value = Eleve.Text ' On charge la cellule de choix
                        Me.Calculate               ' les formules de la feuille sont recalculées
                        Me.PrintOut                ' on envoit vers l'imprimante choisie
                End Select
            Next
        End If
    End With
End Sub

Cliquez pour agrandir...