Dans un document Word, j'utilise le code ci-dessous afin de masquer
l'impression des dessins.
Je souhaiterais savoir si il est possible de l'adapter afin de masquer les
tableau à l'impression.
Merci de votre aide,
FRED.
Sub FilePrint()
'FE le 13/02/07
'Cacher les filigranes lors de l'impression, mais imprimer tout de même les
CheckBox
'Car si on choisis "imprimer les dessins", les CheckBox s'impriment mais
l'image en filigrane s'imprime aussi
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Geo
Bonjour,
Dans un document Word, j'utilise le code ci-dessous afin de masquer l'impression des dessins. Je souhaiterais savoir si il est possible de l'adapter afin de masquer les tableau à l'impression.
Quasiment pareil sauf : Il faut balayer la collection des Tables et mettre la couleur du texte et du cadre à "blanc" Pour les bordures, ça donne qqch comme : For Each T In E With T.Range For Each b In .Cells.Borders b.Color = wdColorWhite Next End With Next Perso j'utilise plutôt des gris plus ou moins clairs, ça aide à comprendre la mise en page, out en optimisant l'achat des cartouches d'encre.
-- A+
Bonjour,
Dans un document Word, j'utilise le code ci-dessous afin de masquer l'impression des
dessins.
Je souhaiterais savoir si il est possible de l'adapter afin de masquer les tableau à
l'impression.
Quasiment pareil sauf :
Il faut balayer la collection des Tables
et mettre la couleur du texte et du cadre à "blanc"
Pour les bordures, ça donne qqch comme :
For Each T In E
With T.Range
For Each b In .Cells.Borders
b.Color = wdColorWhite
Next
End With
Next
Perso j'utilise plutôt des gris plus ou moins clairs, ça aide à
comprendre la mise en page, out en optimisant l'achat des cartouches
d'encre.
Dans un document Word, j'utilise le code ci-dessous afin de masquer l'impression des dessins. Je souhaiterais savoir si il est possible de l'adapter afin de masquer les tableau à l'impression.
Quasiment pareil sauf : Il faut balayer la collection des Tables et mettre la couleur du texte et du cadre à "blanc" Pour les bordures, ça donne qqch comme : For Each T In E With T.Range For Each b In .Cells.Borders b.Color = wdColorWhite Next End With Next Perso j'utilise plutôt des gris plus ou moins clairs, ça aide à comprendre la mise en page, out en optimisant l'achat des cartouches d'encre.
-- A+
Fred
Bonjour Geo,
Merci beaucoup pour ta réponse. J'essaie de suite.
FRED
"Geo" a écrit dans le message de news:
Bonjour,
Dans un document Word, j'utilise le code ci-dessous afin de masquer l'impression des dessins. Je souhaiterais savoir si il est possible de l'adapter afin de masquer les tableau à l'impression.
Quasiment pareil sauf : Il faut balayer la collection des Tables et mettre la couleur du texte et du cadre à "blanc" Pour les bordures, ça donne qqch comme : For Each T In E With T.Range For Each b In .Cells.Borders b.Color = wdColorWhite Next End With Next Perso j'utilise plutôt des gris plus ou moins clairs, ça aide à comprendre la mise en page, out en optimisant l'achat des cartouches d'encre.
-- A+
Bonjour Geo,
Merci beaucoup pour ta réponse.
J'essaie de suite.
FRED
"Geo" <Geo@sans.pub> a écrit dans le message de
news:mn.1ad87d78c0a21bdf.41568@sans.pub...
Bonjour,
Dans un document Word, j'utilise le code ci-dessous afin de masquer
l'impression des dessins.
Je souhaiterais savoir si il est possible de l'adapter afin de masquer
les tableau à l'impression.
Quasiment pareil sauf :
Il faut balayer la collection des Tables
et mettre la couleur du texte et du cadre à "blanc"
Pour les bordures, ça donne qqch comme :
For Each T In E
With T.Range
For Each b In .Cells.Borders
b.Color = wdColorWhite
Next
End With
Next
Perso j'utilise plutôt des gris plus ou moins clairs, ça aide à comprendre
la mise en page, out en optimisant l'achat des cartouches d'encre.
Merci beaucoup pour ta réponse. J'essaie de suite.
FRED
"Geo" a écrit dans le message de news:
Bonjour,
Dans un document Word, j'utilise le code ci-dessous afin de masquer l'impression des dessins. Je souhaiterais savoir si il est possible de l'adapter afin de masquer les tableau à l'impression.
Quasiment pareil sauf : Il faut balayer la collection des Tables et mettre la couleur du texte et du cadre à "blanc" Pour les bordures, ça donne qqch comme : For Each T In E With T.Range For Each b In .Cells.Borders b.Color = wdColorWhite Next End With Next Perso j'utilise plutôt des gris plus ou moins clairs, ça aide à comprendre la mise en page, out en optimisant l'achat des cartouches d'encre.