impression macro vba excel 2007 Fermé

Question

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



Configuration: Windows XP / Internet Explorer 8.0

f894009 · Answer

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

anesth31 · Answer

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

michel_m · Answer

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

Impression macro vba excel 2007

3 réponses

Discussions similaires