Je cherche à automatiser la fusion (publipostage) d'un document vers l'imprimante sous Word en faisant une macro.
Après enregistrement de la macro, le code donne ça :
Sub Macro1()
ChangeFileOpenDirectory "C:\decade1\ODBC\"
Documents.Open FileName:="CARTE_FNMF_3VOLETS.doc", ConfirmConversions:= _
False, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto
With ActiveDocument.MailMerge
.Destination = wdSendToPrinter
.Execute
End With
ActiveDocument.Close (wdDoNotSaveChanges)
End Sub
Le problème que j'ai, c'est que lors de l'impression, Word affiche "les marges de la section 1 sont à lextérieur de la zone d'impression....etc..."
et que donc il faut valider sur OK pour forcer l'impression.
Y-a-t-il un moyen de rajouter un bout de code (option, paramètre..) en VB pour passer outre cette confirmation ?
NB : j'ai déjà enlevé la confirmation de l'enregistrement du document à la fermeture en rajoutant (wdDoNotSaveChanges). Mais pour l'impression, je trouve pas...
Merci...