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 ?
Je vous remercie de vos éventuelles réponses .....
_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 .....
Dernière édition: