Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Double impression

Double impression

1 réponse
Avatar
pegaz67
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
Signaler un problème avec ce contenu

1 réponse

Supprimer
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
Avatar
papou
Bonjour
Essaie de simplifier comme ça :
With ActiveSheet
.PageSetup.PrintArea = "$B$6:$B$8"
.PrintOut copies:=1
End With
Cordialement
Pascal

"pegaz67" a écrit dans le message de news:
41deb1fa$0$29913$
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