Discussion :

[cobra38]

Bonjour à Toutes et Tous ,

Je souhaiterai pouvoir rendre inactif les boutons "marges" et "Mise en page"
lors d'un aperçu avant impression
le code ci-dessous ( merci au forum.. ) me permet de le faire pour l'application

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Dialogs(xlDialogPrintPreview).Show False

je souhaiterai le decliner dans la feuille à imprimer mais comment faire ?
voici le code que j'utilise pour imprimer ma feuille "avant"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
 With Sheets("Avant").PageSetup
 
       DerLig = Sheets("Avant").Range("A65535").End(xlUp).Row
       'Définit la zone d'impression pour une plage de cellules.
       .PrintArea = "$A$1:$C$" & DerLig
       'Mise en page: définit les marges
       .LeftMargin = Application.InchesToPoints(0.75)
       .RightMargin = Application.InchesToPoints(1)
       .TopMargin = Application.InchesToPoints(0.9)
       .BottomMargin = Application.InchesToPoints(0.75)
       .HeaderMargin = Application.InchesToPoints(0.4)
       .FooterMargin = Application.InchesToPoints(0.75)
 
 
    End With
 
    Sheets("Avant").PrintPreview

Merci par avance pour votre aide

A++

[kiki29]

Salut,peut-être en inhibant l'ensemble icône imprimer ainsi que l'aperçu avant impression pour une feuille ShXYZ et en prenant le relais via un bouton ou une UserForm pour le code de mep

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    If ActiveSheet.Name = ShLivraison.Name Then
        Cancel = True 
    Else
        Cancel = False
    End If
End Sub

A titre documentaire sur la mep voir http://www.developpez.net/forums/d55...ge-macros-xl4/

[cobra38]

Merci kiki29 pour ta reponse
mais ne crains-tu pas que dans ce cas je perde aussi l'usage du bouton "imprimer" ?
Ce que je cherche c'est juste rendre les boutons inactifs "marges" et "mise en page" pas le bouton "imprimer"


A+

[patricktoulon]

bonjour peut etre en metant le control a enable =false dans la commandbar concernée

dans l'aide tu a une macro qui peut t'aider a determiner le nom de la command bar concernant l'impression

ensuite

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
sub boutonnull ()
dim cb as commandbar
 
cb.nomdubouton.enabled=false
 
sheets (machinchose).printpreview
cb.nomdubouton.enable=true
 
end sub 
 
j'ai pas tester mais sa resemble beaucoup a ca

au plaisir

[cobra38]

Ok Merci patricktoulon

Je teste et te tiens au courant
merci pour l'info

A++

[patricktoulon]

re

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
sub boutonnull()
dim cb as commandbar
dim nombouton as control
cb="lenom de la bar quand tu l'aura determiné"
 
cb.nomdubouton.enabled=false
 
sheets (machinchose).printpreview
cb.nomdubouton.enable=true
 
end sub

j'ai pas tester mais sa resemble beaucoup a ca

voila c'est mieux