Impression macro vba excel 2007
anesth31
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 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
A voir également:
- Executeexcel4macro print
- Spouleur d'impression - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Save as pdf office 2007 - Télécharger - Bureautique
- Liste déroulante excel - Guide
- Impression livret a5 - Guide
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
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
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
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...
imprime la feuille GBMH1 avec l'imprimante active par défaut
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