Bonjour,
j'ai créé un formulaire Outlook personnalisé. Le seul problème est que je ne
peux pas imprimer normalement le formulaire (tel qu'il s'affiche à l'écran!!)
je suis allée consulter les aides et j'ai vu une solution proposée par
Microsoft : créer un bouton imprimer et rajouter du code vbs)
Le problème, c'est que avant d'envoyer le formulaire, je peux l'imprimer,
par contre si il est envoyé le bouton ne fonctionne plus!!!!
Je pense qu'il doit y avoir d'autres paramêtres!!
Merci de votre aide!!
Bonjour,
j'ai créé un formulaire Outlook personnalisé. Le seul problème est que je ne
peux pas imprimer normalement le formulaire (tel qu'il s'affiche à l'écran!!)
je suis allée consulter les aides et j'ai vu une solution proposée par
Microsoft : créer un bouton imprimer et rajouter du code vbs)
Le problème, c'est que avant d'envoyer le formulaire, je peux l'imprimer,
par contre si il est envoyé le bouton ne fonctionne plus!!!!
Je pense qu'il doit y avoir d'autres paramêtres!!
Merci de votre aide!!
Bonjour,
j'ai créé un formulaire Outlook personnalisé. Le seul problème est que je ne
peux pas imprimer normalement le formulaire (tel qu'il s'affiche à l'écran!!)
je suis allée consulter les aides et j'ai vu une solution proposée par
Microsoft : créer un bouton imprimer et rajouter du code vbs)
Le problème, c'est que avant d'envoyer le formulaire, je peux l'imprimer,
par contre si il est envoyé le bouton ne fonctionne plus!!!!
Je pense qu'il doit y avoir d'autres paramêtres!!
Merci de votre aide!!
Bonjour !
Ton bouton est visible au moins ?
Sinon, quel est le code ?
A+
Isa
"Julie" a écrit dans le message de
news:Bonjour,
j'ai créé un formulaire Outlook personnalisé. Le seul problème est que je ne
peux pas imprimer normalement le formulaire (tel qu'il s'affiche à l'écran!!)
je suis allée consulter les aides et j'ai vu une solution proposée par
Microsoft : créer un bouton imprimer et rajouter du code vbs)
Le problème, c'est que avant d'envoyer le formulaire, je peux l'imprimer,
par contre si il est envoyé le bouton ne fonctionne plus!!!!
Je pense qu'il doit y avoir d'autres paramêtres!!
Merci de votre aide!!
Bonjour !
Ton bouton est visible au moins ?
Sinon, quel est le code ?
A+
Isa
"Julie" <Julie@discussions.microsoft.com> a écrit dans le message de
news:754E0724-3BE3-4C8D-8728-C373E0A98CC5@microsoft.com...
Bonjour,
j'ai créé un formulaire Outlook personnalisé. Le seul problème est que je ne
peux pas imprimer normalement le formulaire (tel qu'il s'affiche à l'écran!!)
je suis allée consulter les aides et j'ai vu une solution proposée par
Microsoft : créer un bouton imprimer et rajouter du code vbs)
Le problème, c'est que avant d'envoyer le formulaire, je peux l'imprimer,
par contre si il est envoyé le bouton ne fonctionne plus!!!!
Je pense qu'il doit y avoir d'autres paramêtres!!
Merci de votre aide!!
Bonjour !
Ton bouton est visible au moins ?
Sinon, quel est le code ?
A+
Isa
"Julie" a écrit dans le message de
news:Bonjour,
j'ai créé un formulaire Outlook personnalisé. Le seul problème est que je ne
peux pas imprimer normalement le formulaire (tel qu'il s'affiche à l'écran!!)
je suis allée consulter les aides et j'ai vu une solution proposée par
Microsoft : créer un bouton imprimer et rajouter du code vbs)
Le problème, c'est que avant d'envoyer le formulaire, je peux l'imprimer,
par contre si il est envoyé le bouton ne fonctionne plus!!!!
Je pense qu'il doit y avoir d'autres paramêtres!!
Merci de votre aide!!
Bonjour!!
oui j'ai bien rajouté mon bouton dans la page de composition et le page de
lecture!!
Voici le code :
Sub cmdPrint_Click()
Set oWordApp = CreateObject("Word.Application")
If oWordApp Is Nothing Then
MsgBox "Impossible de démarrer Word."
Else
Dim oWordApp
Dim oWordDoc
Dim oBMs
Dim bolPrintBackground
' Ouvre un nouveau document
Set oDoc = oWordApp.Documents.Add
' Définit une variable objet de mise en page
Set oPS = oDoc.PageSetup
' Réduit les marges à 1,27 cm (0,5 pouces, soit 36 points)
oPS.TopMargin = 36
oPS.BottomMargin = 36
oPS.LeftMargin = 36
oPS.RightMargin = 36
' Colle la capture d'écran
oWordApp.Selection.Paste
' Centre la capture d'écran
Const wdAlignParagraphCenter = 1
oDoc.Paragraphs(1).Alignment = wdAlignParagraphCenter
' Obtient le paramétrage actuel de Word pour l'impression en arrière-plan
bolPrintBackground = oWordApp.Options.PrintBackground
' Désactive l'impression en arrière-plan
oWordApp.Options.PrintBackground = False
' Imprime le document Word
oDoc.PrintOut
' Restaure le paramétrage précédent
oWordApp.Options.PrintBackground = bolPrintBackground
' Ferme le document sans enregistrer les modifications qui lui ont été
apportées
Const wdDoNotSaveChanges = 0
oDoc.Close wdDoNotSaveChanges
' Ferme l'instance de Word
oWordApp.Quit
' Nettoie
Set oPS = Nothing
Set oDoc = Nothing
Set oWordApp = Nothing
End If
End Sub
MErci de ton aide!!
"Isabelle Prawitz" wrote:Bonjour !
Ton bouton est visible au moins ?
Sinon, quel est le code ?
A+
Isa
"Julie" a écrit dans le message de
news:Bonjour,
j'ai créé un formulaire Outlook personnalisé. Le seul problème est que je ne
peux pas imprimer normalement le formulaire (tel qu'il s'affiche à l'écran!!)
je suis allée consulter les aides et j'ai vu une solution proposée par
Microsoft : créer un bouton imprimer et rajouter du code vbs)
Le problème, c'est que avant d'envoyer le formulaire, je peux l'imprimer,
par contre si il est envoyé le bouton ne fonctionne plus!!!!
Je pense qu'il doit y avoir d'autres paramêtres!!
Merci de votre aide!!
Bonjour!!
oui j'ai bien rajouté mon bouton dans la page de composition et le page de
lecture!!
Voici le code :
Sub cmdPrint_Click()
Set oWordApp = CreateObject("Word.Application")
If oWordApp Is Nothing Then
MsgBox "Impossible de démarrer Word."
Else
Dim oWordApp
Dim oWordDoc
Dim oBMs
Dim bolPrintBackground
' Ouvre un nouveau document
Set oDoc = oWordApp.Documents.Add
' Définit une variable objet de mise en page
Set oPS = oDoc.PageSetup
' Réduit les marges à 1,27 cm (0,5 pouces, soit 36 points)
oPS.TopMargin = 36
oPS.BottomMargin = 36
oPS.LeftMargin = 36
oPS.RightMargin = 36
' Colle la capture d'écran
oWordApp.Selection.Paste
' Centre la capture d'écran
Const wdAlignParagraphCenter = 1
oDoc.Paragraphs(1).Alignment = wdAlignParagraphCenter
' Obtient le paramétrage actuel de Word pour l'impression en arrière-plan
bolPrintBackground = oWordApp.Options.PrintBackground
' Désactive l'impression en arrière-plan
oWordApp.Options.PrintBackground = False
' Imprime le document Word
oDoc.PrintOut
' Restaure le paramétrage précédent
oWordApp.Options.PrintBackground = bolPrintBackground
' Ferme le document sans enregistrer les modifications qui lui ont été
apportées
Const wdDoNotSaveChanges = 0
oDoc.Close wdDoNotSaveChanges
' Ferme l'instance de Word
oWordApp.Quit
' Nettoie
Set oPS = Nothing
Set oDoc = Nothing
Set oWordApp = Nothing
End If
End Sub
MErci de ton aide!!
"Isabelle Prawitz" wrote:
Bonjour !
Ton bouton est visible au moins ?
Sinon, quel est le code ?
A+
Isa
"Julie" <Julie@discussions.microsoft.com> a écrit dans le message de
news:754E0724-3BE3-4C8D-8728-C373E0A98CC5@microsoft.com...
Bonjour,
j'ai créé un formulaire Outlook personnalisé. Le seul problème est que je ne
peux pas imprimer normalement le formulaire (tel qu'il s'affiche à l'écran!!)
je suis allée consulter les aides et j'ai vu une solution proposée par
Microsoft : créer un bouton imprimer et rajouter du code vbs)
Le problème, c'est que avant d'envoyer le formulaire, je peux l'imprimer,
par contre si il est envoyé le bouton ne fonctionne plus!!!!
Je pense qu'il doit y avoir d'autres paramêtres!!
Merci de votre aide!!
Bonjour!!
oui j'ai bien rajouté mon bouton dans la page de composition et le page de
lecture!!
Voici le code :
Sub cmdPrint_Click()
Set oWordApp = CreateObject("Word.Application")
If oWordApp Is Nothing Then
MsgBox "Impossible de démarrer Word."
Else
Dim oWordApp
Dim oWordDoc
Dim oBMs
Dim bolPrintBackground
' Ouvre un nouveau document
Set oDoc = oWordApp.Documents.Add
' Définit une variable objet de mise en page
Set oPS = oDoc.PageSetup
' Réduit les marges à 1,27 cm (0,5 pouces, soit 36 points)
oPS.TopMargin = 36
oPS.BottomMargin = 36
oPS.LeftMargin = 36
oPS.RightMargin = 36
' Colle la capture d'écran
oWordApp.Selection.Paste
' Centre la capture d'écran
Const wdAlignParagraphCenter = 1
oDoc.Paragraphs(1).Alignment = wdAlignParagraphCenter
' Obtient le paramétrage actuel de Word pour l'impression en arrière-plan
bolPrintBackground = oWordApp.Options.PrintBackground
' Désactive l'impression en arrière-plan
oWordApp.Options.PrintBackground = False
' Imprime le document Word
oDoc.PrintOut
' Restaure le paramétrage précédent
oWordApp.Options.PrintBackground = bolPrintBackground
' Ferme le document sans enregistrer les modifications qui lui ont été
apportées
Const wdDoNotSaveChanges = 0
oDoc.Close wdDoNotSaveChanges
' Ferme l'instance de Word
oWordApp.Quit
' Nettoie
Set oPS = Nothing
Set oDoc = Nothing
Set oWordApp = Nothing
End If
End Sub
MErci de ton aide!!
"Isabelle Prawitz" wrote:Bonjour !
Ton bouton est visible au moins ?
Sinon, quel est le code ?
A+
Isa
"Julie" a écrit dans le message de
news:Bonjour,
j'ai créé un formulaire Outlook personnalisé. Le seul problème est que je ne
peux pas imprimer normalement le formulaire (tel qu'il s'affiche à l'écran!!)
je suis allée consulter les aides et j'ai vu une solution proposée par
Microsoft : créer un bouton imprimer et rajouter du code vbs)
Le problème, c'est que avant d'envoyer le formulaire, je peux l'imprimer,
par contre si il est envoyé le bouton ne fonctionne plus!!!!
Je pense qu'il doit y avoir d'autres paramêtres!!
Merci de votre aide!!
2 possibilités :
1. Les macros sont bloqués chez le destinataire, mais je suppose que tu testes d'abord en local ;-)
2. Le document à imprimer doit être le document actif, donc essaie en rajoutant avant le PrintOut : oDoc.application.Activate
A+
Isa
"Julie" a écrit dans le message de
news:Bonjour!!
oui j'ai bien rajouté mon bouton dans la page de composition et le page de
lecture!!
Voici le code :
Sub cmdPrint_Click()
Set oWordApp = CreateObject("Word.Application")
If oWordApp Is Nothing Then
MsgBox "Impossible de démarrer Word."
Else
Dim oWordApp
Dim oWordDoc
Dim oBMs
Dim bolPrintBackground
' Ouvre un nouveau document
Set oDoc = oWordApp.Documents.Add
' Définit une variable objet de mise en page
Set oPS = oDoc.PageSetup
' Réduit les marges à 1,27 cm (0,5 pouces, soit 36 points)
oPS.TopMargin = 36
oPS.BottomMargin = 36
oPS.LeftMargin = 36
oPS.RightMargin = 36
' Colle la capture d'écran
oWordApp.Selection.Paste
' Centre la capture d'écran
Const wdAlignParagraphCenter = 1
oDoc.Paragraphs(1).Alignment = wdAlignParagraphCenter
' Obtient le paramétrage actuel de Word pour l'impression en arrière-plan
bolPrintBackground = oWordApp.Options.PrintBackground
' Désactive l'impression en arrière-plan
oWordApp.Options.PrintBackground = False
' Imprime le document Word
oDoc.PrintOut
' Restaure le paramétrage précédent
oWordApp.Options.PrintBackground = bolPrintBackground
' Ferme le document sans enregistrer les modifications qui lui ont été
apportées
Const wdDoNotSaveChanges = 0
oDoc.Close wdDoNotSaveChanges
' Ferme l'instance de Word
oWordApp.Quit
' Nettoie
Set oPS = Nothing
Set oDoc = Nothing
Set oWordApp = Nothing
End If
End Sub
MErci de ton aide!!
"Isabelle Prawitz" wrote:Bonjour !
Ton bouton est visible au moins ?
Sinon, quel est le code ?
A+
Isa
"Julie" a écrit dans le message de
news:Bonjour,
j'ai créé un formulaire Outlook personnalisé. Le seul problème est que je ne
peux pas imprimer normalement le formulaire (tel qu'il s'affiche à l'écran!!)
je suis allée consulter les aides et j'ai vu une solution proposée par
Microsoft : créer un bouton imprimer et rajouter du code vbs)
Le problème, c'est que avant d'envoyer le formulaire, je peux l'imprimer,
par contre si il est envoyé le bouton ne fonctionne plus!!!!
Je pense qu'il doit y avoir d'autres paramêtres!!
Merci de votre aide!!
2 possibilités :
1. Les macros sont bloqués chez le destinataire, mais je suppose que tu testes d'abord en local ;-)
2. Le document à imprimer doit être le document actif, donc essaie en rajoutant avant le PrintOut : oDoc.application.Activate
A+
Isa
"Julie" <Julie@discussions.microsoft.com> a écrit dans le message de
news:E765EDE5-91EC-44B6-AB03-DFC814E52E8A@microsoft.com...
Bonjour!!
oui j'ai bien rajouté mon bouton dans la page de composition et le page de
lecture!!
Voici le code :
Sub cmdPrint_Click()
Set oWordApp = CreateObject("Word.Application")
If oWordApp Is Nothing Then
MsgBox "Impossible de démarrer Word."
Else
Dim oWordApp
Dim oWordDoc
Dim oBMs
Dim bolPrintBackground
' Ouvre un nouveau document
Set oDoc = oWordApp.Documents.Add
' Définit une variable objet de mise en page
Set oPS = oDoc.PageSetup
' Réduit les marges à 1,27 cm (0,5 pouces, soit 36 points)
oPS.TopMargin = 36
oPS.BottomMargin = 36
oPS.LeftMargin = 36
oPS.RightMargin = 36
' Colle la capture d'écran
oWordApp.Selection.Paste
' Centre la capture d'écran
Const wdAlignParagraphCenter = 1
oDoc.Paragraphs(1).Alignment = wdAlignParagraphCenter
' Obtient le paramétrage actuel de Word pour l'impression en arrière-plan
bolPrintBackground = oWordApp.Options.PrintBackground
' Désactive l'impression en arrière-plan
oWordApp.Options.PrintBackground = False
' Imprime le document Word
oDoc.PrintOut
' Restaure le paramétrage précédent
oWordApp.Options.PrintBackground = bolPrintBackground
' Ferme le document sans enregistrer les modifications qui lui ont été
apportées
Const wdDoNotSaveChanges = 0
oDoc.Close wdDoNotSaveChanges
' Ferme l'instance de Word
oWordApp.Quit
' Nettoie
Set oPS = Nothing
Set oDoc = Nothing
Set oWordApp = Nothing
End If
End Sub
MErci de ton aide!!
"Isabelle Prawitz" wrote:
Bonjour !
Ton bouton est visible au moins ?
Sinon, quel est le code ?
A+
Isa
"Julie" <Julie@discussions.microsoft.com> a écrit dans le message de
news:754E0724-3BE3-4C8D-8728-C373E0A98CC5@microsoft.com...
Bonjour,
j'ai créé un formulaire Outlook personnalisé. Le seul problème est que je ne
peux pas imprimer normalement le formulaire (tel qu'il s'affiche à l'écran!!)
je suis allée consulter les aides et j'ai vu une solution proposée par
Microsoft : créer un bouton imprimer et rajouter du code vbs)
Le problème, c'est que avant d'envoyer le formulaire, je peux l'imprimer,
par contre si il est envoyé le bouton ne fonctionne plus!!!!
Je pense qu'il doit y avoir d'autres paramêtres!!
Merci de votre aide!!
2 possibilités :
1. Les macros sont bloqués chez le destinataire, mais je suppose que tu testes d'abord en local ;-)
2. Le document à imprimer doit être le document actif, donc essaie en rajoutant avant le PrintOut : oDoc.application.Activate
A+
Isa
"Julie" a écrit dans le message de
news:Bonjour!!
oui j'ai bien rajouté mon bouton dans la page de composition et le page de
lecture!!
Voici le code :
Sub cmdPrint_Click()
Set oWordApp = CreateObject("Word.Application")
If oWordApp Is Nothing Then
MsgBox "Impossible de démarrer Word."
Else
Dim oWordApp
Dim oWordDoc
Dim oBMs
Dim bolPrintBackground
' Ouvre un nouveau document
Set oDoc = oWordApp.Documents.Add
' Définit une variable objet de mise en page
Set oPS = oDoc.PageSetup
' Réduit les marges à 1,27 cm (0,5 pouces, soit 36 points)
oPS.TopMargin = 36
oPS.BottomMargin = 36
oPS.LeftMargin = 36
oPS.RightMargin = 36
' Colle la capture d'écran
oWordApp.Selection.Paste
' Centre la capture d'écran
Const wdAlignParagraphCenter = 1
oDoc.Paragraphs(1).Alignment = wdAlignParagraphCenter
' Obtient le paramétrage actuel de Word pour l'impression en arrière-plan
bolPrintBackground = oWordApp.Options.PrintBackground
' Désactive l'impression en arrière-plan
oWordApp.Options.PrintBackground = False
' Imprime le document Word
oDoc.PrintOut
' Restaure le paramétrage précédent
oWordApp.Options.PrintBackground = bolPrintBackground
' Ferme le document sans enregistrer les modifications qui lui ont été
apportées
Const wdDoNotSaveChanges = 0
oDoc.Close wdDoNotSaveChanges
' Ferme l'instance de Word
oWordApp.Quit
' Nettoie
Set oPS = Nothing
Set oDoc = Nothing
Set oWordApp = Nothing
End If
End Sub
MErci de ton aide!!
"Isabelle Prawitz" wrote:Bonjour !
Ton bouton est visible au moins ?
Sinon, quel est le code ?
A+
Isa
"Julie" a écrit dans le message de
news:Bonjour,
j'ai créé un formulaire Outlook personnalisé. Le seul problème est que je ne
peux pas imprimer normalement le formulaire (tel qu'il s'affiche à l'écran!!)
je suis allée consulter les aides et j'ai vu une solution proposée par
Microsoft : créer un bouton imprimer et rajouter du code vbs)
Le problème, c'est que avant d'envoyer le formulaire, je peux l'imprimer,
par contre si il est envoyé le bouton ne fonctionne plus!!!!
Je pense qu'il doit y avoir d'autres paramêtres!!
Merci de votre aide!!
Bonjour,
tout d'abord merci pour ton aide mais j'ai essayé de rajouter :
oDoc.application.Activate
et cela ne marche pas , j'ai l'impression que rien ne se passe!
en fait quand j'éxécute le formulaire je suis donc en format composition et
ça marche, par contre quand j'envoie le formulaire (je me l'envoie) j, je
suis en format page de lecture et le bouton s'affiche mais ne lance rien!!!
comment vérifier si mes macros ne sont pas bloquées??
Merci de ton aide
Julie
"Isabelle Prawitz" wrote:2 possibilités :
1. Les macros sont bloqués chez le destinataire, mais je suppose que tu testes d'abord en local ;-)
2. Le document à imprimer doit être le document actif, donc essaie en rajoutant avant le PrintOut :
oDoc.application.Activate
A+
Isa
"Julie" a écrit dans le message de
news:Bonjour!!
oui j'ai bien rajouté mon bouton dans la page de composition et le page de
lecture!!
Voici le code :
Sub cmdPrint_Click()
Set oWordApp = CreateObject("Word.Application")
If oWordApp Is Nothing Then
MsgBox "Impossible de démarrer Word."
Else
Dim oWordApp
Dim oWordDoc
Dim oBMs
Dim bolPrintBackground
' Ouvre un nouveau document
Set oDoc = oWordApp.Documents.Add
' Définit une variable objet de mise en page
Set oPS = oDoc.PageSetup
' Réduit les marges à 1,27 cm (0,5 pouces, soit 36 points)
oPS.TopMargin = 36
oPS.BottomMargin = 36
oPS.LeftMargin = 36
oPS.RightMargin = 36
' Colle la capture d'écran
oWordApp.Selection.Paste
' Centre la capture d'écran
Const wdAlignParagraphCenter = 1
oDoc.Paragraphs(1).Alignment = wdAlignParagraphCenter
' Obtient le paramétrage actuel de Word pour l'impression en arrière-plan
bolPrintBackground = oWordApp.Options.PrintBackground
' Désactive l'impression en arrière-plan
oWordApp.Options.PrintBackground = False
' Imprime le document Word
oDoc.PrintOut
' Restaure le paramétrage précédent
oWordApp.Options.PrintBackground = bolPrintBackground
' Ferme le document sans enregistrer les modifications qui lui ont été
apportées
Const wdDoNotSaveChanges = 0
oDoc.Close wdDoNotSaveChanges
' Ferme l'instance de Word
oWordApp.Quit
' Nettoie
Set oPS = Nothing
Set oDoc = Nothing
Set oWordApp = Nothing
End If
End Sub
MErci de ton aide!!
"Isabelle Prawitz" wrote:Bonjour !
Ton bouton est visible au moins ?
Sinon, quel est le code ?
A+
Isa
"Julie" a écrit dans le message de
news:Bonjour,
j'ai créé un formulaire Outlook personnalisé. Le seul problème est que je ne
peux pas imprimer normalement le formulaire (tel qu'il s'affiche à l'écran!!)
je suis allée consulter les aides et j'ai vu une solution proposée par
Microsoft : créer un bouton imprimer et rajouter du code vbs)
Le problème, c'est que avant d'envoyer le formulaire, je peux l'imprimer,
par contre si il est envoyé le bouton ne fonctionne plus!!!!
Je pense qu'il doit y avoir d'autres paramêtres!!
Merci de votre aide!!
Bonjour,
tout d'abord merci pour ton aide mais j'ai essayé de rajouter :
oDoc.application.Activate
et cela ne marche pas , j'ai l'impression que rien ne se passe!
en fait quand j'éxécute le formulaire je suis donc en format composition et
ça marche, par contre quand j'envoie le formulaire (je me l'envoie) j, je
suis en format page de lecture et le bouton s'affiche mais ne lance rien!!!
comment vérifier si mes macros ne sont pas bloquées??
Merci de ton aide
Julie
"Isabelle Prawitz" wrote:
2 possibilités :
1. Les macros sont bloqués chez le destinataire, mais je suppose que tu testes d'abord en local ;-)
2. Le document à imprimer doit être le document actif, donc essaie en rajoutant avant le PrintOut :
oDoc.application.Activate
A+
Isa
"Julie" <Julie@discussions.microsoft.com> a écrit dans le message de
news:E765EDE5-91EC-44B6-AB03-DFC814E52E8A@microsoft.com...
Bonjour!!
oui j'ai bien rajouté mon bouton dans la page de composition et le page de
lecture!!
Voici le code :
Sub cmdPrint_Click()
Set oWordApp = CreateObject("Word.Application")
If oWordApp Is Nothing Then
MsgBox "Impossible de démarrer Word."
Else
Dim oWordApp
Dim oWordDoc
Dim oBMs
Dim bolPrintBackground
' Ouvre un nouveau document
Set oDoc = oWordApp.Documents.Add
' Définit une variable objet de mise en page
Set oPS = oDoc.PageSetup
' Réduit les marges à 1,27 cm (0,5 pouces, soit 36 points)
oPS.TopMargin = 36
oPS.BottomMargin = 36
oPS.LeftMargin = 36
oPS.RightMargin = 36
' Colle la capture d'écran
oWordApp.Selection.Paste
' Centre la capture d'écran
Const wdAlignParagraphCenter = 1
oDoc.Paragraphs(1).Alignment = wdAlignParagraphCenter
' Obtient le paramétrage actuel de Word pour l'impression en arrière-plan
bolPrintBackground = oWordApp.Options.PrintBackground
' Désactive l'impression en arrière-plan
oWordApp.Options.PrintBackground = False
' Imprime le document Word
oDoc.PrintOut
' Restaure le paramétrage précédent
oWordApp.Options.PrintBackground = bolPrintBackground
' Ferme le document sans enregistrer les modifications qui lui ont été
apportées
Const wdDoNotSaveChanges = 0
oDoc.Close wdDoNotSaveChanges
' Ferme l'instance de Word
oWordApp.Quit
' Nettoie
Set oPS = Nothing
Set oDoc = Nothing
Set oWordApp = Nothing
End If
End Sub
MErci de ton aide!!
"Isabelle Prawitz" wrote:
Bonjour !
Ton bouton est visible au moins ?
Sinon, quel est le code ?
A+
Isa
"Julie" <Julie@discussions.microsoft.com> a écrit dans le message de
news:754E0724-3BE3-4C8D-8728-C373E0A98CC5@microsoft.com...
Bonjour,
j'ai créé un formulaire Outlook personnalisé. Le seul problème est que je ne
peux pas imprimer normalement le formulaire (tel qu'il s'affiche à l'écran!!)
je suis allée consulter les aides et j'ai vu une solution proposée par
Microsoft : créer un bouton imprimer et rajouter du code vbs)
Le problème, c'est que avant d'envoyer le formulaire, je peux l'imprimer,
par contre si il est envoyé le bouton ne fonctionne plus!!!!
Je pense qu'il doit y avoir d'autres paramêtres!!
Merci de votre aide!!
Bonjour,
tout d'abord merci pour ton aide mais j'ai essayé de rajouter :
oDoc.application.Activate
et cela ne marche pas , j'ai l'impression que rien ne se passe!
en fait quand j'éxécute le formulaire je suis donc en format composition et
ça marche, par contre quand j'envoie le formulaire (je me l'envoie) j, je
suis en format page de lecture et le bouton s'affiche mais ne lance rien!!!
comment vérifier si mes macros ne sont pas bloquées??
Merci de ton aide
Julie
"Isabelle Prawitz" wrote:2 possibilités :
1. Les macros sont bloqués chez le destinataire, mais je suppose que tu testes d'abord en local ;-)
2. Le document à imprimer doit être le document actif, donc essaie en rajoutant avant le PrintOut :
oDoc.application.Activate
A+
Isa
"Julie" a écrit dans le message de
news:Bonjour!!
oui j'ai bien rajouté mon bouton dans la page de composition et le page de
lecture!!
Voici le code :
Sub cmdPrint_Click()
Set oWordApp = CreateObject("Word.Application")
If oWordApp Is Nothing Then
MsgBox "Impossible de démarrer Word."
Else
Dim oWordApp
Dim oWordDoc
Dim oBMs
Dim bolPrintBackground
' Ouvre un nouveau document
Set oDoc = oWordApp.Documents.Add
' Définit une variable objet de mise en page
Set oPS = oDoc.PageSetup
' Réduit les marges à 1,27 cm (0,5 pouces, soit 36 points)
oPS.TopMargin = 36
oPS.BottomMargin = 36
oPS.LeftMargin = 36
oPS.RightMargin = 36
' Colle la capture d'écran
oWordApp.Selection.Paste
' Centre la capture d'écran
Const wdAlignParagraphCenter = 1
oDoc.Paragraphs(1).Alignment = wdAlignParagraphCenter
' Obtient le paramétrage actuel de Word pour l'impression en arrière-plan
bolPrintBackground = oWordApp.Options.PrintBackground
' Désactive l'impression en arrière-plan
oWordApp.Options.PrintBackground = False
' Imprime le document Word
oDoc.PrintOut
' Restaure le paramétrage précédent
oWordApp.Options.PrintBackground = bolPrintBackground
' Ferme le document sans enregistrer les modifications qui lui ont été
apportées
Const wdDoNotSaveChanges = 0
oDoc.Close wdDoNotSaveChanges
' Ferme l'instance de Word
oWordApp.Quit
' Nettoie
Set oPS = Nothing
Set oDoc = Nothing
Set oWordApp = Nothing
End If
End Sub
MErci de ton aide!!
"Isabelle Prawitz" wrote:Bonjour !
Ton bouton est visible au moins ?
Sinon, quel est le code ?
A+
Isa
"Julie" a écrit dans le message de
news:Bonjour,
j'ai créé un formulaire Outlook personnalisé. Le seul problème est que je ne
peux pas imprimer normalement le formulaire (tel qu'il s'affiche à l'écran!!)
je suis allée consulter les aides et j'ai vu une solution proposée par
Microsoft : créer un bouton imprimer et rajouter du code vbs)
Le problème, c'est que avant d'envoyer le formulaire, je peux l'imprimer,
par contre si il est envoyé le bouton ne fonctionne plus!!!!
Je pense qu'il doit y avoir d'autres paramêtres!!
Merci de votre aide!!
Bonjour,
tout d'abord merci pour ton aide mais j'ai essayé de rajouter :
oDoc.application.Activate
et cela ne marche pas , j'ai l'impression que rien ne se passe!
en fait quand j'éxécute le formulaire je suis donc en format composition et
ça marche, par contre quand j'envoie le formulaire (je me l'envoie) j, je
suis en format page de lecture et le bouton s'affiche mais ne lance rien!!!
comment vérifier si mes macros ne sont pas bloquées??
Merci de ton aide
Julie
"Isabelle Prawitz" wrote:2 possibilités :
1. Les macros sont bloqués chez le destinataire, mais je suppose que tu testes d'abord en local ;-)
2. Le document à imprimer doit être le document actif, donc essaie en rajoutant avant le PrintOut : oDoc.application.Activate
A+
Isa
"Julie" a écrit dans le message de
news:Bonjour!!
oui j'ai bien rajouté mon bouton dans la page de composition et le page de
lecture!!
Voici le code :
Sub cmdPrint_Click()
Set oWordApp = CreateObject("Word.Application")
If oWordApp Is Nothing Then
MsgBox "Impossible de démarrer Word."
Else
Dim oWordApp
Dim oWordDoc
Dim oBMs
Dim bolPrintBackground
' Ouvre un nouveau document
Set oDoc = oWordApp.Documents.Add
' Définit une variable objet de mise en page
Set oPS = oDoc.PageSetup
' Réduit les marges à 1,27 cm (0,5 pouces, soit 36 points)
oPS.TopMargin = 36
oPS.BottomMargin = 36
oPS.LeftMargin = 36
oPS.RightMargin = 36
' Colle la capture d'écran
oWordApp.Selection.Paste
' Centre la capture d'écran
Const wdAlignParagraphCenter = 1
oDoc.Paragraphs(1).Alignment = wdAlignParagraphCenter
' Obtient le paramétrage actuel de Word pour l'impression en arrière-plan
bolPrintBackground = oWordApp.Options.PrintBackground
' Désactive l'impression en arrière-plan
oWordApp.Options.PrintBackground = False
' Imprime le document Word
oDoc.PrintOut
' Restaure le paramétrage précédent
oWordApp.Options.PrintBackground = bolPrintBackground
' Ferme le document sans enregistrer les modifications qui lui ont été
apportées
Const wdDoNotSaveChanges = 0
oDoc.Close wdDoNotSaveChanges
' Ferme l'instance de Word
oWordApp.Quit
' Nettoie
Set oPS = Nothing
Set oDoc = Nothing
Set oWordApp = Nothing
End If
End Sub
MErci de ton aide!!
"Isabelle Prawitz" wrote:Bonjour !
Ton bouton est visible au moins ?
Sinon, quel est le code ?
A+
Isa
"Julie" a écrit dans le message de
news:Bonjour,
j'ai créé un formulaire Outlook personnalisé. Le seul problème est que je ne
peux pas imprimer normalement le formulaire (tel qu'il s'affiche à l'écran!!)
je suis allée consulter les aides et j'ai vu une solution proposée par
Microsoft : créer un bouton imprimer et rajouter du code vbs)
Le problème, c'est que avant d'envoyer le formulaire, je peux l'imprimer,
par contre si il est envoyé le bouton ne fonctionne plus!!!!
Je pense qu'il doit y avoir d'autres paramêtres!!
Merci de votre aide!!
Bonjour,
tout d'abord merci pour ton aide mais j'ai essayé de rajouter :
oDoc.application.Activate
et cela ne marche pas , j'ai l'impression que rien ne se passe!
en fait quand j'éxécute le formulaire je suis donc en format composition et
ça marche, par contre quand j'envoie le formulaire (je me l'envoie) j, je
suis en format page de lecture et le bouton s'affiche mais ne lance rien!!!
comment vérifier si mes macros ne sont pas bloquées??
Merci de ton aide
Julie
"Isabelle Prawitz" wrote:
2 possibilités :
1. Les macros sont bloqués chez le destinataire, mais je suppose que tu testes d'abord en local ;-)
2. Le document à imprimer doit être le document actif, donc essaie en rajoutant avant le PrintOut : oDoc.application.Activate
A+
Isa
"Julie" <Julie@discussions.microsoft.com> a écrit dans le message de
news:E765EDE5-91EC-44B6-AB03-DFC814E52E8A@microsoft.com...
Bonjour!!
oui j'ai bien rajouté mon bouton dans la page de composition et le page de
lecture!!
Voici le code :
Sub cmdPrint_Click()
Set oWordApp = CreateObject("Word.Application")
If oWordApp Is Nothing Then
MsgBox "Impossible de démarrer Word."
Else
Dim oWordApp
Dim oWordDoc
Dim oBMs
Dim bolPrintBackground
' Ouvre un nouveau document
Set oDoc = oWordApp.Documents.Add
' Définit une variable objet de mise en page
Set oPS = oDoc.PageSetup
' Réduit les marges à 1,27 cm (0,5 pouces, soit 36 points)
oPS.TopMargin = 36
oPS.BottomMargin = 36
oPS.LeftMargin = 36
oPS.RightMargin = 36
' Colle la capture d'écran
oWordApp.Selection.Paste
' Centre la capture d'écran
Const wdAlignParagraphCenter = 1
oDoc.Paragraphs(1).Alignment = wdAlignParagraphCenter
' Obtient le paramétrage actuel de Word pour l'impression en arrière-plan
bolPrintBackground = oWordApp.Options.PrintBackground
' Désactive l'impression en arrière-plan
oWordApp.Options.PrintBackground = False
' Imprime le document Word
oDoc.PrintOut
' Restaure le paramétrage précédent
oWordApp.Options.PrintBackground = bolPrintBackground
' Ferme le document sans enregistrer les modifications qui lui ont été
apportées
Const wdDoNotSaveChanges = 0
oDoc.Close wdDoNotSaveChanges
' Ferme l'instance de Word
oWordApp.Quit
' Nettoie
Set oPS = Nothing
Set oDoc = Nothing
Set oWordApp = Nothing
End If
End Sub
MErci de ton aide!!
"Isabelle Prawitz" wrote:
Bonjour !
Ton bouton est visible au moins ?
Sinon, quel est le code ?
A+
Isa
"Julie" <Julie@discussions.microsoft.com> a écrit dans le message de
news:754E0724-3BE3-4C8D-8728-C373E0A98CC5@microsoft.com...
Bonjour,
j'ai créé un formulaire Outlook personnalisé. Le seul problème est que je ne
peux pas imprimer normalement le formulaire (tel qu'il s'affiche à l'écran!!)
je suis allée consulter les aides et j'ai vu une solution proposée par
Microsoft : créer un bouton imprimer et rajouter du code vbs)
Le problème, c'est que avant d'envoyer le formulaire, je peux l'imprimer,
par contre si il est envoyé le bouton ne fonctionne plus!!!!
Je pense qu'il doit y avoir d'autres paramêtres!!
Merci de votre aide!!
Bonjour,
tout d'abord merci pour ton aide mais j'ai essayé de rajouter :
oDoc.application.Activate
et cela ne marche pas , j'ai l'impression que rien ne se passe!
en fait quand j'éxécute le formulaire je suis donc en format composition et
ça marche, par contre quand j'envoie le formulaire (je me l'envoie) j, je
suis en format page de lecture et le bouton s'affiche mais ne lance rien!!!
comment vérifier si mes macros ne sont pas bloquées??
Merci de ton aide
Julie
"Isabelle Prawitz" wrote:2 possibilités :
1. Les macros sont bloqués chez le destinataire, mais je suppose que tu testes d'abord en local ;-)
2. Le document à imprimer doit être le document actif, donc essaie en rajoutant avant le PrintOut : oDoc.application.Activate
A+
Isa
"Julie" a écrit dans le message de
news:Bonjour!!
oui j'ai bien rajouté mon bouton dans la page de composition et le page de
lecture!!
Voici le code :
Sub cmdPrint_Click()
Set oWordApp = CreateObject("Word.Application")
If oWordApp Is Nothing Then
MsgBox "Impossible de démarrer Word."
Else
Dim oWordApp
Dim oWordDoc
Dim oBMs
Dim bolPrintBackground
' Ouvre un nouveau document
Set oDoc = oWordApp.Documents.Add
' Définit une variable objet de mise en page
Set oPS = oDoc.PageSetup
' Réduit les marges à 1,27 cm (0,5 pouces, soit 36 points)
oPS.TopMargin = 36
oPS.BottomMargin = 36
oPS.LeftMargin = 36
oPS.RightMargin = 36
' Colle la capture d'écran
oWordApp.Selection.Paste
' Centre la capture d'écran
Const wdAlignParagraphCenter = 1
oDoc.Paragraphs(1).Alignment = wdAlignParagraphCenter
' Obtient le paramétrage actuel de Word pour l'impression en arrière-plan
bolPrintBackground = oWordApp.Options.PrintBackground
' Désactive l'impression en arrière-plan
oWordApp.Options.PrintBackground = False
' Imprime le document Word
oDoc.PrintOut
' Restaure le paramétrage précédent
oWordApp.Options.PrintBackground = bolPrintBackground
' Ferme le document sans enregistrer les modifications qui lui ont été
apportées
Const wdDoNotSaveChanges = 0
oDoc.Close wdDoNotSaveChanges
' Ferme l'instance de Word
oWordApp.Quit
' Nettoie
Set oPS = Nothing
Set oDoc = Nothing
Set oWordApp = Nothing
End If
End Sub
MErci de ton aide!!
"Isabelle Prawitz" wrote:Bonjour !
Ton bouton est visible au moins ?
Sinon, quel est le code ?
A+
Isa
"Julie" a écrit dans le message de
news:Bonjour,
j'ai créé un formulaire Outlook personnalisé. Le seul problème est que je ne
peux pas imprimer normalement le formulaire (tel qu'il s'affiche à l'écran!!)
je suis allée consulter les aides et j'ai vu une solution proposée par
Microsoft : créer un bouton imprimer et rajouter du code vbs)
Le problème, c'est que avant d'envoyer le formulaire, je peux l'imprimer,
par contre si il est envoyé le bouton ne fonctionne plus!!!!
Je pense qu'il doit y avoir d'autres paramêtres!!
Merci de votre aide!!
J'ai essayé d'activer les macros Outils/MAcro/Sécurité......
cela ne change rien : j'ai vraiment l'impression que si on est en page de
lecture on ne peux lancer aucun bouton!!!
HELP
"Julie" wrote:Bonjour,
tout d'abord merci pour ton aide mais j'ai essayé de rajouter :
oDoc.application.Activate
et cela ne marche pas , j'ai l'impression que rien ne se passe!
en fait quand j'éxécute le formulaire je suis donc en format composition et
ça marche, par contre quand j'envoie le formulaire (je me l'envoie) j, je
suis en format page de lecture et le bouton s'affiche mais ne lance rien!!!
comment vérifier si mes macros ne sont pas bloquées??
Merci de ton aide
Julie
"Isabelle Prawitz" wrote:2 possibilités :
1. Les macros sont bloqués chez le destinataire, mais je suppose que tu testes d'abord en local ;-)
2. Le document à imprimer doit être le document actif, donc essaie en rajoutant avant le PrintOut : oDoc.application.Activate
A+
Isa
"Julie" a écrit dans le message de
news:Bonjour!!
oui j'ai bien rajouté mon bouton dans la page de composition et le page de
lecture!!
Voici le code :
Sub cmdPrint_Click()
Set oWordApp = CreateObject("Word.Application")
If oWordApp Is Nothing Then
MsgBox "Impossible de démarrer Word."
Else
Dim oWordApp
Dim oWordDoc
Dim oBMs
Dim bolPrintBackground
' Ouvre un nouveau document
Set oDoc = oWordApp.Documents.Add
' Définit une variable objet de mise en page
Set oPS = oDoc.PageSetup
' Réduit les marges à 1,27 cm (0,5 pouces, soit 36 points)
oPS.TopMargin = 36
oPS.BottomMargin = 36
oPS.LeftMargin = 36
oPS.RightMargin = 36
' Colle la capture d'écran
oWordApp.Selection.Paste
' Centre la capture d'écran
Const wdAlignParagraphCenter = 1
oDoc.Paragraphs(1).Alignment = wdAlignParagraphCenter
' Obtient le paramétrage actuel de Word pour l'impression en arrière-plan
bolPrintBackground = oWordApp.Options.PrintBackground
' Désactive l'impression en arrière-plan
oWordApp.Options.PrintBackground = False
' Imprime le document Word
oDoc.PrintOut
' Restaure le paramétrage précédent
oWordApp.Options.PrintBackground = bolPrintBackground
' Ferme le document sans enregistrer les modifications qui lui ont été
apportées
Const wdDoNotSaveChanges = 0
oDoc.Close wdDoNotSaveChanges
' Ferme l'instance de Word
oWordApp.Quit
' Nettoie
Set oPS = Nothing
Set oDoc = Nothing
Set oWordApp = Nothing
End If
End Sub
MErci de ton aide!!
"Isabelle Prawitz" wrote:Bonjour !
Ton bouton est visible au moins ?
Sinon, quel est le code ?
A+
Isa
"Julie" a écrit dans le message de
news:Bonjour,
j'ai créé un formulaire Outlook personnalisé. Le seul problème est que je ne
peux pas imprimer normalement le formulaire (tel qu'il s'affiche à l'écran!!)
je suis allée consulter les aides et j'ai vu une solution proposée par
Microsoft : créer un bouton imprimer et rajouter du code vbs)
Le problème, c'est que avant d'envoyer le formulaire, je peux l'imprimer,
par contre si il est envoyé le bouton ne fonctionne plus!!!!
Je pense qu'il doit y avoir d'autres paramêtres!!
Merci de votre aide!!
J'ai essayé d'activer les macros Outils/MAcro/Sécurité......
cela ne change rien : j'ai vraiment l'impression que si on est en page de
lecture on ne peux lancer aucun bouton!!!
HELP
"Julie" wrote:
Bonjour,
tout d'abord merci pour ton aide mais j'ai essayé de rajouter :
oDoc.application.Activate
et cela ne marche pas , j'ai l'impression que rien ne se passe!
en fait quand j'éxécute le formulaire je suis donc en format composition et
ça marche, par contre quand j'envoie le formulaire (je me l'envoie) j, je
suis en format page de lecture et le bouton s'affiche mais ne lance rien!!!
comment vérifier si mes macros ne sont pas bloquées??
Merci de ton aide
Julie
"Isabelle Prawitz" wrote:
2 possibilités :
1. Les macros sont bloqués chez le destinataire, mais je suppose que tu testes d'abord en local ;-)
2. Le document à imprimer doit être le document actif, donc essaie en rajoutant avant le PrintOut : oDoc.application.Activate
A+
Isa
"Julie" <Julie@discussions.microsoft.com> a écrit dans le message de
news:E765EDE5-91EC-44B6-AB03-DFC814E52E8A@microsoft.com...
Bonjour!!
oui j'ai bien rajouté mon bouton dans la page de composition et le page de
lecture!!
Voici le code :
Sub cmdPrint_Click()
Set oWordApp = CreateObject("Word.Application")
If oWordApp Is Nothing Then
MsgBox "Impossible de démarrer Word."
Else
Dim oWordApp
Dim oWordDoc
Dim oBMs
Dim bolPrintBackground
' Ouvre un nouveau document
Set oDoc = oWordApp.Documents.Add
' Définit une variable objet de mise en page
Set oPS = oDoc.PageSetup
' Réduit les marges à 1,27 cm (0,5 pouces, soit 36 points)
oPS.TopMargin = 36
oPS.BottomMargin = 36
oPS.LeftMargin = 36
oPS.RightMargin = 36
' Colle la capture d'écran
oWordApp.Selection.Paste
' Centre la capture d'écran
Const wdAlignParagraphCenter = 1
oDoc.Paragraphs(1).Alignment = wdAlignParagraphCenter
' Obtient le paramétrage actuel de Word pour l'impression en arrière-plan
bolPrintBackground = oWordApp.Options.PrintBackground
' Désactive l'impression en arrière-plan
oWordApp.Options.PrintBackground = False
' Imprime le document Word
oDoc.PrintOut
' Restaure le paramétrage précédent
oWordApp.Options.PrintBackground = bolPrintBackground
' Ferme le document sans enregistrer les modifications qui lui ont été
apportées
Const wdDoNotSaveChanges = 0
oDoc.Close wdDoNotSaveChanges
' Ferme l'instance de Word
oWordApp.Quit
' Nettoie
Set oPS = Nothing
Set oDoc = Nothing
Set oWordApp = Nothing
End If
End Sub
MErci de ton aide!!
"Isabelle Prawitz" wrote:
Bonjour !
Ton bouton est visible au moins ?
Sinon, quel est le code ?
A+
Isa
"Julie" <Julie@discussions.microsoft.com> a écrit dans le message de
news:754E0724-3BE3-4C8D-8728-C373E0A98CC5@microsoft.com...
Bonjour,
j'ai créé un formulaire Outlook personnalisé. Le seul problème est que je ne
peux pas imprimer normalement le formulaire (tel qu'il s'affiche à l'écran!!)
je suis allée consulter les aides et j'ai vu une solution proposée par
Microsoft : créer un bouton imprimer et rajouter du code vbs)
Le problème, c'est que avant d'envoyer le formulaire, je peux l'imprimer,
par contre si il est envoyé le bouton ne fonctionne plus!!!!
Je pense qu'il doit y avoir d'autres paramêtres!!
Merci de votre aide!!
J'ai essayé d'activer les macros Outils/MAcro/Sécurité......
cela ne change rien : j'ai vraiment l'impression que si on est en page de
lecture on ne peux lancer aucun bouton!!!
HELP
"Julie" wrote:Bonjour,
tout d'abord merci pour ton aide mais j'ai essayé de rajouter :
oDoc.application.Activate
et cela ne marche pas , j'ai l'impression que rien ne se passe!
en fait quand j'éxécute le formulaire je suis donc en format composition et
ça marche, par contre quand j'envoie le formulaire (je me l'envoie) j, je
suis en format page de lecture et le bouton s'affiche mais ne lance rien!!!
comment vérifier si mes macros ne sont pas bloquées??
Merci de ton aide
Julie
"Isabelle Prawitz" wrote:2 possibilités :
1. Les macros sont bloqués chez le destinataire, mais je suppose que tu testes d'abord en local ;-)
2. Le document à imprimer doit être le document actif, donc essaie en rajoutant avant le PrintOut : oDoc.application.Activate
A+
Isa
"Julie" a écrit dans le message de
news:Bonjour!!
oui j'ai bien rajouté mon bouton dans la page de composition et le page de
lecture!!
Voici le code :
Sub cmdPrint_Click()
Set oWordApp = CreateObject("Word.Application")
If oWordApp Is Nothing Then
MsgBox "Impossible de démarrer Word."
Else
Dim oWordApp
Dim oWordDoc
Dim oBMs
Dim bolPrintBackground
' Ouvre un nouveau document
Set oDoc = oWordApp.Documents.Add
' Définit une variable objet de mise en page
Set oPS = oDoc.PageSetup
' Réduit les marges à 1,27 cm (0,5 pouces, soit 36 points)
oPS.TopMargin = 36
oPS.BottomMargin = 36
oPS.LeftMargin = 36
oPS.RightMargin = 36
' Colle la capture d'écran
oWordApp.Selection.Paste
' Centre la capture d'écran
Const wdAlignParagraphCenter = 1
oDoc.Paragraphs(1).Alignment = wdAlignParagraphCenter
' Obtient le paramétrage actuel de Word pour l'impression en arrière-plan
bolPrintBackground = oWordApp.Options.PrintBackground
' Désactive l'impression en arrière-plan
oWordApp.Options.PrintBackground = False
' Imprime le document Word
oDoc.PrintOut
' Restaure le paramétrage précédent
oWordApp.Options.PrintBackground = bolPrintBackground
' Ferme le document sans enregistrer les modifications qui lui ont été
apportées
Const wdDoNotSaveChanges = 0
oDoc.Close wdDoNotSaveChanges
' Ferme l'instance de Word
oWordApp.Quit
' Nettoie
Set oPS = Nothing
Set oDoc = Nothing
Set oWordApp = Nothing
End If
End Sub
MErci de ton aide!!
"Isabelle Prawitz" wrote:Bonjour !
Ton bouton est visible au moins ?
Sinon, quel est le code ?
A+
Isa
"Julie" a écrit dans le message de
news:Bonjour,
j'ai créé un formulaire Outlook personnalisé. Le seul problème est que je ne
peux pas imprimer normalement le formulaire (tel qu'il s'affiche à l'écran!!)
je suis allée consulter les aides et j'ai vu une solution proposée par
Microsoft : créer un bouton imprimer et rajouter du code vbs)
Le problème, c'est que avant d'envoyer le formulaire, je peux l'imprimer,
par contre si il est envoyé le bouton ne fonctionne plus!!!!
Je pense qu'il doit y avoir d'autres paramêtres!!
Merci de votre aide!!
Isa,
pas de bol : le nom est le même : j'ai essayé de le changer de mettre
cmdPrint2 et de rajouter la commande cmdPrint2_Click() dans le code mais je
n'ai toujours pas d'impression!!!
est ce lecture = aucune action possible??
Merci,
Julie
"Julie" wrote:J'ai essayé d'activer les macros Outils/MAcro/Sécurité......
cela ne change rien : j'ai vraiment l'impression que si on est en page de
lecture on ne peux lancer aucun bouton!!!
HELP
"Julie" wrote:Bonjour,
tout d'abord merci pour ton aide mais j'ai essayé de rajouter :
oDoc.application.Activate
et cela ne marche pas , j'ai l'impression que rien ne se passe!
en fait quand j'éxécute le formulaire je suis donc en format composition et
ça marche, par contre quand j'envoie le formulaire (je me l'envoie) j, je
suis en format page de lecture et le bouton s'affiche mais ne lance rien!!!
comment vérifier si mes macros ne sont pas bloquées??
Merci de ton aide
Julie
"Isabelle Prawitz" wrote:2 possibilités :
1. Les macros sont bloqués chez le destinataire, mais je suppose que tu testes d'abord en local ;-)
2. Le document à imprimer doit être le document actif, donc essaie en rajoutant avant le PrintOut :
oDoc.application.Activate
A+
Isa
"Julie" a écrit dans le message de
news:Bonjour!!
oui j'ai bien rajouté mon bouton dans la page de composition et le page de
lecture!!
Voici le code :
Sub cmdPrint_Click()
Set oWordApp = CreateObject("Word.Application")
If oWordApp Is Nothing Then
MsgBox "Impossible de démarrer Word."
Else
Dim oWordApp
Dim oWordDoc
Dim oBMs
Dim bolPrintBackground
' Ouvre un nouveau document
Set oDoc = oWordApp.Documents.Add
' Définit une variable objet de mise en page
Set oPS = oDoc.PageSetup
' Réduit les marges à 1,27 cm (0,5 pouces, soit 36 points)
oPS.TopMargin = 36
oPS.BottomMargin = 36
oPS.LeftMargin = 36
oPS.RightMargin = 36
' Colle la capture d'écran
oWordApp.Selection.Paste
' Centre la capture d'écran
Const wdAlignParagraphCenter = 1
oDoc.Paragraphs(1).Alignment = wdAlignParagraphCenter
' Obtient le paramétrage actuel de Word pour l'impression en arrière-plan
bolPrintBackground = oWordApp.Options.PrintBackground
' Désactive l'impression en arrière-plan
oWordApp.Options.PrintBackground = False
' Imprime le document Word
oDoc.PrintOut
' Restaure le paramétrage précédent
oWordApp.Options.PrintBackground = bolPrintBackground
' Ferme le document sans enregistrer les modifications qui lui ont été
apportées
Const wdDoNotSaveChanges = 0
oDoc.Close wdDoNotSaveChanges
' Ferme l'instance de Word
oWordApp.Quit
' Nettoie
Set oPS = Nothing
Set oDoc = Nothing
Set oWordApp = Nothing
End If
End Sub
MErci de ton aide!!
"Isabelle Prawitz" wrote:Bonjour !
Ton bouton est visible au moins ?
Sinon, quel est le code ?
A+
Isa
"Julie" a écrit dans le message de
news:Bonjour,
j'ai créé un formulaire Outlook personnalisé. Le seul problème est que je ne
peux pas imprimer normalement le formulaire (tel qu'il s'affiche à l'écran!!)
je suis allée consulter les aides et j'ai vu une solution proposée par
Microsoft : créer un bouton imprimer et rajouter du code vbs)
Le problème, c'est que avant d'envoyer le formulaire, je peux l'imprimer,
par contre si il est envoyé le bouton ne fonctionne plus!!!!
Je pense qu'il doit y avoir d'autres paramêtres!!
Merci de votre aide!!
Isa,
pas de bol : le nom est le même : j'ai essayé de le changer de mettre
cmdPrint2 et de rajouter la commande cmdPrint2_Click() dans le code mais je
n'ai toujours pas d'impression!!!
est ce lecture = aucune action possible??
Merci,
Julie
"Julie" wrote:
J'ai essayé d'activer les macros Outils/MAcro/Sécurité......
cela ne change rien : j'ai vraiment l'impression que si on est en page de
lecture on ne peux lancer aucun bouton!!!
HELP
"Julie" wrote:
Bonjour,
tout d'abord merci pour ton aide mais j'ai essayé de rajouter :
oDoc.application.Activate
et cela ne marche pas , j'ai l'impression que rien ne se passe!
en fait quand j'éxécute le formulaire je suis donc en format composition et
ça marche, par contre quand j'envoie le formulaire (je me l'envoie) j, je
suis en format page de lecture et le bouton s'affiche mais ne lance rien!!!
comment vérifier si mes macros ne sont pas bloquées??
Merci de ton aide
Julie
"Isabelle Prawitz" wrote:
2 possibilités :
1. Les macros sont bloqués chez le destinataire, mais je suppose que tu testes d'abord en local ;-)
2. Le document à imprimer doit être le document actif, donc essaie en rajoutant avant le PrintOut :
oDoc.application.Activate
A+
Isa
"Julie" <Julie@discussions.microsoft.com> a écrit dans le message de
news:E765EDE5-91EC-44B6-AB03-DFC814E52E8A@microsoft.com...
Bonjour!!
oui j'ai bien rajouté mon bouton dans la page de composition et le page de
lecture!!
Voici le code :
Sub cmdPrint_Click()
Set oWordApp = CreateObject("Word.Application")
If oWordApp Is Nothing Then
MsgBox "Impossible de démarrer Word."
Else
Dim oWordApp
Dim oWordDoc
Dim oBMs
Dim bolPrintBackground
' Ouvre un nouveau document
Set oDoc = oWordApp.Documents.Add
' Définit une variable objet de mise en page
Set oPS = oDoc.PageSetup
' Réduit les marges à 1,27 cm (0,5 pouces, soit 36 points)
oPS.TopMargin = 36
oPS.BottomMargin = 36
oPS.LeftMargin = 36
oPS.RightMargin = 36
' Colle la capture d'écran
oWordApp.Selection.Paste
' Centre la capture d'écran
Const wdAlignParagraphCenter = 1
oDoc.Paragraphs(1).Alignment = wdAlignParagraphCenter
' Obtient le paramétrage actuel de Word pour l'impression en arrière-plan
bolPrintBackground = oWordApp.Options.PrintBackground
' Désactive l'impression en arrière-plan
oWordApp.Options.PrintBackground = False
' Imprime le document Word
oDoc.PrintOut
' Restaure le paramétrage précédent
oWordApp.Options.PrintBackground = bolPrintBackground
' Ferme le document sans enregistrer les modifications qui lui ont été
apportées
Const wdDoNotSaveChanges = 0
oDoc.Close wdDoNotSaveChanges
' Ferme l'instance de Word
oWordApp.Quit
' Nettoie
Set oPS = Nothing
Set oDoc = Nothing
Set oWordApp = Nothing
End If
End Sub
MErci de ton aide!!
"Isabelle Prawitz" wrote:
Bonjour !
Ton bouton est visible au moins ?
Sinon, quel est le code ?
A+
Isa
"Julie" <Julie@discussions.microsoft.com> a écrit dans le message de
news:754E0724-3BE3-4C8D-8728-C373E0A98CC5@microsoft.com...
Bonjour,
j'ai créé un formulaire Outlook personnalisé. Le seul problème est que je ne
peux pas imprimer normalement le formulaire (tel qu'il s'affiche à l'écran!!)
je suis allée consulter les aides et j'ai vu une solution proposée par
Microsoft : créer un bouton imprimer et rajouter du code vbs)
Le problème, c'est que avant d'envoyer le formulaire, je peux l'imprimer,
par contre si il est envoyé le bouton ne fonctionne plus!!!!
Je pense qu'il doit y avoir d'autres paramêtres!!
Merci de votre aide!!
Isa,
pas de bol : le nom est le même : j'ai essayé de le changer de mettre
cmdPrint2 et de rajouter la commande cmdPrint2_Click() dans le code mais je
n'ai toujours pas d'impression!!!
est ce lecture = aucune action possible??
Merci,
Julie
"Julie" wrote:J'ai essayé d'activer les macros Outils/MAcro/Sécurité......
cela ne change rien : j'ai vraiment l'impression que si on est en page de
lecture on ne peux lancer aucun bouton!!!
HELP
"Julie" wrote:Bonjour,
tout d'abord merci pour ton aide mais j'ai essayé de rajouter :
oDoc.application.Activate
et cela ne marche pas , j'ai l'impression que rien ne se passe!
en fait quand j'éxécute le formulaire je suis donc en format composition et
ça marche, par contre quand j'envoie le formulaire (je me l'envoie) j, je
suis en format page de lecture et le bouton s'affiche mais ne lance rien!!!
comment vérifier si mes macros ne sont pas bloquées??
Merci de ton aide
Julie
"Isabelle Prawitz" wrote:2 possibilités :
1. Les macros sont bloqués chez le destinataire, mais je suppose que tu testes d'abord en local ;-)
2. Le document à imprimer doit être le document actif, donc essaie en rajoutant avant le PrintOut :
oDoc.application.Activate
A+
Isa
"Julie" a écrit dans le message de
news:Bonjour!!
oui j'ai bien rajouté mon bouton dans la page de composition et le page de
lecture!!
Voici le code :
Sub cmdPrint_Click()
Set oWordApp = CreateObject("Word.Application")
If oWordApp Is Nothing Then
MsgBox "Impossible de démarrer Word."
Else
Dim oWordApp
Dim oWordDoc
Dim oBMs
Dim bolPrintBackground
' Ouvre un nouveau document
Set oDoc = oWordApp.Documents.Add
' Définit une variable objet de mise en page
Set oPS = oDoc.PageSetup
' Réduit les marges à 1,27 cm (0,5 pouces, soit 36 points)
oPS.TopMargin = 36
oPS.BottomMargin = 36
oPS.LeftMargin = 36
oPS.RightMargin = 36
' Colle la capture d'écran
oWordApp.Selection.Paste
' Centre la capture d'écran
Const wdAlignParagraphCenter = 1
oDoc.Paragraphs(1).Alignment = wdAlignParagraphCenter
' Obtient le paramétrage actuel de Word pour l'impression en arrière-plan
bolPrintBackground = oWordApp.Options.PrintBackground
' Désactive l'impression en arrière-plan
oWordApp.Options.PrintBackground = False
' Imprime le document Word
oDoc.PrintOut
' Restaure le paramétrage précédent
oWordApp.Options.PrintBackground = bolPrintBackground
' Ferme le document sans enregistrer les modifications qui lui ont été
apportées
Const wdDoNotSaveChanges = 0
oDoc.Close wdDoNotSaveChanges
' Ferme l'instance de Word
oWordApp.Quit
' Nettoie
Set oPS = Nothing
Set oDoc = Nothing
Set oWordApp = Nothing
End If
End Sub
MErci de ton aide!!
"Isabelle Prawitz" wrote:Bonjour !
Ton bouton est visible au moins ?
Sinon, quel est le code ?
A+
Isa
"Julie" a écrit dans le message de
news:Bonjour,
j'ai créé un formulaire Outlook personnalisé. Le seul problème est que je ne
peux pas imprimer normalement le formulaire (tel qu'il s'affiche à l'écran!!)
je suis allée consulter les aides et j'ai vu une solution proposée par
Microsoft : créer un bouton imprimer et rajouter du code vbs)
Le problème, c'est que avant d'envoyer le formulaire, je peux l'imprimer,
par contre si il est envoyé le bouton ne fonctionne plus!!!!
Je pense qu'il doit y avoir d'autres paramêtres!!
Merci de votre aide!!
Non, le mode lecture n'empêche pas les actions !
Je dois avouer que là je bloque !
Si tu veux tu peux m'envoyer le modèle de ton message, que je regarde si je trouve, c'est toujours plus facile visuellement !
Envoie-le moi directement, pas sur le forum.
A+
Isa
"Julie" a écrit dans le message de
news:Isa,
pas de bol : le nom est le même : j'ai essayé de le changer de mettre
cmdPrint2 et de rajouter la commande cmdPrint2_Click() dans le code mais je
n'ai toujours pas d'impression!!!
est ce lecture = aucune action possible??
Merci,
Julie
"Julie" wrote:J'ai essayé d'activer les macros Outils/MAcro/Sécurité......
cela ne change rien : j'ai vraiment l'impression que si on est en page de
lecture on ne peux lancer aucun bouton!!!
HELP
"Julie" wrote:Bonjour,
tout d'abord merci pour ton aide mais j'ai essayé de rajouter :
oDoc.application.Activate
et cela ne marche pas , j'ai l'impression que rien ne se passe!
en fait quand j'éxécute le formulaire je suis donc en format composition et
ça marche, par contre quand j'envoie le formulaire (je me l'envoie) j, je
suis en format page de lecture et le bouton s'affiche mais ne lance rien!!!
comment vérifier si mes macros ne sont pas bloquées??
Merci de ton aide
Julie
"Isabelle Prawitz" wrote:2 possibilités :
1. Les macros sont bloqués chez le destinataire, mais je suppose que tu testes d'abord en local ;-)
2. Le document à imprimer doit être le document actif, donc essaie en rajoutant avant le PrintOut :
oDoc.application.Activate
A+
Isa
"Julie" a écrit dans le message de
news:Bonjour!!
oui j'ai bien rajouté mon bouton dans la page de composition et le page de
lecture!!
Voici le code :
Sub cmdPrint_Click()
Set oWordApp = CreateObject("Word.Application")
If oWordApp Is Nothing Then
MsgBox "Impossible de démarrer Word."
Else
Dim oWordApp
Dim oWordDoc
Dim oBMs
Dim bolPrintBackground
' Ouvre un nouveau document
Set oDoc = oWordApp.Documents.Add
' Définit une variable objet de mise en page
Set oPS = oDoc.PageSetup
' Réduit les marges à 1,27 cm (0,5 pouces, soit 36 points)
oPS.TopMargin = 36
oPS.BottomMargin = 36
oPS.LeftMargin = 36
oPS.RightMargin = 36
' Colle la capture d'écran
oWordApp.Selection.Paste
' Centre la capture d'écran
Const wdAlignParagraphCenter = 1
oDoc.Paragraphs(1).Alignment = wdAlignParagraphCenter
' Obtient le paramétrage actuel de Word pour l'impression en arrière-plan
bolPrintBackground = oWordApp.Options.PrintBackground
' Désactive l'impression en arrière-plan
oWordApp.Options.PrintBackground = False
' Imprime le document Word
oDoc.PrintOut
' Restaure le paramétrage précédent
oWordApp.Options.PrintBackground = bolPrintBackground
' Ferme le document sans enregistrer les modifications qui lui ont été
apportées
Const wdDoNotSaveChanges = 0
oDoc.Close wdDoNotSaveChanges
' Ferme l'instance de Word
oWordApp.Quit
' Nettoie
Set oPS = Nothing
Set oDoc = Nothing
Set oWordApp = Nothing
End If
End Sub
MErci de ton aide!!
"Isabelle Prawitz" wrote:Bonjour !
Ton bouton est visible au moins ?
Sinon, quel est le code ?
A+
Isa
"Julie" a écrit dans le message de
news:Bonjour,
j'ai créé un formulaire Outlook personnalisé. Le seul problème est que je ne
peux pas imprimer normalement le formulaire (tel qu'il s'affiche à l'écran!!)
je suis allée consulter les aides et j'ai vu une solution proposée par
Microsoft : créer un bouton imprimer et rajouter du code vbs)
Le problème, c'est que avant d'envoyer le formulaire, je peux l'imprimer,
par contre si il est envoyé le bouton ne fonctionne plus!!!!
Je pense qu'il doit y avoir d'autres paramêtres!!
Merci de votre aide!!
Non, le mode lecture n'empêche pas les actions !
Je dois avouer que là je bloque !
Si tu veux tu peux m'envoyer le modèle de ton message, que je regarde si je trouve, c'est toujours plus facile visuellement !
Envoie-le moi directement, pas sur le forum.
A+
Isa
"Julie" <Julie@discussions.microsoft.com> a écrit dans le message de
news:2BE5F06E-335C-443E-B388-9B402F3888AC@microsoft.com...
Isa,
pas de bol : le nom est le même : j'ai essayé de le changer de mettre
cmdPrint2 et de rajouter la commande cmdPrint2_Click() dans le code mais je
n'ai toujours pas d'impression!!!
est ce lecture = aucune action possible??
Merci,
Julie
"Julie" wrote:
J'ai essayé d'activer les macros Outils/MAcro/Sécurité......
cela ne change rien : j'ai vraiment l'impression que si on est en page de
lecture on ne peux lancer aucun bouton!!!
HELP
"Julie" wrote:
Bonjour,
tout d'abord merci pour ton aide mais j'ai essayé de rajouter :
oDoc.application.Activate
et cela ne marche pas , j'ai l'impression que rien ne se passe!
en fait quand j'éxécute le formulaire je suis donc en format composition et
ça marche, par contre quand j'envoie le formulaire (je me l'envoie) j, je
suis en format page de lecture et le bouton s'affiche mais ne lance rien!!!
comment vérifier si mes macros ne sont pas bloquées??
Merci de ton aide
Julie
"Isabelle Prawitz" wrote:
2 possibilités :
1. Les macros sont bloqués chez le destinataire, mais je suppose que tu testes d'abord en local ;-)
2. Le document à imprimer doit être le document actif, donc essaie en rajoutant avant le PrintOut :
oDoc.application.Activate
A+
Isa
"Julie" <Julie@discussions.microsoft.com> a écrit dans le message de
news:E765EDE5-91EC-44B6-AB03-DFC814E52E8A@microsoft.com...
Bonjour!!
oui j'ai bien rajouté mon bouton dans la page de composition et le page de
lecture!!
Voici le code :
Sub cmdPrint_Click()
Set oWordApp = CreateObject("Word.Application")
If oWordApp Is Nothing Then
MsgBox "Impossible de démarrer Word."
Else
Dim oWordApp
Dim oWordDoc
Dim oBMs
Dim bolPrintBackground
' Ouvre un nouveau document
Set oDoc = oWordApp.Documents.Add
' Définit une variable objet de mise en page
Set oPS = oDoc.PageSetup
' Réduit les marges à 1,27 cm (0,5 pouces, soit 36 points)
oPS.TopMargin = 36
oPS.BottomMargin = 36
oPS.LeftMargin = 36
oPS.RightMargin = 36
' Colle la capture d'écran
oWordApp.Selection.Paste
' Centre la capture d'écran
Const wdAlignParagraphCenter = 1
oDoc.Paragraphs(1).Alignment = wdAlignParagraphCenter
' Obtient le paramétrage actuel de Word pour l'impression en arrière-plan
bolPrintBackground = oWordApp.Options.PrintBackground
' Désactive l'impression en arrière-plan
oWordApp.Options.PrintBackground = False
' Imprime le document Word
oDoc.PrintOut
' Restaure le paramétrage précédent
oWordApp.Options.PrintBackground = bolPrintBackground
' Ferme le document sans enregistrer les modifications qui lui ont été
apportées
Const wdDoNotSaveChanges = 0
oDoc.Close wdDoNotSaveChanges
' Ferme l'instance de Word
oWordApp.Quit
' Nettoie
Set oPS = Nothing
Set oDoc = Nothing
Set oWordApp = Nothing
End If
End Sub
MErci de ton aide!!
"Isabelle Prawitz" wrote:
Bonjour !
Ton bouton est visible au moins ?
Sinon, quel est le code ?
A+
Isa
"Julie" <Julie@discussions.microsoft.com> a écrit dans le message de
news:754E0724-3BE3-4C8D-8728-C373E0A98CC5@microsoft.com...
Bonjour,
j'ai créé un formulaire Outlook personnalisé. Le seul problème est que je ne
peux pas imprimer normalement le formulaire (tel qu'il s'affiche à l'écran!!)
je suis allée consulter les aides et j'ai vu une solution proposée par
Microsoft : créer un bouton imprimer et rajouter du code vbs)
Le problème, c'est que avant d'envoyer le formulaire, je peux l'imprimer,
par contre si il est envoyé le bouton ne fonctionne plus!!!!
Je pense qu'il doit y avoir d'autres paramêtres!!
Merci de votre aide!!
Non, le mode lecture n'empêche pas les actions !
Je dois avouer que là je bloque !
Si tu veux tu peux m'envoyer le modèle de ton message, que je regarde si je trouve, c'est toujours plus facile visuellement !
Envoie-le moi directement, pas sur le forum.
A+
Isa
"Julie" a écrit dans le message de
news:Isa,
pas de bol : le nom est le même : j'ai essayé de le changer de mettre
cmdPrint2 et de rajouter la commande cmdPrint2_Click() dans le code mais je
n'ai toujours pas d'impression!!!
est ce lecture = aucune action possible??
Merci,
Julie
"Julie" wrote:J'ai essayé d'activer les macros Outils/MAcro/Sécurité......
cela ne change rien : j'ai vraiment l'impression que si on est en page de
lecture on ne peux lancer aucun bouton!!!
HELP
"Julie" wrote:Bonjour,
tout d'abord merci pour ton aide mais j'ai essayé de rajouter :
oDoc.application.Activate
et cela ne marche pas , j'ai l'impression que rien ne se passe!
en fait quand j'éxécute le formulaire je suis donc en format composition et
ça marche, par contre quand j'envoie le formulaire (je me l'envoie) j, je
suis en format page de lecture et le bouton s'affiche mais ne lance rien!!!
comment vérifier si mes macros ne sont pas bloquées??
Merci de ton aide
Julie
"Isabelle Prawitz" wrote:2 possibilités :
1. Les macros sont bloqués chez le destinataire, mais je suppose que tu testes d'abord en local ;-)
2. Le document à imprimer doit être le document actif, donc essaie en rajoutant avant le PrintOut :
oDoc.application.Activate
A+
Isa
"Julie" a écrit dans le message de
news:Bonjour!!
oui j'ai bien rajouté mon bouton dans la page de composition et le page de
lecture!!
Voici le code :
Sub cmdPrint_Click()
Set oWordApp = CreateObject("Word.Application")
If oWordApp Is Nothing Then
MsgBox "Impossible de démarrer Word."
Else
Dim oWordApp
Dim oWordDoc
Dim oBMs
Dim bolPrintBackground
' Ouvre un nouveau document
Set oDoc = oWordApp.Documents.Add
' Définit une variable objet de mise en page
Set oPS = oDoc.PageSetup
' Réduit les marges à 1,27 cm (0,5 pouces, soit 36 points)
oPS.TopMargin = 36
oPS.BottomMargin = 36
oPS.LeftMargin = 36
oPS.RightMargin = 36
' Colle la capture d'écran
oWordApp.Selection.Paste
' Centre la capture d'écran
Const wdAlignParagraphCenter = 1
oDoc.Paragraphs(1).Alignment = wdAlignParagraphCenter
' Obtient le paramétrage actuel de Word pour l'impression en arrière-plan
bolPrintBackground = oWordApp.Options.PrintBackground
' Désactive l'impression en arrière-plan
oWordApp.Options.PrintBackground = False
' Imprime le document Word
oDoc.PrintOut
' Restaure le paramétrage précédent
oWordApp.Options.PrintBackground = bolPrintBackground
' Ferme le document sans enregistrer les modifications qui lui ont été
apportées
Const wdDoNotSaveChanges = 0
oDoc.Close wdDoNotSaveChanges
' Ferme l'instance de Word
oWordApp.Quit
' Nettoie
Set oPS = Nothing
Set oDoc = Nothing
Set oWordApp = Nothing
End If
End Sub
MErci de ton aide!!
"Isabelle Prawitz" wrote:Bonjour !
Ton bouton est visible au moins ?
Sinon, quel est le code ?
A+
Isa
"Julie" a écrit dans le message de
news:Bonjour,
j'ai créé un formulaire Outlook personnalisé. Le seul problème est que je ne
peux pas imprimer normalement le formulaire (tel qu'il s'affiche à l'écran!!)
je suis allée consulter les aides et j'ai vu une solution proposée par
Microsoft : créer un bouton imprimer et rajouter du code vbs)
Le problème, c'est que avant d'envoyer le formulaire, je peux l'imprimer,
par contre si il est envoyé le bouton ne fonctionne plus!!!!
Je pense qu'il doit y avoir d'autres paramêtres!!
Merci de votre aide!!
Bonjour,
j'ai créé un formulaire Outlook personnalisé. Le seul
problème est que je ne
peux pas imprimer normalement le formulaire (tel qu'il s'affiche à
l'écran!!)
je suis allée consulter les aides et j'ai vu une solution
proposée par
Microsoft : créer un bouton imprimer et rajouter du code vbs)
Le problème, c'est que avant d'envoyer le formulaire, je peux
l'imprimer,
par contre si il est envoyé le bouton ne fonctionne plus!!!!
Je pense qu'il doit y avoir d'autres paramêtres!!
Merci de votre aide!!
Bonjour,
j'ai créé un formulaire Outlook personnalisé. Le seul
problème est que je ne
peux pas imprimer normalement le formulaire (tel qu'il s'affiche à
l'écran!!)
je suis allée consulter les aides et j'ai vu une solution
proposée par
Microsoft : créer un bouton imprimer et rajouter du code vbs)
Le problème, c'est que avant d'envoyer le formulaire, je peux
l'imprimer,
par contre si il est envoyé le bouton ne fonctionne plus!!!!
Je pense qu'il doit y avoir d'autres paramêtres!!
Merci de votre aide!!
Bonjour,
j'ai créé un formulaire Outlook personnalisé. Le seul
problème est que je ne
peux pas imprimer normalement le formulaire (tel qu'il s'affiche à
l'écran!!)
je suis allée consulter les aides et j'ai vu une solution
proposée par
Microsoft : créer un bouton imprimer et rajouter du code vbs)
Le problème, c'est que avant d'envoyer le formulaire, je peux
l'imprimer,
par contre si il est envoyé le bouton ne fonctionne plus!!!!
Je pense qu'il doit y avoir d'autres paramêtres!!
Merci de votre aide!!
