Vba option d’impression

[gam]

Bonjour

_Avec le code suivant j'imprime un devis en couleur (l'originale pour le client ) et un double en noir et blanc que je conserve , actuellement avec une d'image de fond fait a l'aide du "Pied de page", j'aimerai que lors de impression du double le "pied de page" soit désactivée pour une économie d'encre .
_Existe t'il un bout de code permettant de supprimer un pied de page ?

Sub ImprimerOriginalCopie_QuandClic()
'
'
'
' Touche de raccourci du clavier: Ctrl+i
If (Range("G1").Value = "") Then
LaisserLaTva.Show
End If

With ActiveSheet.PageSetup
.BlackAndWhite = True
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

With ActiveSheet.PageSetup
.BlackAndWhite = False
End With
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

If Sheets("Devis").Range("G1").Value = ("1") And Range("A10").Value = "DEVIS" Then

Sheets("TVA 5,5%").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Devis").Select
End If
ControlImprimer = 1

End Sub

Je vous remercie de vos éventuelles réponses .....

 

[Staple1600]

Re : Vba option d’impression

Bonsoir

Une petite rectif en passant

.BlackAndWhite = Faste ' Non

.BlackAndWhite = False "Oui

 

[gam]

Re : Vba option d’impression

Merci pour ta vigilance Staple1600 c'est corrigé 😀 .

 

[gam]

Re : Vba option d’impression

Personne à une petite idée ?.......

 

[Staple1600]

Re : Vba option d’impression

Bonsoir

Si, j'ai une idée.

Mais j'ai tout mon temps 😉


PS: avec un fichier Exemple, je pourrai (nous pourrions) faire des tests

Ce n'est pas à nous de fournir les pièces jointes initiales 😉

 

[gam]

Re : Vba option d’impression

Bonsoir

Si, j'ai une idée.

Mais j'ai tout mon temps 😉

😉 Il faut peut être prendre rendez-vous ? 😉😀

Voici en pièce jointe Ce lien n'existe plus