Empêcher des boutons de commande d'être imprimer

CB60

XLDnaute Barbatruc

• 17 Décembre 2010

• #2

Re : Empêcher des boutons de commande d'être imprimer

Bonjour
Ce doit etre quelque chose comme ça.

ActiveSheet.Shapes().PrintObject = False

Cliquez pour agrandir...

La tous les objets de ta feuille ne sont pas impimés, seul les données

 

Vote positif 0 Vote négatif

GuillaumA

XLDnaute Occasionnel

• 17 Décembre 2010

• #3

Re : Empêcher des boutons de commande d'être imprimer

Je test ça tout de suite !
En revanche tu le place ou?
Car j'ai testé un peu partout et ça bug...

 

Dernière édition: 17 Décembre 2010

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 17 Décembre 2010

• #4

Re : Empêcher des boutons de commande d'être imprimer

Re
Pour moi sous le IF de ta macro, peut etre que tu doit avoir une petite adaptation mais j'ai testé avec des boutons et chez moi ça fonctionne

 

Vote positif 0 Vote négatif

GuillaumA

XLDnaute Occasionnel

• 17 Décembre 2010

• #5

Re : Empêcher des boutons de commande d'être imprimer

MMM sous le If il bug et me dit:
Erreur d'exécution '438':
Propriété ou méthode non gérée par cet objet

Code:

Sub PrintActions()
Dim P As Byte
P = MsgBox(Range("Database!K33"), vbYesNo + vbDefaultButton12)
If P = vbNo Then Exit Sub
ActiveSheet.Shapes().PrintObject = False
Application.Dialogs(xlDialogPrinterSetup).Show
With Sheets(Actions)
.PageSetup.PrintArea = "$B$2:$J$244"
With .PageSetup
.PaperSize = xlPaperA4
.Orientation = xlPortrait
.Zoom = False
.FitToPagesWide = 1
.BlackAndWhite = True
.ActiveSheet.Shapes().PrintObject = False
End With
.PrintOut Copies:=1
End With
End Sub

Et j'ai testé avec
.Shapes().PrintObject = False
ou même
.PrintObject = False
aux endroits appropriés.

ou encore:
ChartObjects(1).PrintObject = False

Rien à faire

 

Dernière édition: 17 Décembre 2010

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 17 Décembre 2010

• #6

Re : Empêcher des boutons de commande d'être imprimer

Bonjour,

Tu peux essayer :

Code:

Sheets(Actions).OLEObjects.PrintObject = False

A +

 

Vote positif 0 Vote négatif

GuillaumA

XLDnaute Occasionnel

• 17 Décembre 2010

• #7

Re : Empêcher des boutons de commande d'être imprimer

Bonjour James,
OLEObjects ne marche pas non plus.

En référence j'ai:
OLE Automation
Microsoft CDO
etc...

Ca devrai marcher non ?

 

Vote positif 0 Vote négatif

M

mikeo

XLDnaute Occasionnel

• 17 Décembre 2010

• #8

Re : Empêcher des boutons de commande d'être imprimer

Bonjour à tous, James, CB60?

Je te propose GuillaumA de cliquer droit sur les boutons de commande, format de contrôle, propriétés, et de décrocher "imprimer l'objet".
Plus simplement.

A+

 

Vote positif 0 Vote négatif

James007

XLDnaute Barbatruc

• 17 Décembre 2010

• #9

Re : Empêcher des boutons de commande d'être imprimer

Re,

Si tu as la possibilité de poster ton fichier, cela serait vraiment l'idéal ...

A +

 

Vote positif 0 Vote négatif

GuillaumA

XLDnaute Occasionnel

• 17 Décembre 2010

• #10

Re : Empêcher des boutons de commande d'être imprimer

Et bien et bien, l'idée de mikeo est plus qu'interessante héhé.
Je vais de ce pas la tester.

Hélas, cette fois ci, je ne peux donner de fichier. En effet ce sont des feuilles générées et vous donner le bout de fichier correspondant reviendrai a vous donner un module complet de mon fichier et cela me prendrai des heures du fait de centaines d'interconnections entre fichiers / feuilles / macros / ...

Toutefois, merci pour votre aide même sans le fichier, qui m'éclaire énormément sur la question.

Amicalement,
Guillaume

 

Vote positif 0 Vote négatif