2016-07-06 2 views
0

Je souhaite imprimer .pdf tous les enregistrements d'une requête, en utilisant un rapport. J'ai plus de 1k enregistrements, et je voudrais enregistrer chaque enregistrement en format .pdf. J'ai concaténé le champ "filename" dans la requête, avec l'intention de sauvegarder le rapport en utilisant le champ "filename". Le résultat final serait de cliquer sur un bouton "imprimer"? et la base de données imprimerait en .pdf chaque enregistrement et enregistrerait le fichier basé sur le champ "filename".Access 2010 Imprimer en .pdf avec le nom de fichier variable

Je connais très peu de VBA, et je travaille à travers une macro. Macro for Printing Training Checklist report

Donc, j'imprime un [Rapport].
Le nom du rapport est "R Liste de vérification de formation".
Le nom de fichier de la variable est "nomfichier"

Le résultat final serait un fichier .pdf enregistré avec les données entrées dans le champ "nom de fichier" à l'emplacement identifié.

Si j'utilise le fichier de sortie "C: \ Users \ mabanes \ Fichiers Creative Cloud \ Training Checklists \ test2.pdf" ... Je n'ai aucun problème. Mais, je ne veux pas que 1k enregistre les noms "test2.pdf" où je dois aller et renommer individuellement chaque enregistrement.

Il semble que j'ai quelque chose de mal dans l'expression, mais je n'arrive pas à le comprendre. "C: \ Users \ mabanes \ Creative Cloud Files \ Checklists Formation \" & rapports [R Aide-mémoire de formation] [filename] & ".pdf"

+0

Le point d'exclamation est-il nécessaire dans votre expression? J'ai remarqué qu'il a '[Rapports!]. [R Liste de contrôle de formation]' – Huntdogg

+0

aucune idée ... était l'une des nombreuses combinaisons que j'ai essayé. –

+0

Voir: [Rapport d'Ouput au format PDF] (http://stackoverflow.com/questions/2296884/how-can-i-output-a-report-in-pdf-format-where-the-name-consists-of- values-from) – Huntdogg

Répondre

0
Private Sub Create_PDF_Report() 

Dim myPath As String 
Dim strReportName As String 

DoCmd.OpenQuery "QUERYNAME", acViewPreview 

myPath = "C:\Users\mabanes\Creative Cloud Files\Training Checklists\" 
strReportName = Report_Name.[Whatever you want here] + "etc." + ".pdf" 

DoCmd.OutputTo acOutputReport, "", acFormatPDF, myPath + strReportName, True 
DoCmd.Close acReport, "Reports" 

End Sub 

devrait fonctionner pour vous avec un peu de configuration!. pour correspondre à votre nom de fichier/chemin désiré.

+0

Donc, je reçois une erreur de compilation. Private Sub Command29_Click() Dim myPath As String Dim strReportName As String DoCmd.OpenQuery "Tâches Q Assigned", acViewPreview myPath = "C: \ Users \ mabanes \ Creative Cloud Files \ formation Listes de contrôle \" strReportName = Report_R Liste de formation. [filename] + ".pdf" DoCmd.OutputTo acOutputReport, "", acFormatPDF, myPath + strReportName, True DoCmd.Close acReport, "Rapports" End Sub –

+0

désolé semble branché ... le genre de me donner des problèmes est le strReportName = ligne ... –