bouton imprimer

[Loulou]

bonjour au forum, je recherche une macro à integrer dans un bouton pour imprimer ma feuille excel avec l'option broullion si possible.

Merci pour votre aide

 

[lio]

Salut Loulou,

Va dans les très bonnes pages WIKI de michel ( à gauche de ton écran) , tu devrais y trouver ton bonheur.

 

[Dull]

Salut Loulou, Lio 🙂 le Forum,

un essai (effectivement 'emprunté' sur le Wiki de Michel)

Sub impressionNoirEtBlanc()
With Worksheets('Feuil1')
.pageSetup.blackAndWhite = True 'parametrage N&B
.printOut 'imprimer
.pageSetup.blackAndWhite = False'réinitialisation
End With
End Sub

PS: regardes la Page 4

 

[MichelXld]

bonsoir Loulou , Lio , et Didier

Didier , la macro que tu proposes permet d'imprimer en Noir et Blanc , mais pas spécialement en mode brouillon

Loulou , tu peux aussi tester la propriété PrintQuality qui permet de définir la qualité d'impression ....mais ne fonctionne pas sur toutes les imprimantes....
Ci joint un extrait de l'aide en ligne Excel

PrintQuality, propriété
Cette propriété renvoie ou définit la qualité d'impression. Type de données Variant en lecture-écriture.

expression.PrintQuality(Index)
expression Obligatoire. Expression qui renvoie un objet PageSetup.

Index Argument de type Variant facultatif. Qualité d'impression horizontale (1) ou qualité d'impression verticale (2). Certaines imprimantes ne prennent pas en charge la qualité d'impression verticale. Si vous ne spécifiez pas cet argument, la propriété PrintQuality renvoie (ou peut être définie sur) un tableau à deux éléments qui contient la qualité d'impression horizontale et verticale.

Exemples
Cet exemple montre comment définir la qualité d'impression sur une imprimante avec des pixels non carrés. Le tableau indique à la fois la qualité d'impression horizontale et verticale. Cet exemple peut générer une erreur, selon le pilote d'imprimante que vous utilisez.

Worksheets('Sheet1').PageSetup.PrintQuality = Array(240, 140)
Cet exemple montre comment afficher le paramètre courant de la qualité d'impression horizontale.

MsgBox 'Horizontal Print Quality is ' & _
Worksheets('Sheet1').PageSetup.PrintQuality(1)

bonne soirée
MichelXld