Impression publipostage en A5 avec VBA

[sempere]

Bonjour à tous,
J'ai un classeur excel, un userform qui lance le publipostage dans word, et mes fiches en sortie sont au format A5.
Comment faire pour que deux s'impriment sur une page ?
Je joins mon code à tout hasard, et je vous remercie infiniment pour votre aide.
CS.

Private Sub CommandButton1_Click()
    Dim docWord As Word.Document
    Dim appWord As Word.Application
    Dim NomBase As String
    
    NomBase = Application.GetOpenFilename("Nom fichier,*.xls")
Dim wkbCib As Workbook
Dim wksCib As Worksheet
Dim dernLigCib As Integer
Set wkbCib = ActiveWorkbook
Set wksCib = wkbCib.Worksheets("Base")
Dim nom As String
nom = Application.GetOpenFilename("Nom fichier,*.docx")
    Application.ScreenUpdating = False
    Set appWord = New Word.Application
    appWord.Visible = True
    Set docWord = appWord.Documents.Open(nom)
    With docWord.mailMerge
        .OpenDataSource Name:=NomBase, _
            Connection:="Driver={Microsoft Excel Driver (*.xls)};" & _
            "DBQ=" & NomBase & "; ReadOnly=True;", _
            SQLStatement:="SELECT * FROM [Base$]"
        .Destination = wdSendToPrinter
        .suppressBlankLines = True
            With .DataSource
                .firstRecord = wdDefaultFirstRecord
                .lastRecord = wdDefaultLastRecord
            End With
        .Execute Pause:=False
    End With
    Application.ScreenUpdating = True
    docWord.Close False
    appWord.Quit
End Sub

 

[Compte Supprimé 979]

Re : Impression publipostage en A5 avec VBA

Bonjour Sempere

Dans ton code il n'y a rien à faire ... c'est juste un publipostage de base

Il faut modifier ton document principal word et insérer un nouveau tableau de champs ainsi que devant ces champs, l'option <SUIVANT>

A+

 

[chris]

Re : Impression publipostage en A5 avec VBA

Bonjour
Bise à Bruno

Selon la disposition (pleine page A4), on peut aussi régler cela à l'impression en forçant 2 pages par A4.

En VBA il faut paramétrer la commande Application.PrintOut avec PrintZoomColumn:=2

 

[sempere]

Re : Impression publipostage en A5 avec VBA

Merci pour les réponse,
PrintZoomColumn:=2 me conviendrait au poil, mais j'ai tout essayé, et je ne vois pas où la mettre...
Help!

 

[chris]

Re : Impression publipostage en A5 avec VBA

Re

Dans ton code tu fermes le fichier Word sans l'imprimer : la commande proposée est liée à l'impression du document fusionné.

 

[sempere]

Re : Impression publipostage en A5 avec VBA

Je comprends encore moins : Avec mon code, l'impression se lance ! (je l'ai bien testé 3 fois).
Pourquoi dis-tu que je n'imprime pas ?
Merci de m'éclairer un peu.
CS.

 

[Compte Supprimé 979]

Re : Impression publipostage en A5 avec VBA

Salut Sempere
Bise à toi Chris

Je pense que Chris n'as pas vu le SendToPrinter

With docWord.mailMerge
        .OpenDataSource Name:=NomBase, _
            Connection:="Driver={Microsoft Excel Driver (*.xls)};" & _
            "DBQ=" & NomBase & "; ReadOnly=True;", _
            SQLStatement:="SELECT * FROM [Base$]"
        [COLOR=green][B]DocWord.PrintZoomColumn:=2
[/B][/COLOR]       [COLOR=blue][B] .Destination = wdSendToPrinter
[/B][/COLOR]        .suppressBlankLines = True
            With .DataSource
                .firstRecord = wdDefaultFirstRecord
                .lastRecord = wdDefaultLastRecord
            End With
        .Execute Pause:=False
    End With

A+

 

[sempere]

Re : Impression publipostage en A5 avec VBA

Merci pour la réponse mais cela ne fonctionne pas du tout : Erreur de compilation.
Placée là, cette instruction est refusée.
Help!

 

[sempere]

Re : Impression publipostage en A5 avec VBA

Il n'y a plus personne ?
Help!

 

[Compte Supprimé 979]

Re : Impression publipostage en A5 avec VBA

Bonjour Sempere

Si tu veux des réponses, merci de nous joindre tes fichiers Excel et Word

A+

 

[sempere]

Re : Impression publipostage en A5 avec VBA

Merci de proposer de l'aide.
Mes fichiers font environ 120Ko, et sont rejetés.
Je les place là.
Merci encore,
CS.

 

[sempere]

Re : Impression publipostage en A5 avec VBA

Désolé de vous relancer, mais je ne parviens toujours pas à trouver une solution à mon problème...
Merci de bien vouloir m'aider.
CS.

 

[Compte Supprimé 979]

Re : Impression publipostage en A5 avec VBA

Bonjour,

Désolé de vous relancer, mais je ne parviens toujours pas à trouver une solution à mon problème...

Parce que je pense qu'il n'y en a pas