Impression individuelle de chaque page d'un etat

**jeanpierre62** · 20/03/2021, 06h15

Bonjour,

Je suis confronté à la problématique suivante :

Mon etat (rapport) se constitue de plusieurs pages et a l'impression chacune doit etre imprimée (ex 3 fois)
L'impression doit donc etre
Etat feuille 1 ---> imprimer 3 fois
Etat feuille 2 ---> imprimer 3 fois
...

Pour l'instant , il imprime l'etat complet 3 fois

Quelqu'un peut m'aider ?

**micniv** · 20/03/2021, 10h38

Regarde l'aide de

Code :

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

 docmd.printout

bon w-e

**jeanpierre62** · 21/03/2021, 10h10

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
39
40
41
42
43
Public Sub PrintReportToPrinter(ReportName As String, strPrinter as string, id As Long)
 
 
    Dim rpt As Report
    Dim prtr As Printer
 
    Set db = CurrentDb
 
    On Error GoTo ShowPrinters_Err
 
    Set Application.Printer = Nothing
 
 
    Set prtr = Application.Printers(strPrinter)
 
    With prtr
                    .PaperBin = 260
                    .Copies = 3
                    .Duplex = acPRDPSimplex
 
    End With
 
    DoCmd.OpenReport ReportName, acViewPreview, , "[Num_tour] =" & id, acHidden
 
     Set rpt = Reports(ReportName)
     rpt.Printer.PaperBin = prtr.PaperBin
     rpt.Printer.Copies = prtr.Copies
     rpt.Printer.Duplex = prtr.Duplex
 
    DoCmd.PrintOut acPages, , , , 3, False                   'C'est ca ?
 
 
    DoCmd.Close acReport, ReportName, acSaveNo
 
 
    Set prtr = Nothing
    set rpt = nothing
 
 
    Set Application.Printer = Nothing
 
 
End Sub

**micniv** · 21/03/2021, 18h40

As-tu seulement commencé à faire des essais ?

Cette faq devrait t'aider
https://access.developpez.com/faq/?p...ressionEtatPpP

**jeanpierre62** · 07/04/2021, 14h10

Oui, j'essaie mais je n'y arrive pas

Chaque fois, l'impression se fait sur l'ensemble et en aucune manière sur chaque page

Ma requete me retourne x records
Mais je veux imprimer le 1er 3 fois consecutivement ensuite le 2ème 3 consécutivement , etc

Mais il imprime le resultat global x fois consecutivement

**micniv** · 07/04/2021, 16h09

Alors je viens d'en faire l'essai, ça marche

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub test_print_page_N_fois()
Dim i As Long, sDoc As String
sDoc = "E_article"
DoCmd.OpenReport sDoc, acViewPreview
For i = 1 To Reports(sDoc).Pages
' imprimer chaque page 2 fois
    DoCmd.PrintOut acPages, i, i, , 2
Next
DoCmd.Close acReport, "E_article"
End Sub

Bon essai

**bertiny** · 07/04/2021, 16h58

Bonjour

Code VBA :

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

1
2
3
4
5
6
7
8
9
Dim i As Long
Dim j As Long
DoCmd.OpenReport "Num_tour", acViewPreview
For i = 1 To Reports("Num_tour").Pages
    For j = 1 To 3
    DoCmd.PrintOut acPages, i, i
    Next
Next
DoCmd.Close acReport, "Num_tour"

**jeanpierre62** · 13/04/2021, 10h47

Moi le contenu de Reports("Num_tour").Pages est toujours 0

**jeanpierre62** · 13/04/2021, 10h50

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
Public Sub PrintReportToPrinter(ReportName As String, id As Long)
 
    Dim db As DataBase
    Dim rs As Recordset
    Dim rpt As Report
    Dim prtr As Printer
 
    Set db = CurrentDb
 
    On Error GoTo ShowPrinters_Err
 
       Set Application.Printer = Nothing
 
       If EvaluateField(Forms!NavBar!Text_depotid) Then
            'Set rs = db.OpenRecordset("SELECT * FROM planisto_transport_imprimantes WHERE depotid = 5  and ReportName = '" & ReportName & "'")
 
            Set rs = db.OpenRecordset("SELECT * FROM planisto_transport_imprimantes WHERE depotid = " & Forms!NavBar!Text_depotid & " and ReportName = '" & ReportName & "'")
            'DoCmd.OpenReport stDocName, View:=acViewPreview, WindowMode:=acHidden
            'Set Reports(stDocName).Report.Printer = Application.Printers(1)
            strPrinter = rs("printername")
            strPrinter2 = rs("printername2")
 
            Set prtr = Application.Printers(strPrinter)
            GoTo Next5
Error5:
            Set prtr = Application.Printers(strPrinter2)
Next5:
 
            If EvaluateField(rs("printerdrawer")) Then
 
                'Set prtr = Application.Printers(strPrinter)
                With prtr
                    .PaperBin = rs("printerdrawer")
                    .Copies = rs("copies")
                    .Duplex = acPRDPSimplex
                    '.Duplex = acPRDPHorizontal
                    '.Duplex = acPRDPVertical
 
                End With
            Else
                'Set prtr = Application.Printers(strPrinter)
 
                With prtr
                    .PaperBin = acPRBNAuto
                    .Copies = rs("copies")
                    .Duplex = acPRDPSimplex
                    '.Duplex = acPRDPHorizontal
                End With
            End If
 
            'Set the default printer's paper bin to manual and paper size to legal
            'prtr.PaperBin = acPRBNManual
            'prtr.PaperSize = acPRPSLegal
 
            Set Application.Printer = prtr
 
 
            'open your report in hidden view to aplly print settings
            If id > 0 Then
                DoCmd.OpenReport ReportName, acViewPreview, , "[Num_tour] =" & id, acHidden
            Else
                DoCmd.OpenReport ReportName, acViewPreview, , , acHidden
            End If
 
            Msg = "There are " & Reports(ReportName).Pages & " Pages to be printed." 
            ipages = Reports(ReportName).Pages
 
            Set rpt = Reports(ReportName)
 
            rpt.Printer.PaperBin = prtr.PaperBin
            rpt.Printer.Copies = prtr.Copies
            rpt.Printer.Duplex = prtr.Duplex
 
            'Print Report
            DoCmd.OpenReport ReportName
 
 
            'Set the Printer property of the report to the Application.Printer object
            Set rpt.Printer = prtr
            'now open the report in normal view to print
            'DoCmd.OpenReport ReportName, acViewNormal, , "[Num_tour] =" & id
            'DoCmd.PrintOut acPages, , , , 3, False
            'DoCmd.Close acReport, ReportName, acSaveNo
            Set rpt = Nothing
 
            DoCmd.Close acReport, ReportName, acSaveNo
 
 
            Set Application.Printer = Nothing
 
        End If
 
ShowPrinters_End:
    Exit Sub
 
ShowPrinters_Err:
    If Err.Number = 5 Then
        GoTo Error5
    Else
        MsgBox Prompt:=Err.Description, Buttons:=vbCritical & vbOKOnly, _
        Title:="Error Number " & Err.Number & " Occurred"
        Resume ShowPrinters_End
    End If
 
 
End Sub

**micniv** · 13/04/2021, 14h14

le code ci-aprés (ton code corrgé avec ce que j'avais proposé ci-dessus) fonctionne chez moi.

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
39
40
41
42
43
44
45
46
47
48
Private Sub testReportToPrinter()
Call PrintReportToPrinter("E_article", 1)
End Sub
 
Public Sub PrintReportToPrinter(ReportName As String, id As Long)
 
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim rpt As Report
Dim prtr As Printer
 
Set db = CurrentDb
 
On Error GoTo ShowPrinters_Err
 
' ...
 
'Set the Printer property of the report to the Application.Printer object
'''Set rpt.Printer = prtr
'now open the report in normal view to print
'DoCmd.OpenReport ReportName, acViewNormal, , "[Num_tour] =" & id
DoCmd.OpenReport ReportName, acViewPreview
Dim i As Integer
'''DoCmd.PrintOut acPages, , , , 2, False
    For i = 1 To Reports(ReportName).Pages
        ' imprimer chaque page 2 fois
        DoCmd.PrintOut acPages, i, i, , 2
    Next
DoCmd.Close acReport, ReportName, acSaveNo
'''Set rpt = Nothing
 
'Set Application.Printer = Nothing
 
'End If
 
ShowPrinters_End:
Exit Sub
 
ShowPrinters_Err:
If Err.Number = 5 Then
'GoTo Error5
Else
MsgBox Prompt:=Err.Description, Buttons:=vbCritical & vbOKOnly, _
Title:="Error Number " & Err.Number & " Occurred"
Resume ShowPrinters_End
End If
 
End Sub

Pour avoir les n° de page, faut ouvrir le report avec

Code :

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

DoCmd.OpenReport ReportName, acViewPreview

Petit tétu

**jeanpierre62** · 14/04/2021, 10h12

Bonjour

dans mon cas le nombre de pages est toujours à 0

**bertiny** · 14/04/2021, 10h38

En affichant l'aperçu de ton état, combien de pages contient-il?

**jeanpierre62** · 14/04/2021, 12h12

Des que j'arrive sur une commande docmd.printout
Je sors de ma procedure

**jeanpierre62** · 14/04/2021, 12h25

Il y en a 4 !

**bertiny** · 14/04/2021, 22h45

En voyant tes images, tu as visiblement une erreur. Quel est le message d'erreur que tu as?

**micniv** · 15/04/2021, 17h10

De mon côté, je n'ai pas fait de test avec ton code .printer

J'ai utilisé dans le passé ceci qui fonctionnait bien

Reports(ReportName).Printer.Duplex = acPRDPSimplex

Impression individuelle de chaque page d'un etat

VBA Access

Discussions similaires

Partager

Partager