Regler marge d'impression Word depuis Excel

[deca]

Bonjour,
j'ai fait un petit code qui fait du "publipostage"
Mon problème est que l'impression se fait sans respecter les marges de Word, du coup mon édition se fait sur 2 feuilles et en plus les en-tetes et pieds de pages du doc Word ne sont pas imprimés.
Bien sur si j'imprime le doc word directement de Word, le fichier s'imprime correctement.

Voici le code :
Si quelqu'un a une idée.

Private Sub CommandButton_OK_Click()
    
    
    Dim WordDoc As Word.Document
    Dim WordDoc2 As Word.Document
    Dim WordApp As Word.Application
    Dim Texte As String
    Dim NomWord As String, NomWord2 As String
    Dim NomExcel As String, Ligne As Long, Chemin As String
    
    'On Error GoTo Erreur:
    ' Ligne de départ des données du fichier Excel est 5
    Ligne = 5
    
    Chemin = Me.TextBox_Chemin & "\"
    NomExcel = Me.TextBox_Nom_Excel
    NomWord = Me.TextBox_Nom_Word
    Windows(NomExcel).Activate
    Do While Cells(Ligne, 1) <> ""
    
        Texte = Cells(Ligne, 1) & " " & Cells(Ligne, 2) & " " & Cells(Ligne, 3) & " " & Cells(Ligne, 4) & " " & Cells(Ligne, 5)
        
        Set WordApp = CreateObject("Word.Application")
        Set WordDoc = GetObject(Chemin & NomWord)
        
        WordDoc.Range.Select
        WordDoc.Content.Copy
            
        WordApp.Documents.Add.Activate
        WordApp.Visible = False
        NomWord2 = WordApp.ActiveDocument.Name
        Set WordDoc2 = GetObject(NomWord2)
        
        WordApp.Selection.Paste
        
        WordDoc2.Bookmarks("texte").Range.Text = Texte
        
        WordDoc2.PrintOut
        
        WordDoc2.Close SaveChanges:=wdDoNotSaveChanges    'Ferme le doc actif sans l'enregistrer
        'ActiveWindow.Close SaveChanges:=wdDoNotSaveChanges     'Ferme la fenêtre active sans l'enregistrer
        
        Ligne = Ligne + 1
        
    Loop
    UserForm_PubliWord.Hide
    
    End

'Erreur:
'MsgBox "Erreur du programme, vérifiez l'extension des fichiers saisis dans le masque de saisie, le chemin, attention, le chemin ne doit pas finir par \. Sinon contactez Vincent LANDI : vincent@landi.biz"
'
End Sub

 

[deca]

Re : Regler marge d'impression Word depuis Excel

Laissez tomber.
Ce n'était pas un pb d'impression mais de copie.
Lorsque je copiais le document, jene copiais ni ses marges nis ses pieds de pages.
Alors forcément.

J'ai changé ma macro du coup j'un autre problème (mais j'avance)
Que je vais soumettre dans un nouveau fil.