Zone d'impression dans Excel

Le
Bidou
Bonsoir,

Comment empêcher l'impression de la feuille active ,qui peut contenir des
milliers de données, dans un gros classeur
lorsqu'on clique sur l'icône de l'imprimante en ayant oublié de définir la
zone d'impression ?
Ne peut'on empêcher cette "zone par défaut" ?)

Merci de votre aide
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Modeste
Le #5287081
Bonsour® Bidou avec ferveur ;o))) vous nous disiez :
Comment empêcher l'impression de la feuille active ,qui peut contenir
des milliers de données, dans un gros classeur
lorsqu'on clique sur l'icône de l'imprimante en ayant oublié de
définir la zone d'impression ?
Ne peut'on empêcher cette "zone par défaut" ?)


Si ... justement en definissant la zone d'impression
sinon autant invoquer Mme Soleil !!!

par ailleur une bonne habitude est de passer par l'aperçu avant impression
ce qui permet de s'assurer de ce qui va s'imprimer.


--
--
@+
;o)))

Patrick BASTARD
Le #5287051
Bonjour, *Bidou*

Supprimer l'icône, et ne laisser que celle qui lance l'aperçu avant
impression ?
http://cjoint.com/?bCxa5PqE8d

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.

Bonsoir,

Comment empêcher l'impression de la feuille active ,qui peut contenir
des milliers de données, dans un gros classeur
lorsqu'on clique sur l'icône de l'imprimante en ayant oublié de
définir la zone d'impression ?
Ne peut'on empêcher cette "zone par défaut" ?)

Merci de votre aide


isabelle
Le #5287041
bonjour Bidou,

à copier sur la page code de thisworkbook :

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.PageSetup.PrintArea = "" Then
MsgBox "Aucune zone d'impression n'est défini"
Cancel = True
End If
End Sub


isabelle

Bonsoir,

Comment empêcher l'impression de la feuille active ,qui peut contenir des
milliers de données, dans un gros classeur
lorsqu'on clique sur l'icône de l'imprimante en ayant oublié de définir la
zone d'impression ?
Ne peut'on empêcher cette "zone par défaut" ?)

Merci de votre aide




MichDenis
Le #5287031
La procédure s'effectue en 2 temps :

A ) Assure toi que tu n'as pas de zone d'impression de définir
pour chacune des feuilles. Pour ce faire, roule cette macro
une fois
Private Sub test()
For Each Sh In Worksheets
.PageSetup.PrintArea = ""
End With
ThisWorkbook.Save 'Sauvegarde du fichier sans zonne d'impression
End Sub

B ) copie cette procédure dans le ThisWorkbook de ton classeur

'-------------------------------------
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Sh As Worksheet
For Each Sh In ActiveWindow.SelectedSheets
With Sh
If .PageSetup.PrintArea = "" Then
MsgBox "Vous devez d'abord définir une plage " & _
"d'impression.", vbCritical + vbOKOnly, "Impression annulée"
Cancel = True
Else
Application.EnableEvents = False
.PrintOut
.PageSetup.PrintArea = ""
Application.EnableEvents = True
End If
End With
Next
Cancel = True
End Sub
'------------------------------------------




"Bidou" Bonsoir,

Comment empêcher l'impression de la feuille active ,qui peut contenir des
milliers de données, dans un gros classeur
lorsqu'on clique sur l'icône de l'imprimante en ayant oublié de définir la
zone d'impression ?
Ne peut'on empêcher cette "zone par défaut" ?)

Merci de votre aide
Bidou
Le #5286981
Merci de votre aide



"Bidou" 479e45ad$0$876$
Bonsoir,

Comment empêcher l'impression de la feuille active ,qui peut contenir des
milliers de données, dans un gros classeur
lorsqu'on clique sur l'icône de l'imprimante en ayant oublié de définir la
zone d'impression ?
Ne peut'on empêcher cette "zone par défaut" ?)

Merci de votre aide



JB
Le #5286961
Bonjour,

L'impression doit se faire par macro

Public impressionAutorisée
Sub Imprime()
Range("A1:B4").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$B$4"
impressionAutorisée = True
ActiveWindow.SelectedSheets.PrintPreview
impressionAutorisée = False
End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Not impressionAutorisée Then
MsgBox "Non!"
Cancel = Not impressionAutorisée
End If
End Sub

http://boisgontierjacques.free.fr/fichiers/Editions/ImpressionAuto.xls

JB
http://boisgontierjacques.free.fr



On 28 jan, 22:14, "Bidou"
Bonsoir,

Comment empêcher l'impression de la feuille active ,qui peut contenir de s
milliers de données, dans un gros classeur
lorsqu'on clique sur l'icône de l'imprimante en ayant oublié de défi nir la
zone d'impression ?
Ne peut'on empêcher  cette "zone par défaut" ?)

Merci de votre aide


Publicité
Poster une réponse
Anonyme