MsgBox avant impression

Bonjour à tous,

J'ai reçu une demande aujourd'hui d'un collègue, mais je ne suis pas assez compétent en VBA, c'est pour cela que je me tourne vers ce forum.

J'aimerais que avant l'impression, il y est un message qui lui rappelle d'imprimer la feuille en couleur, et non en noir et blanc.

Pourriez-vous m'indiquer le code à appliquer?

Merci d'avance de vos réponses.

Bonjour un exemple

à partir d' ici

ci-joint (n'imprime pas juste le message )

crdlt,

André

Bonjour,

Un première proposition.

ALT F11, pour ouvrir l'éditeur VBE.

Copier la procédure ci-dessous dans le module ThisWorkbook.

Cdlt.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Message As String, Title As String
Dim Style As VbMsgBoxStyle
Dim Answer As VbMsgBoxResult

    Message = "Pensez à imprimer en couleur!..."
    Style = vbOKCancel + vbExclamation
    Title = "Impression document"

    Answer = MsgBox(Message, Style, Title)

    If Answer = vbCancel Then
        Cancel = True
        Exit Sub
    End If

End Sub

Bonjour

pour imprimer en couleur

Voila une macro

Sub Macro4()
    With ActiveSheet.PageSetup
'        .BlackAndWhite = True ' Noir et Blanc
        .BlackAndWhite = False ' Couleur
    End With
End Sub

A+

Maurice

Bonjour à tous,

⚠ AVIS AUX UTILISATEURS QUI POSSÈDENT UNE IMPRIMANTE LASER NOIR & BLANC

Les codes VBA qui sont proposés ici ne marcheront pas pour vous : même le meilleur code VBA ne pourra jamais imprimer en couleur si votre imprimante n'a qu'une seule cartouche de toner BLACK ; au mieux, vous pourrez quand même avoir des nuances de gris.

dhany

Merci à vous,

La première réponse de Jean-Eric répond parfaitement à ce que je souhaitais.

Merci et à une prochaine fois.