Euhm si j'osais abuser, je vous demanderai si il n'y a pas un fonction VBA
qui pourrait faire quelque chose du type:
"avant d'imprimer mon document":
Selection.HeaderFooter.Shapes("Picture 1").Select
Selection.ShapeRange.Delete
Euhm si j'osais abuser, je vous demanderai si il n'y a pas un fonction VBA
qui pourrait faire quelque chose du type:
"avant d'imprimer mon document":
Selection.HeaderFooter.Shapes("Picture 1").Select
Selection.ShapeRange.Delete
Euhm si j'osais abuser, je vous demanderai si il n'y a pas un fonction VBA
qui pourrait faire quelque chose du type:
"avant d'imprimer mon document":
Selection.HeaderFooter.Shapes("Picture 1").Select
Selection.ShapeRange.Delete
Ah, mais c'est bien sûr, cela venait de là!
Cela m'arrange d'avoir la solution, mais à moitié car j'ai besoin de mon
arrière plan à l'écran mais pas à l'impression (impression d'un document
officiel sur imprimante matricielle...).
"Anacoluthe" a écrit dans le message de
news:Bonjour !
'Fred' nous a écrit ...Les champs n'apparaissent pas non plus si j'utilise, par exemple, une
imprimante du style PDF créator...
La fonction "aperçu avant impression" est grisée...
Les contrôles ne doivent pas être sélectionnés : cliquez ailleurs
dans le document pour avoir accès à l'Aperçu. Vérifiez dans
vos options d'impression que vous imprimez les images.
Anacoluthe
« Sois fidèle à ton impression. »
- COLETTE
Ah, mais c'est bien sûr, cela venait de là!
Cela m'arrange d'avoir la solution, mais à moitié car j'ai besoin de mon
arrière plan à l'écran mais pas à l'impression (impression d'un document
officiel sur imprimante matricielle...).
"Anacoluthe" <nopub_anacoluthe@Ouanadoo.fr> a écrit dans le message de
news: eEdDFL4SHHA.3428@TK2MSFTNGP04.phx.gbl...
Bonjour !
'Fred' nous a écrit ...
Les champs n'apparaissent pas non plus si j'utilise, par exemple, une
imprimante du style PDF créator...
La fonction "aperçu avant impression" est grisée...
Les contrôles ne doivent pas être sélectionnés : cliquez ailleurs
dans le document pour avoir accès à l'Aperçu. Vérifiez dans
vos options d'impression que vous imprimez les images.
Anacoluthe
« Sois fidèle à ton impression. »
- COLETTE
Ah, mais c'est bien sûr, cela venait de là!
Cela m'arrange d'avoir la solution, mais à moitié car j'ai besoin de mon
arrière plan à l'écran mais pas à l'impression (impression d'un document
officiel sur imprimante matricielle...).
"Anacoluthe" a écrit dans le message de
news:Bonjour !
'Fred' nous a écrit ...Les champs n'apparaissent pas non plus si j'utilise, par exemple, une
imprimante du style PDF créator...
La fonction "aperçu avant impression" est grisée...
Les contrôles ne doivent pas être sélectionnés : cliquez ailleurs
dans le document pour avoir accès à l'Aperçu. Vérifiez dans
vos options d'impression que vous imprimez les images.
Anacoluthe
« Sois fidèle à ton impression. »
- COLETTE
Bonjour !
'Fred' nous a écrit ...Euhm si j'osais abuser, je vous demanderai si il n'y a pas un fonction
VBA qui pourrait faire quelque chose du type:
"avant d'imprimer mon document":
Selection.HeaderFooter.Shapes("Picture 1").Select
Selection.ShapeRange.Delete
En fait ce qu'il faut pour ne pas /supprimer/ vraiment les images
c'est les rendre invisibles puis les rétablir après l'impression.
Voici par exemple une macro discutée tout récemment avec Circé
aux Techdays (coucou Circé !)
qui imprime un document sans les images flottantes de tous les
entêtes de toutes les sections.
Cette macro peut être mise sur un bouton ou dans le menu Fichier
à côté de la commande habituelle Imprimer.
' ---------------------------------------------------------------
Sub Imprimer_Economie()
Luminosite_Images_Entetes 1
Dialogs(wdDialogFilePrint).Show
Luminosite_Images_Entetes 0.5
End Sub
---------------------------------------------------------------
Public Sub Luminosite_Images_Entetes(L As Single)
For Each S In ActiveDocument.Sections
For Each E In S.Headers
For Each F In E.Shapes
F.PictureFormat.Brightness = L
Next F: Next E: Next S
Application.ScreenRefresh
End Sub
---------------------------------------------------------------
Cette macro est perfectible en particulier si les images
ont déjà une luminosité modifiée.
Anacoluthe
« Sois fidèle à ton impression. »
- COLETTE
Bonjour !
'Fred' nous a écrit ...
Euhm si j'osais abuser, je vous demanderai si il n'y a pas un fonction
VBA qui pourrait faire quelque chose du type:
"avant d'imprimer mon document":
Selection.HeaderFooter.Shapes("Picture 1").Select
Selection.ShapeRange.Delete
En fait ce qu'il faut pour ne pas /supprimer/ vraiment les images
c'est les rendre invisibles puis les rétablir après l'impression.
Voici par exemple une macro discutée tout récemment avec Circé
aux Techdays (coucou Circé !)
qui imprime un document sans les images flottantes de tous les
entêtes de toutes les sections.
Cette macro peut être mise sur un bouton ou dans le menu Fichier
à côté de la commande habituelle Imprimer.
' ---------------------------------------------------------------
Sub Imprimer_Economie()
Luminosite_Images_Entetes 1
Dialogs(wdDialogFilePrint).Show
Luminosite_Images_Entetes 0.5
End Sub
---------------------------------------------------------------
Public Sub Luminosite_Images_Entetes(L As Single)
For Each S In ActiveDocument.Sections
For Each E In S.Headers
For Each F In E.Shapes
F.PictureFormat.Brightness = L
Next F: Next E: Next S
Application.ScreenRefresh
End Sub
---------------------------------------------------------------
Cette macro est perfectible en particulier si les images
ont déjà une luminosité modifiée.
Anacoluthe
« Sois fidèle à ton impression. »
- COLETTE
Bonjour !
'Fred' nous a écrit ...Euhm si j'osais abuser, je vous demanderai si il n'y a pas un fonction
VBA qui pourrait faire quelque chose du type:
"avant d'imprimer mon document":
Selection.HeaderFooter.Shapes("Picture 1").Select
Selection.ShapeRange.Delete
En fait ce qu'il faut pour ne pas /supprimer/ vraiment les images
c'est les rendre invisibles puis les rétablir après l'impression.
Voici par exemple une macro discutée tout récemment avec Circé
aux Techdays (coucou Circé !)
qui imprime un document sans les images flottantes de tous les
entêtes de toutes les sections.
Cette macro peut être mise sur un bouton ou dans le menu Fichier
à côté de la commande habituelle Imprimer.
' ---------------------------------------------------------------
Sub Imprimer_Economie()
Luminosite_Images_Entetes 1
Dialogs(wdDialogFilePrint).Show
Luminosite_Images_Entetes 0.5
End Sub
---------------------------------------------------------------
Public Sub Luminosite_Images_Entetes(L As Single)
For Each S In ActiveDocument.Sections
For Each E In S.Headers
For Each F In E.Shapes
F.PictureFormat.Brightness = L
Next F: Next E: Next S
Application.ScreenRefresh
End Sub
---------------------------------------------------------------
Cette macro est perfectible en particulier si les images
ont déjà une luminosité modifiée.
Anacoluthe
« Sois fidèle à ton impression. »
- COLETTE
Rebonjour Fred et bonjour Anacoluthe,Ah, mais c'est bien sûr, cela venait de là!
De quoi ? Du contrôle encore sélectionné ?
Ok pour l'aperçu avant impression grisé.Cela m'arrange d'avoir la solution, mais à moitié car j'ai besoin de mon
arrière plan à l'écran mais pas à l'impression (impression d'un document
officiel sur imprimante matricielle...).
Même si je décoche "dessins" et "Couleurs et images d'arrière-plan" dans
les options d'impression, les contrôles sont quand même imprimés.
J'ai raté quelque chose ?
--
Tisane"Anacoluthe" a écrit dans le message de
news:Bonjour !
'Fred' nous a écrit ...Les champs n'apparaissent pas non plus si j'utilise, par exemple, une
imprimante du style PDF créator...
La fonction "aperçu avant impression" est grisée...
Les contrôles ne doivent pas être sélectionnés : cliquez ailleurs
dans le document pour avoir accès à l'Aperçu. Vérifiez dans
vos options d'impression que vous imprimez les images.
Anacoluthe
« Sois fidèle à ton impression. »
- COLETTE
Rebonjour Fred et bonjour Anacoluthe,
Ah, mais c'est bien sûr, cela venait de là!
De quoi ? Du contrôle encore sélectionné ?
Ok pour l'aperçu avant impression grisé.
Cela m'arrange d'avoir la solution, mais à moitié car j'ai besoin de mon
arrière plan à l'écran mais pas à l'impression (impression d'un document
officiel sur imprimante matricielle...).
Même si je décoche "dessins" et "Couleurs et images d'arrière-plan" dans
les options d'impression, les contrôles sont quand même imprimés.
J'ai raté quelque chose ?
--
Tisane
"Anacoluthe" <nopub_anacoluthe@Ouanadoo.fr> a écrit dans le message de
news: eEdDFL4SHHA.3428@TK2MSFTNGP04.phx.gbl...
Bonjour !
'Fred' nous a écrit ...
Les champs n'apparaissent pas non plus si j'utilise, par exemple, une
imprimante du style PDF créator...
La fonction "aperçu avant impression" est grisée...
Les contrôles ne doivent pas être sélectionnés : cliquez ailleurs
dans le document pour avoir accès à l'Aperçu. Vérifiez dans
vos options d'impression que vous imprimez les images.
Anacoluthe
« Sois fidèle à ton impression. »
- COLETTE
Rebonjour Fred et bonjour Anacoluthe,Ah, mais c'est bien sûr, cela venait de là!
De quoi ? Du contrôle encore sélectionné ?
Ok pour l'aperçu avant impression grisé.Cela m'arrange d'avoir la solution, mais à moitié car j'ai besoin de mon
arrière plan à l'écran mais pas à l'impression (impression d'un document
officiel sur imprimante matricielle...).
Même si je décoche "dessins" et "Couleurs et images d'arrière-plan" dans
les options d'impression, les contrôles sont quand même imprimés.
J'ai raté quelque chose ?
--
Tisane"Anacoluthe" a écrit dans le message de
news:Bonjour !
'Fred' nous a écrit ...Les champs n'apparaissent pas non plus si j'utilise, par exemple, une
imprimante du style PDF créator...
La fonction "aperçu avant impression" est grisée...
Les contrôles ne doivent pas être sélectionnés : cliquez ailleurs
dans le document pour avoir accès à l'Aperçu. Vérifiez dans
vos options d'impression que vous imprimez les images.
Anacoluthe
« Sois fidèle à ton impression. »
- COLETTE
Merci,
Il n'est pas possible de l'exécuter sans passer par un bouton
particulier?
Merci,
Il n'est pas possible de l'exécuter sans passer par un bouton
particulier?
Merci,
Il n'est pas possible de l'exécuter sans passer par un bouton
particulier?
Fred was telling us:
Fred nous racontait que :Merci,
Il n'est pas possible de l'exécuter sans passer par un bouton
particulier?
Personnellement, je crois qu'il vaut mieux rendre les images invisibles
plutôt que de jouer avec la luminosité car dans ce cas il faut prendre en
note la luminosité de l'image avant de la modifier pour pouvoir la
rétablir à la fin de l'opération.
Si tu utilise des Sub avec les noms que je te propose(FilePrint et
FilePrintDefault), dès qu'un utilisateur fera Fichier > Imprimer, CTRL-P
ou cliquera sur le bouton Impresssion de la barre d'outils, ces Sub
intercèpteront l'action ordinaire de Word (Pas besoin de bouton spécial).
Essaie ceci basé sur le code d'Anacoluthe:
Et comme Anacoluthe l'a écrit, cela fonctionnera seulement avec les image
flottantes. Si tu as des images en ligne avec le texte, fais le savoir et
on te proposera le code nécessaire.
'_______________________________________
Sub FilePrint()
Cache_Images_Entetes False
Dialogs(wdDialogFilePrint).Show
Cache_Images_Entetes True
End Sub
'_______________________________________
'_______________________________________
Sub FilePrintDefault()
Cache_Images_Entetes False
ActiveDocument.PrintOut
Cache_Images_Entetes True
End Sub
'_______________________________________
'_______________________________________
Public Sub Cache_Images_Entetes(boolPrint As Boolean)
Dim S As Section
Dim E As HeaderFooter
Dim F As Shape
For Each S In ActiveDocument.Sections
For Each E In S.Headers
For Each F In E.Shapes
F.Visible = boolPrint
Next F
Next E
Next S
Application.ScreenRefresh
End Sub
'_______________________________________
--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
Word MVP site: http://www.word.mvps.org
Fred was telling us:
Fred nous racontait que :
Merci,
Il n'est pas possible de l'exécuter sans passer par un bouton
particulier?
Personnellement, je crois qu'il vaut mieux rendre les images invisibles
plutôt que de jouer avec la luminosité car dans ce cas il faut prendre en
note la luminosité de l'image avant de la modifier pour pouvoir la
rétablir à la fin de l'opération.
Si tu utilise des Sub avec les noms que je te propose(FilePrint et
FilePrintDefault), dès qu'un utilisateur fera Fichier > Imprimer, CTRL-P
ou cliquera sur le bouton Impresssion de la barre d'outils, ces Sub
intercèpteront l'action ordinaire de Word (Pas besoin de bouton spécial).
Essaie ceci basé sur le code d'Anacoluthe:
Et comme Anacoluthe l'a écrit, cela fonctionnera seulement avec les image
flottantes. Si tu as des images en ligne avec le texte, fais le savoir et
on te proposera le code nécessaire.
'_______________________________________
Sub FilePrint()
Cache_Images_Entetes False
Dialogs(wdDialogFilePrint).Show
Cache_Images_Entetes True
End Sub
'_______________________________________
'_______________________________________
Sub FilePrintDefault()
Cache_Images_Entetes False
ActiveDocument.PrintOut
Cache_Images_Entetes True
End Sub
'_______________________________________
'_______________________________________
Public Sub Cache_Images_Entetes(boolPrint As Boolean)
Dim S As Section
Dim E As HeaderFooter
Dim F As Shape
For Each S In ActiveDocument.Sections
For Each E In S.Headers
For Each F In E.Shapes
F.Visible = boolPrint
Next F
Next E
Next S
Application.ScreenRefresh
End Sub
'_______________________________________
--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
jmarcilREMOVE@CAPSsympatico.caTHISTOO
Word MVP site: http://www.word.mvps.org
Fred was telling us:
Fred nous racontait que :Merci,
Il n'est pas possible de l'exécuter sans passer par un bouton
particulier?
Personnellement, je crois qu'il vaut mieux rendre les images invisibles
plutôt que de jouer avec la luminosité car dans ce cas il faut prendre en
note la luminosité de l'image avant de la modifier pour pouvoir la
rétablir à la fin de l'opération.
Si tu utilise des Sub avec les noms que je te propose(FilePrint et
FilePrintDefault), dès qu'un utilisateur fera Fichier > Imprimer, CTRL-P
ou cliquera sur le bouton Impresssion de la barre d'outils, ces Sub
intercèpteront l'action ordinaire de Word (Pas besoin de bouton spécial).
Essaie ceci basé sur le code d'Anacoluthe:
Et comme Anacoluthe l'a écrit, cela fonctionnera seulement avec les image
flottantes. Si tu as des images en ligne avec le texte, fais le savoir et
on te proposera le code nécessaire.
'_______________________________________
Sub FilePrint()
Cache_Images_Entetes False
Dialogs(wdDialogFilePrint).Show
Cache_Images_Entetes True
End Sub
'_______________________________________
'_______________________________________
Sub FilePrintDefault()
Cache_Images_Entetes False
ActiveDocument.PrintOut
Cache_Images_Entetes True
End Sub
'_______________________________________
'_______________________________________
Public Sub Cache_Images_Entetes(boolPrint As Boolean)
Dim S As Section
Dim E As HeaderFooter
Dim F As Shape
For Each S In ActiveDocument.Sections
For Each E In S.Headers
For Each F In E.Shapes
F.Visible = boolPrint
Next F
Next E
Next S
Application.ScreenRefresh
End Sub
'_______________________________________
--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
Word MVP site: http://www.word.mvps.org
Personnellement, je crois qu'il vaut mieux rendre les images invisibles
plutôt que de jouer avec la luminosité car dans ce cas il faut prendre en
note la luminosité de l'image avant de la modifier pour pouvoir la rétablir
à la fin de l'opération.
For Each F In E.Shapes
F.Visible = boolPrint
Next F
Personnellement, je crois qu'il vaut mieux rendre les images invisibles
plutôt que de jouer avec la luminosité car dans ce cas il faut prendre en
note la luminosité de l'image avant de la modifier pour pouvoir la rétablir
à la fin de l'opération.
For Each F In E.Shapes
F.Visible = boolPrint
Next F
Personnellement, je crois qu'il vaut mieux rendre les images invisibles
plutôt que de jouer avec la luminosité car dans ce cas il faut prendre en
note la luminosité de l'image avant de la modifier pour pouvoir la rétablir
à la fin de l'opération.
For Each F In E.Shapes
F.Visible = boolPrint
Next F
Rebonjour Fred et bonjour Anacoluthe,
Même si je décoche "dessins" et "Couleurs et images d'arrière-plan" dans
les options d'impression, les contrôles sont quand même imprimés.
J'ai raté quelque chose ?
Rebonjour Fred et bonjour Anacoluthe,
Même si je décoche "dessins" et "Couleurs et images d'arrière-plan" dans
les options d'impression, les contrôles sont quand même imprimés.
J'ai raté quelque chose ?
Rebonjour Fred et bonjour Anacoluthe,
Même si je décoche "dessins" et "Couleurs et images d'arrière-plan" dans
les options d'impression, les contrôles sont quand même imprimés.
J'ai raté quelque chose ?
hi hi hi juste que les contrôles de Fred sont non alignés sur le texte
et que vous n'avez pas tous les deux la même option d' Édition
'Insérer/Coller les images en tant que'
pour insérer les cases à cocher ...... ;-) )))
hi hi hi juste que les contrôles de Fred sont non alignés sur le texte
et que vous n'avez pas tous les deux la même option d' Édition
'Insérer/Coller les images en tant que'
pour insérer les cases à cocher ...... ;-) )))
hi hi hi juste que les contrôles de Fred sont non alignés sur le texte
et que vous n'avez pas tous les deux la même option d' Édition
'Insérer/Coller les images en tant que'
pour insérer les cases à cocher ...... ;-) )))
Tisane,
Les champs n'apparaissent pas non plus si j'utilise, par exemple, une
imprimante du style PDF créator...
La fonction "aperçu avant impression" est grisée...
FRED.
"Tisane" a écrit dans le message de news:
45cb0c51$0$25910$Je crée un document.
Par la barre "boîte à outils contrôles" je clique-glisse une "case à
cocher.
Je désactive le mode "création".
J'enregistre ma page.
Je lance l'impression: la page est vide...
J'avais déjà créé des case à cocher sous Excel, et elles s'iprmaient,
mais je m'aperçois que la propriété "PrintObject" est introuvable sous
Word...
Elles s'impriment par défaut.
As-tu essayé de déclarer une autre imprimante ?
--
Tisane"Tisane" a écrit dans le message de news:
45cb068d$0$27391$Effectivement, ce que je souhaiterais faire c'est "imprimer" la case
avec sa coche.
Et ça ne le fait pas ? Chez moi, si. La case, cochée ou non, s'imprime.
Tu nous dis tout là ou je n'ai pas compris ?
--
TisaneBonjour Fred,Sur un document, je rajoute les contrôles "cases à cocher", ainsi
qu'une "combo box".
Pouvez-vous m'indiquer comment:
- Editer le contrôle en entier
- Editer uniquement la coche/chiffre de la combo
Editer ? En français informatique, cela signifie en gros "modifer".
Mais nombreux sont ceux qui l'utilise dans le sens "imprimer".
Tu peux préciser ce que tu veux ?
--
Tisane
Tisane,
Les champs n'apparaissent pas non plus si j'utilise, par exemple, une
imprimante du style PDF créator...
La fonction "aperçu avant impression" est grisée...
FRED.
"Tisane" <b.tisane@laposte.net> a écrit dans le message de news:
45cb0c51$0$25910$ba4acef3@news.orange.fr...
Je crée un document.
Par la barre "boîte à outils contrôles" je clique-glisse une "case à
cocher.
Je désactive le mode "création".
J'enregistre ma page.
Je lance l'impression: la page est vide...
J'avais déjà créé des case à cocher sous Excel, et elles s'iprmaient,
mais je m'aperçois que la propriété "PrintObject" est introuvable sous
Word...
Elles s'impriment par défaut.
As-tu essayé de déclarer une autre imprimante ?
--
Tisane
"Tisane" <b.tisane@laposte.net> a écrit dans le message de news:
45cb068d$0$27391$ba4acef3@news.orange.fr...
Effectivement, ce que je souhaiterais faire c'est "imprimer" la case
avec sa coche.
Et ça ne le fait pas ? Chez moi, si. La case, cochée ou non, s'imprime.
Tu nous dis tout là ou je n'ai pas compris ?
--
Tisane
Bonjour Fred,
Sur un document, je rajoute les contrôles "cases à cocher", ainsi
qu'une "combo box".
Pouvez-vous m'indiquer comment:
- Editer le contrôle en entier
- Editer uniquement la coche/chiffre de la combo
Editer ? En français informatique, cela signifie en gros "modifer".
Mais nombreux sont ceux qui l'utilise dans le sens "imprimer".
Tu peux préciser ce que tu veux ?
--
Tisane
Tisane,
Les champs n'apparaissent pas non plus si j'utilise, par exemple, une
imprimante du style PDF créator...
La fonction "aperçu avant impression" est grisée...
FRED.
"Tisane" a écrit dans le message de news:
45cb0c51$0$25910$Je crée un document.
Par la barre "boîte à outils contrôles" je clique-glisse une "case à
cocher.
Je désactive le mode "création".
J'enregistre ma page.
Je lance l'impression: la page est vide...
J'avais déjà créé des case à cocher sous Excel, et elles s'iprmaient,
mais je m'aperçois que la propriété "PrintObject" est introuvable sous
Word...
Elles s'impriment par défaut.
As-tu essayé de déclarer une autre imprimante ?
--
Tisane"Tisane" a écrit dans le message de news:
45cb068d$0$27391$Effectivement, ce que je souhaiterais faire c'est "imprimer" la case
avec sa coche.
Et ça ne le fait pas ? Chez moi, si. La case, cochée ou non, s'imprime.
Tu nous dis tout là ou je n'ai pas compris ?
--
TisaneBonjour Fred,Sur un document, je rajoute les contrôles "cases à cocher", ainsi
qu'une "combo box".
Pouvez-vous m'indiquer comment:
- Editer le contrôle en entier
- Editer uniquement la coche/chiffre de la combo
Editer ? En français informatique, cela signifie en gros "modifer".
Mais nombreux sont ceux qui l'utilise dans le sens "imprimer".
Tu peux préciser ce que tu veux ?
--
Tisane
