Impression macro vba excel 2007

anesth31 -  
Bonjour,
bonjour aprés des petites vacances je suis de retour toujour avec le même problème:

une feuille excel avec deux boutons le bouton 1 pour quitter (la macro fonctionne)
le bouton 2 pour pouvoir imprimer je ne trouve pas la macro

ci-dessous le code actuel:

Private Sub CommandButton1_Click()
If Onglet_courant <> "" Then
Sheets(Onglet_courant).Visible = False
End If
Sheets(1).Select
UserForm1.Show
End Sub

Private Sub CommandButton2_Click()

End Sub

je ne veux imprimer que la première page Merci

3 réponses

  1.  f894009
    Bonjour,

    Code pour imprimer

    'Onglet selectionne
    Sheets("Feuil2").Select

    'Feuille 1
    ExecuteExcel4Macro "PRINT(2,1,1,1,,,,,,,,2,,,TRUE,,FALSE)"

    'Feuille 1 à 2
    ExecuteExcel4Macro "PRINT(2,1,2,1,,,,,,,,2,,,TRUE,,FALSE)"

    'Classeur entier
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,3,,,TRUE,,FALSE)"

    Bonne suite
    1. anesth31
      bonjour f894009

      Mon code exact

      Private Sub CommandButton1_Click()
      If Onglet_courant <> "" Then
      Sheets(Onglet_courant).Visible = False
      End If
      Sheets(1).Select
      UserForm1.Show
      End Sub

      Private Sub CommandButton2_Click()
      'Onglet selectionne
      Sheets("GBM H1").Select

      'GBM H1
      ExecuteExcel4Macro "PRINT(2,1,1,1,,,,,,,,2,,,TRUE,,FALSE)"

      End Sub

      A quoi corespond (2,1,1,1,,,,,,2,,,,TRUE,,FALSE)

      il me faut zselement imprimer la page 1 de la feuille GBM H1 MERCI
      1. f894009
        Re,

        Avec le code que vous avez ecrit, vous allez imprimer la premiere page (feuille) de l'onglet "GBM 71"
        Private Sub CommandButton2_Click()
        'Onglet selectionne
        Sheets("GBM H1").Select

        'GBM H1
        ExecuteExcel4Macro "PRINT(2,1,1,1,,,,,,,,2,,,TRUE,,FALSE)"

        End Sub

        Pour savoir comment s'execute ExecuteExcel4Macro "PRINT.........."):
        Vous pouvez enregistrer des macro avec l'enregistreur de macro en faisant vos impressions manuellement ou vous allez voir sur le site ci-dessous ou vous aurez les parametres de cette fonction.
        https://forum.pcastuces.com/excel_2007_imprimer_a_aide_une_macro-f23s22551.htm

        Bonne suite
    2. michel_m Contributeur
      Bonjour,

      Il y a certainement quelque chose que je n'ai pas compris dans la demande mais... 

      Private Sub CommandButton2_Click()
   'Onglet selectionne
    Sheets("GBM H1").Print out
End Sub


      imprime la feuille GBMH1 avec l'imprimante active par défaut
      1. f894009
        Bonjour michel_m

        La demande est:
        imprimer la premiere page d'un onglet selectionne. Je ne connais que ExecuteExcel4Macro "PRINT.........."):

        J'ai essaye ce que vous proposez, cela ne marche pas (erreur 438). Dommage.

        A+
      2. michel_m Contributeur
        Ok, j'avais pas lu "la première page de l'onglet"

        excusez moi
      3. f894009
        Re,
        De rien.
      4. f894009
        Re,
        Il y a une alternative a ExecuteExcel4Macro "PRINT.........."):

        Sheets("GBM H1").Select
        ActiveSheet.PrintOut from:=1, To:=1, Copies:=1, Collate:=True