Impression macro vba excel 2007
anesth31
-
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention -
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
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
-
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 -
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-
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
-
-
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
