Bonjour
es ce qlq peut me dire pourquoi, en exécutant la macro
ci-dessous par un bouton, cela m'imprime deux copie ?
En fait j'ai plusieurs boutons sur la même page pour différents champs
d'impression avec différentes macro bien sûr.
merci
Sub Imprimer1()
'
' Imprimer1 Macro
' Macro enregistrée le 07/01/2005 par xxx
'
'
Range("B6:B8").Select
ActiveSheet.PageSetup.PrintArea = "$B$6:$B$8"
ActiveWindow.SelectedSheets.PrintPreview
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Rai
cf. réponse à ta question d'hier
"pegaz67" a écrit dans le message de news: 41e11736$0$9095$
Bonjour es ce qlq peut me dire pourquoi, en exécutant la macro ci-dessous par un bouton, cela m'imprime deux copie ? En fait j'ai plusieurs boutons sur la même page pour différents champs d'impression avec différentes macro bien sûr. merci
Sub Imprimer1() ' ' Imprimer1 Macro ' Macro enregistrée le 07/01/2005 par xxx '
' Range("B6:B8").Select ActiveSheet.PageSetup.PrintArea = "$B$6:$B$8" ActiveWindow.SelectedSheets.PrintPreview ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End Sub
cf. réponse à ta question d'hier
"pegaz67" <pegaz67@free.fr> a écrit dans le message de news: 41e11736$0$9095$626a14ce@news.free.fr...
Bonjour
es ce qlq peut me dire pourquoi, en exécutant la macro
ci-dessous par un bouton, cela m'imprime deux copie ?
En fait j'ai plusieurs boutons sur la même page pour différents champs
d'impression avec différentes macro bien sûr.
merci
Sub Imprimer1()
'
' Imprimer1 Macro
' Macro enregistrée le 07/01/2005 par xxx
'
'
Range("B6:B8").Select
ActiveSheet.PageSetup.PrintArea = "$B$6:$B$8"
ActiveWindow.SelectedSheets.PrintPreview
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
"pegaz67" a écrit dans le message de news: 41e11736$0$9095$
Bonjour es ce qlq peut me dire pourquoi, en exécutant la macro ci-dessous par un bouton, cela m'imprime deux copie ? En fait j'ai plusieurs boutons sur la même page pour différents champs d'impression avec différentes macro bien sûr. merci
Sub Imprimer1() ' ' Imprimer1 Macro ' Macro enregistrée le 07/01/2005 par xxx '
' Range("B6:B8").Select ActiveSheet.PageSetup.PrintArea = "$B$6:$B$8" ActiveWindow.SelectedSheets.PrintPreview ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End Sub
