Vba - imprimage
cs_pitros
Messages postés
45
Date d'inscription
mardi 11 octobre 2005
Statut
Membre
Dernière intervention
1 juin 2010
-
1 déc. 2005 à 11:36
cs_pitros Messages postés 45 Date d'inscription mardi 11 octobre 2005 Statut Membre Dernière intervention 1 juin 2010 - 1 déc. 2005 à 18:40
cs_pitros Messages postés 45 Date d'inscription mardi 11 octobre 2005 Statut Membre Dernière intervention 1 juin 2010 - 1 déc. 2005 à 18:40
2 réponses
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
1 déc. 2005 à 12:21
1 déc. 2005 à 12:21
Bonjour,
Sub Imprimer()
Range("B51:G58").Select
ActiveSheet.PageSetup.PrintArea = "$B$51:$G$58"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True
End Sub
jpleroisse
Si une réponse vous convient, cliquez Réponse Acceptée.
Sub Imprimer()
Range("B51:G58").Select
ActiveSheet.PageSetup.PrintArea = "$B$51:$G$58"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=True
End Sub
jpleroisse
Si une réponse vous convient, cliquez Réponse Acceptée.
cs_pitros
Messages postés
45
Date d'inscription
mardi 11 octobre 2005
Statut
Membre
Dernière intervention
1 juin 2010
1 déc. 2005 à 18:40
1 déc. 2005 à 18:40
J'ai mis exactement ce que vous m'avez conseiller mais l'imprimage ne
marche pas ! Il me lance juste le zoom de la feuille ou ya le tableau
de B51 a G58...
marche pas ! Il me lance juste le zoom de la feuille ou ya le tableau
de B51 a G58...