Génération pdf access vba - VB/VBA/VBS - Programmation
Marsh Posté le 06-12-2011 à 15:49:04
Salut, sans les avoir regarder voir si http://warin.developpez.com/access/pdf/
ainsi que http://cafeine.developpez.com/access/tutoriel/pdf/ ( a voir même si tu as 2007 )
Marsh Posté le 06-12-2011 à 14:40:36
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)
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