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
Bonjour,
Quel type de bouton ? Formulaire ? Quel code associé au bouton ?
Par ailleurs, ton code peut se simplifier ActiveSheet.PageSetup.PrintArea = "$B$6:$B$8" ActiveWindow.ActiveSheet.PrintPreview ActiveWindow.ActiveSheet.PrintOut Copies:=1, Collate:=True
Peut-être cela résoudra-t-il ton pb. dans ton code initial tu utilises 'selectedsheets'. Si jamais tu avais sélectionné 2 feuilles, tu auras 2 impressions.
le Range("B6:B8").Select de ton code, ici, ne sert à rien.
Bonne conitnuation
Rai
"pegaz67" a écrit dans le message de news: 41df8865$0$22720$
Bonjour es ce qlq peut me dire pourquoi, en exécutant la macro ci-dessous par un bouton, cela m'imprime deux copie ? 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
Bonjour,
Quel type de bouton ? Formulaire ?
Quel code associé au bouton ?
Par ailleurs, ton code peut se simplifier
ActiveSheet.PageSetup.PrintArea = "$B$6:$B$8"
ActiveWindow.ActiveSheet.PrintPreview
ActiveWindow.ActiveSheet.PrintOut Copies:=1, Collate:=True
Peut-être cela résoudra-t-il ton pb.
dans ton code initial tu utilises 'selectedsheets'. Si jamais tu avais sélectionné 2 feuilles, tu auras 2 impressions.
le Range("B6:B8").Select de ton code, ici, ne sert à rien.
Bonne conitnuation
Rai
"pegaz67" <pegaz67@free.fr> a écrit dans le message de news: 41df8865$0$22720$636a15ce@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 ?
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
Quel type de bouton ? Formulaire ? Quel code associé au bouton ?
Par ailleurs, ton code peut se simplifier ActiveSheet.PageSetup.PrintArea = "$B$6:$B$8" ActiveWindow.ActiveSheet.PrintPreview ActiveWindow.ActiveSheet.PrintOut Copies:=1, Collate:=True
Peut-être cela résoudra-t-il ton pb. dans ton code initial tu utilises 'selectedsheets'. Si jamais tu avais sélectionné 2 feuilles, tu auras 2 impressions.
le Range("B6:B8").Select de ton code, ici, ne sert à rien.
Bonne conitnuation
Rai
"pegaz67" a écrit dans le message de news: 41df8865$0$22720$
Bonjour es ce qlq peut me dire pourquoi, en exécutant la macro ci-dessous par un bouton, cela m'imprime deux copie ? 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
