Discussion :

[Myogtha]

Bonjour tout le monde

j'ai un petit souci avec un bouton imprimé dans un complément (.dot je crois) qui n'affiche pas les options d'impressions (recto verso...)

Voici la fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub MAIN()
'
' Print.MAIN Macro
' Macro créée le 03/08/01 par counilh
'
On Error GoTo finerror
If ActiveDocument.MailMerge.MainDocumentType = wdFormLetters Then
    LastProtect = ActiveDocument.ProtectionType
    ReadOnly = ActiveDocument.Variables.Item("READONLY")
    If (ReadOnly = "OUI") Then
        ActiveDocument.Unprotect "CWPWDSTR2503"
    End If
    ActiveDocument.MailMerge.Destination = wdSendToPrinter
    ActiveDocument.MailMerge.Execute
    If (ReadOnly = "OUI") Then
        ActiveDocument.Protect wdAllowOnlyComments, False, "CWPWDSTR2503"
    End If
Else
    Dialogs(wdDialogFilePrint).Show
End If
GoTo finok:
finerror:
    Dialogs(wdDialogFilePrint).Show
finok:
End Sub

Si quelqu'un avait juste une ch'tite idée ça m'aiderai beaucoup

@ Bientôt et merci d'avance

[Heureux-oli]

Salut,

C'est normal, ton code est censé afficher la boîte de dialogue Word standard.
Or, c'est pas Word qui permet ce choix, mais l'Operating System.

C'est pas là que ce choix se fait.

[Sepia]

Salut,

Juste pour compléter ce que te dit Heureux-Oli, modifie tes options par défaut et lors de ton impression, tu seras en RectoVerso.

Si tu ne veux pas toujours être en RectoVerso, tu te crées un 2ième driver d'imprimante (qui pointe vers la même). Dans le 1er, tu utilises le mode Recto seulement et dans le nouveau, le mode RectoVerso. Dans ta macro, tu n'as plus qu'à choisir le bon driver.

@+

[Myogtha]

d'accord mais il y a pas moyen d'afficher cette dialogue quand même via une modif du code ?

Bizarrement en changant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.Dialogs(wdDialogFilePrint).Show

ça marche....

[Heureux-oli]

Salut,

Je n'ai pas l'option Recto-Verso dans cette boîte de dialogue!

[Myogtha]

Bon je me suis loupé, j'étais en 2007 et la ça marche ;-) (dommage)
Bon effectivement j'ai pas de boite de dialogue sous word 2003
Le problème a l'air de venir d'ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ActiveDocument.MailMerge.Destination = wdSendToPrinter
    ActiveDocument.MailMerge.Execute

[Heureux-oli]

Salut,

Ce n'est pas vraiment un problème, tu demandes que la fusion se fasse sur l'imprimante et Word s'exécute.
Essaie de modifier la mise en page de ton document, tu peux définir l'impression en Recto/Verso.