Discussion :

[ermorazor]

Bonjour,

Je suis en train de faire une macro qui me génère des pdf en fonction d'un etat existant et je souhaiterai avoir un pdf pour une page de mon état et non pas un pdf avec toutes les pages de mon état correspondante.
Pour cela j'utilise un recordset pour parcourir mes enregistrement mais je n'arrive pour le moment qu'à générer le nombre exacte de pdf correpondant a mon recordcount mais avec tout les contrôles. (2 enregistrement = 2 pdf de 2 page au lieu de 2 pdf de 1 page).
voilà le code que j'utilise (travail sous vba access 2007)

Code :

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

1
2
3
4
5
6
7
8
9
Set rst = db.OpenRecordset("SELECT * FROM DATAMART_TERR WHERE (CTRL_SERVICE = 'PhM' AND Controle_Conforme = '0') AND (CTRL_DATE BETWEEN #" & DebutPeriode & "# And #" & FinPeriode & "#)" )
    While Not rst.EOF
        semaine = DatePart("ww", Date, vbMonday, vbFirstFourDays) - 1
        indic = indic + 1
        strEtat = "ETAT_Enquete_terrain"
        gstrReportFilter = "([CTRL_SERVICE] = 'PhM' AND [Controle_Conforme] = '0') AND ([CTRL_DATE] BETWEEN #" & DebutPeriode & "# And #" & FinPeriode & "#)"
        DoCmd.OutputTo acOutputReport, strEtat, acFormatPDF, "U:\document\doc\PDF_\test_" & indic & "Terrain_PhM_" & semaine & ".pdf"
        rst.MoveNext
   Wend

merci par avance

[Simplifi]

hello
bien sûr, la fonction outputTo ne comporte pas de filtre.
tu dois donc avoir:
- soit une requête qui sélectionne un seul enregistrement et qui est la source de l'état (pour lui passer la valeur, tupeux utiliser une textbox éventuellement invisible)
- tu peux aussi récupérer le SQL de cette requête, le bricoler par VB, et l'attribuer comme source de l'état avant l'export

[ypicot]

Tu peux aussi ouvrir ton état (en mode invisible), puis l'exporter en pdf, puis le refermer.

En gros :

Code :

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

1
2
3
4
gstrReportFilter = "([CTRL_SERVICE] = 'PhM' AND [Controle_Conforme] = '0') AND ([CTRL_DATE] BETWEEN #" & DebutPeriode & "# And #" & FinPeriode & "#)"
DoCmd.OpenReport strEtat, acVeiwPreview, , gstrReportFilter, acHidden
DoCmd.OutputTo acOutputReport, strEtat, acFormatPDF, "U:\document\doc\PDF_\test_" & indic & "Terrain_PhM_" & semaine & ".pdf"
DoCmd.close acReport, strEtat

Yvan