D'accord, je ne suis pas dans le bon forum, mais vous pouvez m'aider quand même :-)
Je convertis des états en PDF depuis Access, ça marche bien, mais le problème, c'est qu'à chaque fois, j'ai la boîte de dialogue
pour choisir le nom du fichier. J'ai déjà essayé 6 gratuits. Finalement j'en ai bien trouvé un qui permet de paramétrer le nom du
fichier dans la base de registre, mais il coûte 449 $......
Vous avez bien lu, 449 $ pour 2 clés, une oui/non, une avec le chemin complet du fichier.....
Pour le problème de l'orientation paysage, il faut aller dans les options, format PDF, rotation automatique --> tout
J-Pierre
Anor
Salut J-Pierre,
Merci ! Je n'ai pas encore testé, mais le nom et l'emplacement du fichier généré, c'est en fonction de la propriété legend de l'état et du CurDir() ?
-- à+ Arnaud -------------------------------------------------- Avant toute chose : http://users.skynet.be/mpfa/ Access Memorandum - http://memoaccess.free.fr ## Réponses souhaitées sur ce forum, merci. ## --------------------------------------------------
J-Pierre : | Anor ????????? | | Voilà, on peut................. | | Tu ne me félicites pas ? | | Le principe: Définir un état "rptImprimantePDF" avec comme imprimante | spécifique PDFCreator. | Modifier temporairement la propriété PrtDevNamesde l'état que l'on | veut imprimer sous forme d'un PDF. | | Il reste un problème lié à PDFCreator, il ne supporte pas | l'orientation paysage et sans doute seulement A4. Ca, c'est un peu | ennuyeux, il faudra peut-être chercher un autre logiciel. Peut-être | aussi que je me suis embrouillé dans mes tests, j'ai aussi essayé de | modifier les propriétés de l'imprimante sans grand succès. | | Voilà le code: Harmonieusement couplé aux fonctions publiées | précédemment, un clic sur un bouton, c'est automatique. | --------------------------------------------------------- 'pour | appeler la fonction 'Private Sub imprimerPDF_Click() | ' Call PrintToPDFPrinter("rptMonRapport") | 'End Sub | ------------------------------------------------------- | Function PrintToPDFPrinter(rptToPrint As String) | | Dim rpt1 As Report, rpt2 As Report | Dim rptPrinter As String | rptPrinter = "rptImprimantePDF" | | DoCmd.OpenReport rptToPrint, acViewDesign | DoCmd.OpenReport rptPrinter, acViewDesign | | Set rpt1 = Reports(rptToPrint) | Set rpt2 = Reports(rptPrinter) | | rpt1.PrtDevNames = rpt2.PrtDevNames | | DoCmd.Close acReport, rptPrinter, acSaveNo | DoCmd.OpenReport rptToPrint, acNormal | DoCmd.Close acReport, rptToPrint, acSaveNo | | End Function | ----------------------------------------------
Salut J-Pierre,
Merci !
Je n'ai pas encore testé, mais le nom et l'emplacement du fichier généré, c'est en fonction
de la propriété legend de l'état et du CurDir() ?
--
à+
Arnaud
--------------------------------------------------
Avant toute chose : http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
## Réponses souhaitées sur ce forum, merci. ##
--------------------------------------------------
J-Pierre <pas.de.pub.jpberchtold@hotmail.com> :
| Anor ?????????
|
| Voilà, on peut.................
|
| Tu ne me félicites pas ?
|
| Le principe: Définir un état "rptImprimantePDF" avec comme imprimante
| spécifique PDFCreator.
| Modifier temporairement la propriété PrtDevNamesde l'état que l'on
| veut imprimer sous forme d'un PDF.
|
| Il reste un problème lié à PDFCreator, il ne supporte pas
| l'orientation paysage et sans doute seulement A4. Ca, c'est un peu
| ennuyeux, il faudra peut-être chercher un autre logiciel. Peut-être
| aussi que je me suis embrouillé dans mes tests, j'ai aussi essayé de
| modifier les propriétés de l'imprimante sans grand succès.
|
| Voilà le code: Harmonieusement couplé aux fonctions publiées
| précédemment, un clic sur un bouton, c'est automatique.
| --------------------------------------------------------- 'pour
| appeler la fonction 'Private Sub imprimerPDF_Click()
| ' Call PrintToPDFPrinter("rptMonRapport")
| 'End Sub
| -------------------------------------------------------
| Function PrintToPDFPrinter(rptToPrint As String)
|
| Dim rpt1 As Report, rpt2 As Report
| Dim rptPrinter As String
| rptPrinter = "rptImprimantePDF"
|
| DoCmd.OpenReport rptToPrint, acViewDesign
| DoCmd.OpenReport rptPrinter, acViewDesign
|
| Set rpt1 = Reports(rptToPrint)
| Set rpt2 = Reports(rptPrinter)
|
| rpt1.PrtDevNames = rpt2.PrtDevNames
|
| DoCmd.Close acReport, rptPrinter, acSaveNo
| DoCmd.OpenReport rptToPrint, acNormal
| DoCmd.Close acReport, rptToPrint, acSaveNo
|
| End Function
| ----------------------------------------------
Merci ! Je n'ai pas encore testé, mais le nom et l'emplacement du fichier généré, c'est en fonction de la propriété legend de l'état et du CurDir() ?
-- à+ Arnaud -------------------------------------------------- Avant toute chose : http://users.skynet.be/mpfa/ Access Memorandum - http://memoaccess.free.fr ## Réponses souhaitées sur ce forum, merci. ## --------------------------------------------------
J-Pierre : | Anor ????????? | | Voilà, on peut................. | | Tu ne me félicites pas ? | | Le principe: Définir un état "rptImprimantePDF" avec comme imprimante | spécifique PDFCreator. | Modifier temporairement la propriété PrtDevNamesde l'état que l'on | veut imprimer sous forme d'un PDF. | | Il reste un problème lié à PDFCreator, il ne supporte pas | l'orientation paysage et sans doute seulement A4. Ca, c'est un peu | ennuyeux, il faudra peut-être chercher un autre logiciel. Peut-être | aussi que je me suis embrouillé dans mes tests, j'ai aussi essayé de | modifier les propriétés de l'imprimante sans grand succès. | | Voilà le code: Harmonieusement couplé aux fonctions publiées | précédemment, un clic sur un bouton, c'est automatique. | --------------------------------------------------------- 'pour | appeler la fonction 'Private Sub imprimerPDF_Click() | ' Call PrintToPDFPrinter("rptMonRapport") | 'End Sub | ------------------------------------------------------- | Function PrintToPDFPrinter(rptToPrint As String) | | Dim rpt1 As Report, rpt2 As Report | Dim rptPrinter As String | rptPrinter = "rptImprimantePDF" | | DoCmd.OpenReport rptToPrint, acViewDesign | DoCmd.OpenReport rptPrinter, acViewDesign | | Set rpt1 = Reports(rptToPrint) | Set rpt2 = Reports(rptPrinter) | | rpt1.PrtDevNames = rpt2.PrtDevNames | | DoCmd.Close acReport, rptPrinter, acSaveNo | DoCmd.OpenReport rptToPrint, acNormal | DoCmd.Close acReport, rptToPrint, acSaveNo | | End Function | ----------------------------------------------
J-Pierre
Non, ce sont les paramètres dans le fichier INI
AutosaveDirectory=E:xxxxxxxxxxx AutosaveFilename=TempPdfCreator AutosaveFormat=0 'format en sortie PDF, PNG, JPEG, etc....
"Anor" <http://memoaccess.free.fr/anor/email.htm> a écrit dans le message de news:eZhr$
Salut J-Pierre,
Merci ! Je n'ai pas encore testé, mais le nom et l'emplacement du fichier généré, c'est en fonction de la propriété legend de l'état et du CurDir() ?
-- à+ Arnaud -------------------------------------------------- Avant toute chose : http://users.skynet.be/mpfa/ Access Memorandum - http://memoaccess.free.fr ## Réponses souhaitées sur ce forum, merci. ## --------------------------------------------------
J-Pierre : | Anor ????????? | | Voilà, on peut................. | | Tu ne me félicites pas ? | | Le principe: Définir un état "rptImprimantePDF" avec comme imprimante | spécifique PDFCreator. | Modifier temporairement la propriété PrtDevNamesde l'état que l'on | veut imprimer sous forme d'un PDF. | | Il reste un problème lié à PDFCreator, il ne supporte pas | l'orientation paysage et sans doute seulement A4. Ca, c'est un peu | ennuyeux, il faudra peut-être chercher un autre logiciel. Peut-être | aussi que je me suis embrouillé dans mes tests, j'ai aussi essayé de | modifier les propriétés de l'imprimante sans grand succès. | | Voilà le code: Harmonieusement couplé aux fonctions publiées | précédemment, un clic sur un bouton, c'est automatique. | --------------------------------------------------------- 'pour | appeler la fonction 'Private Sub imprimerPDF_Click() | ' Call PrintToPDFPrinter("rptMonRapport") | 'End Sub | ------------------------------------------------------- | Function PrintToPDFPrinter(rptToPrint As String) | | Dim rpt1 As Report, rpt2 As Report | Dim rptPrinter As String | rptPrinter = "rptImprimantePDF" | | DoCmd.OpenReport rptToPrint, acViewDesign | DoCmd.OpenReport rptPrinter, acViewDesign | | Set rpt1 = Reports(rptToPrint) | Set rpt2 = Reports(rptPrinter) | | rpt1.PrtDevNames = rpt2.PrtDevNames | | DoCmd.Close acReport, rptPrinter, acSaveNo | DoCmd.OpenReport rptToPrint, acNormal | DoCmd.Close acReport, rptToPrint, acSaveNo | | End Function | ----------------------------------------------
Non, ce sont les paramètres dans le fichier INI
AutosaveDirectory=E:xxxxxxxxxxx
AutosaveFilename=TempPdfCreator
AutosaveFormat=0 'format en sortie PDF, PNG, JPEG, etc....
"Anor" <http://memoaccess.free.fr/anor/email.htm> a écrit dans le message de news:eZhr$gcuDHA.2360@TK2MSFTNGP09.phx.gbl...
Salut J-Pierre,
Merci !
Je n'ai pas encore testé, mais le nom et l'emplacement du fichier généré, c'est en fonction
de la propriété legend de l'état et du CurDir() ?
--
à+
Arnaud
--------------------------------------------------
Avant toute chose : http://users.skynet.be/mpfa/
Access Memorandum - http://memoaccess.free.fr
## Réponses souhaitées sur ce forum, merci. ##
--------------------------------------------------
J-Pierre <pas.de.pub.jpberchtold@hotmail.com> :
| Anor ?????????
|
| Voilà, on peut.................
|
| Tu ne me félicites pas ?
|
| Le principe: Définir un état "rptImprimantePDF" avec comme imprimante
| spécifique PDFCreator.
| Modifier temporairement la propriété PrtDevNamesde l'état que l'on
| veut imprimer sous forme d'un PDF.
|
| Il reste un problème lié à PDFCreator, il ne supporte pas
| l'orientation paysage et sans doute seulement A4. Ca, c'est un peu
| ennuyeux, il faudra peut-être chercher un autre logiciel. Peut-être
| aussi que je me suis embrouillé dans mes tests, j'ai aussi essayé de
| modifier les propriétés de l'imprimante sans grand succès.
|
| Voilà le code: Harmonieusement couplé aux fonctions publiées
| précédemment, un clic sur un bouton, c'est automatique.
| --------------------------------------------------------- 'pour
| appeler la fonction 'Private Sub imprimerPDF_Click()
| ' Call PrintToPDFPrinter("rptMonRapport")
| 'End Sub
| -------------------------------------------------------
| Function PrintToPDFPrinter(rptToPrint As String)
|
| Dim rpt1 As Report, rpt2 As Report
| Dim rptPrinter As String
| rptPrinter = "rptImprimantePDF"
|
| DoCmd.OpenReport rptToPrint, acViewDesign
| DoCmd.OpenReport rptPrinter, acViewDesign
|
| Set rpt1 = Reports(rptToPrint)
| Set rpt2 = Reports(rptPrinter)
|
| rpt1.PrtDevNames = rpt2.PrtDevNames
|
| DoCmd.Close acReport, rptPrinter, acSaveNo
| DoCmd.OpenReport rptToPrint, acNormal
| DoCmd.Close acReport, rptToPrint, acSaveNo
|
| End Function
| ----------------------------------------------
AutosaveDirectory=E:xxxxxxxxxxx AutosaveFilename=TempPdfCreator AutosaveFormat=0 'format en sortie PDF, PNG, JPEG, etc....
"Anor" <http://memoaccess.free.fr/anor/email.htm> a écrit dans le message de news:eZhr$
Salut J-Pierre,
Merci ! Je n'ai pas encore testé, mais le nom et l'emplacement du fichier généré, c'est en fonction de la propriété legend de l'état et du CurDir() ?
-- à+ Arnaud -------------------------------------------------- Avant toute chose : http://users.skynet.be/mpfa/ Access Memorandum - http://memoaccess.free.fr ## Réponses souhaitées sur ce forum, merci. ## --------------------------------------------------
J-Pierre : | Anor ????????? | | Voilà, on peut................. | | Tu ne me félicites pas ? | | Le principe: Définir un état "rptImprimantePDF" avec comme imprimante | spécifique PDFCreator. | Modifier temporairement la propriété PrtDevNamesde l'état que l'on | veut imprimer sous forme d'un PDF. | | Il reste un problème lié à PDFCreator, il ne supporte pas | l'orientation paysage et sans doute seulement A4. Ca, c'est un peu | ennuyeux, il faudra peut-être chercher un autre logiciel. Peut-être | aussi que je me suis embrouillé dans mes tests, j'ai aussi essayé de | modifier les propriétés de l'imprimante sans grand succès. | | Voilà le code: Harmonieusement couplé aux fonctions publiées | précédemment, un clic sur un bouton, c'est automatique. | --------------------------------------------------------- 'pour | appeler la fonction 'Private Sub imprimerPDF_Click() | ' Call PrintToPDFPrinter("rptMonRapport") | 'End Sub | ------------------------------------------------------- | Function PrintToPDFPrinter(rptToPrint As String) | | Dim rpt1 As Report, rpt2 As Report | Dim rptPrinter As String | rptPrinter = "rptImprimantePDF" | | DoCmd.OpenReport rptToPrint, acViewDesign | DoCmd.OpenReport rptPrinter, acViewDesign | | Set rpt1 = Reports(rptToPrint) | Set rpt2 = Reports(rptPrinter) | | rpt1.PrtDevNames = rpt2.PrtDevNames | | DoCmd.Close acReport, rptPrinter, acSaveNo | DoCmd.OpenReport rptToPrint, acNormal | DoCmd.Close acReport, rptToPrint, acSaveNo | | End Function | ----------------------------------------------
