ArnaudSi
XLDnaute Nouveau
Bonjour
Je suis à la recherche d'un code VBA
- Fichier avec 5 pages à imprimer
Objectif : Imprimer la page 3 avec un filigrane rouge à 45°, (avec la mention "Copie")
On obtient ce résultat en effectuant: Fichier/Imprimer/Configuration imprimante/Filigrane, Texte : Copie, Angle 45
J'avais penser à un code de ce type; mais ce n'est pas probant...
Merci
Je suis à la recherche d'un code VBA
- Fichier avec 5 pages à imprimer
Objectif : Imprimer la page 3 avec un filigrane rouge à 45°, (avec la mention "Copie")
On obtient ce résultat en effectuant: Fichier/Imprimer/Configuration imprimante/Filigrane, Texte : Copie, Angle 45
J'avais penser à un code de ce type; mais ce n'est pas probant...
Merci
VB:
Sub Imprimer Copie()
With Sheets("Commande")
.PrintOut From:=3, To:=3, Copies:=1
ActiveSheet.Shapes.AddTextEffect(msoTextEffect3, _
"Copie")
With Selection
.ShapeRange.Fill.Visible = msoTrue
.ShapeRange.Fill.Solid
.ShapeRange.Fill.ForeColor.SchemeColor = 10
.ShapeRange.Fill.Transparency = 0.2
.ShapeRange.Line.Visible = msoTrue
.ShapeRange.IncrementRotation -35.22
.ShapeRange.IncrementLeft Mud
.ShapeRange.IncrementTop 20
End With
End With
End Sub