Discussion :

[ericboul]

Je suis dans VBA avec Access 2007 et j'ai des problèmes pour imprimer seulement certaines pages d'un document Word ouvert.

Alors que je veux imprimer 3 pages à la fois, cela imprime le total (12).
J'ai essayé 3 façon avec un document Word et cela donne le même résultat, je ne comprend pas.

Voici mon code:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
            glo_WordAppl.Activate
            DoEvents
 
            Set glo_WordDoc = glo_WordAppl.ActiveDocument
            DoEvents
 
            'EBO 2019-04-01 - Nombre de pages par envoi...
            vl_NbrPagesEnvoi = glo_WordDoc.ActiveWindow.Panes(1).Pages.Count / vl_tableRequete.RecordCount
 
 
            vl_tableRequete.MoveFirst
            DoEvents
 
            vl_PageDepart = 1
            vl_PageFin = vl_NbrPagesEnvoi
 
            Do Until vl_tableRequete.EOF
 
                vl_PagesFromTo = CStr(vl_PageDepart) & "-" & CStr(vl_PageFin)
 
               'Impression...
'''glo_WordAppl.ActiveDocument.PrintOut Range:=wdPrintFromTo, From:=vl_PageDepart, _
'''   To:=vl_PageFin, Copies:=p_NbrCopies, Collate:=False
 
'''glo_WordDoc.PrintOut Background:=False, Range:=wdPrintRangeOfPages, Copies:=p_NbrCopies, _
'''   Pages:=vl_PagesFromTo
 
'''glo_WordDoc.PrintOut Background:=False, Range:=wdPrintAllDocument, Copies:=p_NbrCopies, _
'''   Pages:=Format$(vl_PageDepart & "-" & vl_PageFin), Collate:=False
 
               vl_tableRequete.MoveNext
 
               vl_PageDepart = vl_PageDepart + vl_NbrPagesEnvoi
               vl_PageFin = vl_PageFin + vl_NbrPagesEnvoi
 
            Loop
 
            vl_tableRequete.Close

[EricDgn]

Bonjour,

A essayer:

Code :

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

1
2
3
4
5
    glo_WordAppl.ActiveDocument.PrintOut Range:=wdPrintFromTo, From:=CStr(vl_PageDepart), _
        To:=CStr(vl_PageFin), Copies:=CStr(p_NbrCopies), Collate:=False
 
    glo_WordAppl.ActiveDocument.PrintOut Range:=3, From:=CStr(vl_PageDepart), _
        To:=CStr(vl_PageFin), Copies:=CStr(p_NbrCopies), Collate:=False

Cordialement.