Discussion :

[typouce]

Bonjour,

j'essaye d'exporter un formulaire en fichier pdf par l'actionnement d'un bouton poussoir d'un formulaire via le code suivant :

Code :

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

1
2
3
4
5
Private Sub btn_nondubouton_click()
 
    DoCmd.OutputTo acOutputReport, "nomdufichier", acFormatPDF, "Bibliothèques\Documents\nomdufichier.pdf"
 
End Sub

J'ai fondé mon code sur la page http://warin.developpez.com/access/pdf/.

Par conter, j'obtiens une erreur 2501 "L'action OuputTo e été annulée".

Quelqu'un a-t-il une idée ?

Merci par avance.

[Dixies]

Bonjour,

J'ai eu la même chose, pour ma part concernant l'export PDF d'un formulaire.
A priori, cela semble venir du fait que la procédure d'export n'est applicable que sur un objet ouvert.
J'ouvre donc mon Form, je l'exporte et je le referme.
Voici mon code qui fonctionne :

Code :

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

1
2
3
4
5
 
DoCmd.OpenForm "F_Prevision"
Forms("F_Prevision").Printer.Orientation = acPRORLandscape
DoCmd.OutputTo acOutputForm, "F_Prevision", acFormatPDF, "F:\Mes documents\Finance\Prévisions\" & VarFichPrev
DoCmd.Close acForm, "F_Prevision"

Cdlt.

[rose0729]

Ou tout simplement

Mettre un bouton de commande sur l'état qui appelle une macro

et l'état est envoyé directement

[jimbolion]

rose0729

Code :

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

Bibliothèques\Documents\nomdufichier.pdf

Ce n'est pas un répertoire valide donc impossible d'exporter à cet endroit

en modifiant comme ceci que se passe t'il ?

Code :

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

DoCmd.OutputTo acOutputReport, "nomdufichier", acFormatPDF, "C:\nomdufichier.pdf"

et le report doit être affiché en mode preview avant comme en atteste l'exemple de Christophe

Code :

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

1
2
3
4
5
            DoCmd.OpenReport "repClient", acViewPreview, , "NumClient=" & Forms("frmClient").NumClient
            'Enregistre l'état
            DoCmd.OutputTo acOutputReport, , "PDF", strchemin
            'Ferme l'état
            DoCmd.Close acReport, "repClient", acSaveNo

jimbolion