Discussion :

[Chris 81]

Bonjour a tous les developpezcomiens,


J'ai utilise le Tuto: Exporter vos etats Access en PDF...
Pour l'impression j'y arrive parfaitement...
a Cafeine pour cet excellant boulot...

Je cherche a present de faire la meme chose mais par un envoi mail... et je butte sur le message:

" Selectionner un format..."

J'avais deja resolu ce probleme mais je n'arrive plus a mettre la main dessus...

Dim ImprimanteDefaut As String

ImprimanteDefaut = Application.Printer.DeviceName

Set Application.Printer = Application.Printers("PDFCreator")
DoCmd.OpenReport "PictureShowroomDisplayOutside"
DoCmd.PrintOut
DoCmd.SendObject acSendReport, "PictureShowroomDisplayOutside"

Par avance merci

[Chris 81]

Dans PDF Creator -> Options -> Enregistrement automatique -> cocher "Envoyer un Email apres l'enregistrement...

C'est simple encore faut-il le savoir....

Et sans oublier une petite modif de code...

Dim ImprimanteDefaut As String

ImprimanteDefaut = Application.Printer.DeviceName

Set Application.Printer = Application.Printers("PDFCreator")
DoCmd.OpenReport "PictureShowroomDisplayOutside"
DoCmd.PrintOut

En supprimant la ligne de code SendObject....