Discussion :

[CmzxNene]

Bonjour,

Dans mon APPLI en DEV, j'ai mis dans mon ThisWorkbook le code suivant :

Code :

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

1
2
3
4
5
Private Sub Workbook_Activate()
    Application.DisplayFormulaBar = False 'Enlève la barre de formule
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" 'Cache le ruban
    ActiveWindow.DisplayHeadings = False 'Cache les en-têtes de lignes et de colonnes
End Sub

Petit problème, je lance un aperçu avant impression d'un document mais il m'est impossible de l'imprimer.

Question : A côté du logo Excel en haut à gauche, est-il possible en VBA de faire apparaître l'icône de l’Impression Rapide ?
Ou une autre solution ?

Un aperçu par capture d'écran sans mon document



Merci

[patricktoulon]

Bonjourt
tiens voila un exemple
lance la sub No_ruban a l'activate du classeur par exemple

et quand tu veut l'appercu avant impression lance la sub du meme nom
quand tu ferme l'appercu le ruban se recache

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub appercu_avant_impression()
 
    Application.DisplayFullScreen = False
    ActiveWindow.DisplayHeadings = True
    Application.DisplayFormulaBar = True
    ActiveWindow.DisplayHorizontalScrollBar = True
    ActiveWindow.DisplayVerticalScrollBar = True
    ActiveWindow.DisplayWorkbookTabs = True
    Worksheets("Sheet1").PrintPreview 'exemple avec le sheets(1)
NO_ruban
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub NO_ruban()
    Application.DisplayFullScreen = True
    ActiveWindow.DisplayHeadings = False
    Application.DisplayFormulaBar = False
    ActiveWindow.DisplayHorizontalScrollBar = False
    ActiveWindow.DisplayVerticalScrollBar = False
    ActiveWindow.DisplayWorkbookTabs = False
 
 
End Sub

[patricktoulon]

tiens histoire d'eviter un bouton je te propose d'ajouter un item au menu contextuel des cellules

donc au click droite n'importe ou sur le sheets tu aura appaercu avant impression en premier dans le menu

pour cela tu met dans le thisworkbook

Code :

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

1
2
3
4
5
6
7
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Cell").Reset
End Sub
Private Sub Workbook_Open()
NO_ruban
AddToCellMenu
End Sub

et dans un module standard tu met

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
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub appercu_avant_imopressiona()
    Application.DisplayFullScreen = False
    ActiveWindow.DisplayHeadings = True
    Application.DisplayFormulaBar = True
    ActiveWindow.DisplayHorizontalScrollBar = True
    ActiveWindow.DisplayVerticalScrollBar = True
    ActiveWindow.DisplayWorkbookTabs = True
    Sheets(1).PrintPreview
    NO_ruban
End Sub
Sub NO_ruban()
    Application.DisplayFullScreen = True
    ActiveWindow.DisplayHeadings = False
    Application.DisplayFormulaBar = False
    ActiveWindow.DisplayHorizontalScrollBar = False
    ActiveWindow.DisplayVerticalScrollBar = False
    ActiveWindow.DisplayWorkbookTabs = False
End Sub
'on ajoute le bouton appercu dans le menu contextuel
Sub AddToCellMenu()
    Dim menucell As CommandBar
    Set menucell = Application.CommandBars("Cell")
    With menucell.Controls.Add(Type:=msoControlButton, before:=1)
        .OnAction = "appercu_avant_imopressiona"
        .Caption = "appercu avant Impression"
    End With
End Sub
'on reinitialise le menu cette sub est appelée dans le close du workbook
Sub resetbarre()
Application.CommandBars("Cell").Reset
End Sub

voila

[clementmarcotte]

Bonjour,

Moi je serais ultra-paresseux. Je mettrais le bouton une fois pour toutes dans la barre d'outils Accès rapide.

[patricktoulon]

re
et oui paresseux au point de ne pas avoir vu que quand on applique le display fullscreen(cache le ruban)la barre d'outil rapide disparait aussi

et oui la paresse

tu commence bien l'année clement

[Oliv-]

Bonsoir,
Avec un userform non modal où tu mets une icone pour l'impression.