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" ?)
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
Modeste
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)))
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.
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
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
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" ?)
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
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
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" ?)
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
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" a écrit dans le message de news: 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
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" <fa@wanadoo.fr> a écrit dans le message de news: 479e45ad$0$876$ba4acef3@news.orange.fr...
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" ?)
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" a écrit dans le message de news: 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
Bidou
Merci de votre aide
"Bidou" a écrit dans le message de news: 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
Merci de votre aide
"Bidou" <fa@wanadoo.fr> a écrit dans le message de news:
479e45ad$0$876$ba4acef3@news.orange.fr...
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" ?)
"Bidou" a écrit dans le message de news: 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
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
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
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
On 28 jan, 22:14, "Bidou" <f...@wanadoo.fr> wrote:
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" ?)
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
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" ?)
