PDF

Daniel Carollo

01/12/2003 à 11:05

Bonjour Jean-Pierre!

Juste une suggestion: vous en ecrivez un vous meme, mettez en place un forum
de support pour ce controle, et vous le vendez pour 49$. Je suis preneur...

--
Daniel :-)

Computing Technologies International - www.computing-tech.com - We
provide solutions...

"J-Pierre" wrote in message
news:eZi6MD$

Bonjour tout le monde,

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.....

Si vous connaissez meilleur marché.....

J-Pierre

J-Pierre

01/12/2003 à 11:30

En écrire un moi-même ????????

Peut-être pas, mais si quelqu'un a la source d'un de ces freewares, en s'y mettant en groupe, on pourrait l'adapter......

J-Pierre

"Daniel Carollo" a écrit dans le message de
news:euFQ5K$

Bonjour Jean-Pierre!

Juste une suggestion: vous en ecrivez un vous meme, mettez en place un forum
de support pour ce controle, et vous le vendez pour 49$. Je suis preneur...

--
Daniel :-)

Computing Technologies International - www.computing-tech.com - We
provide solutions...

Bareuzai

01/12/2003 à 12:01

Salut

Avec PDFCreator
http://sourceforge.net/projects/pdfcreator
tu disposes d'une option "Configuration/SauvegardeAutomatique" ou tu peux mettre <Title> afin de générer un nom de fichier qui reprend ton nom d'état. Rien ne t'interdit de renommer via VB une fois le fichier créé (ou avant au niveau de ton nom d'état). Et tout ça c'est gratuit :-) , Merci à eux
A
Bareuzai

J-Pierre

01/12/2003 à 13:30

Salut Bareuzai,
C'est un drôle de pseudo, un mélange de Barjot et de Bonzaï ? Oui, mais le "eu" ?

Voilà, ça roule, installé et testé.

C'est encore mieux que ça: il y a 2 options, une option save pour choisir un nom, mais toujours avec la boîte de dialogue, et une
option autoSave où on spécifie le nom et le répertoire, et plus de boîte de dialogue.

Pour aller au bout du problème, la solution autosave n'est bonne que dans le cas où j'appelle PDFCreator par programmation, le reste
du temps, je veux pouvoir choisir le nom de mon fichier PDF. Il faudrait donc le modèle d'objet pour modifier les options par code
VBA, mais je ne l'ai pas trouvé.

Merci BEAUCOUP.

J-Pierre

"Bareuzai" a écrit dans le message de news:

Salut,

Avec PDFCreator :
http://sourceforge.net/projects/pdfcreator/
tu disposes d'une option "Configuration/SauvegardeAutomatique" ou tu peux mettre <Title> afin de générer un nom de fichier qui
reprend ton nom d'état. Rien ne t'interdit de renommer via VB une fois le fichier créé (ou avant au niveau de ton nom d'état). Et

tout ça c'est gratuit :-) , Merci à eux.

A+
Bareuzai

Anor

01/12/2003 à 19:31

Bonjour J-Pierre,
Tu as installé quelle version ?

Le version 0.8 béta 1 avec NT4 plante grave.
il faudrait que j'essaye la 0.7.1 demain pour voir ...
--
à+
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 :
| Salut Bareuzai,
| C'est un drôle de pseudo, un mélange de Barjot et de Bonzaï ? Oui,
| mais le "eu" ?
|
| Voilà, ça roule, installé et testé.
|
| C'est encore mieux que ça: il y a 2 options, une option save pour
| choisir un nom, mais toujours avec la boîte de dialogue, et une
| option autoSave où on spécifie le nom et le répertoire, et plus de
| boîte de dialogue.
|
| Pour aller au bout du problème, la solution autosave n'est bonne que
| dans le cas où j'appelle PDFCreator par programmation, le reste du
| temps, je veux pouvoir choisir le nom de mon fichier PDF. Il faudrait
| donc le modèle d'objet pour modifier les options par code VBA, mais
| je ne l'ai pas trouvé.
|
| Merci BEAUCOUP.
|
| J-Pierre
|

J-Pierre

01/12/2003 à 21:00

J'ai installé la 0.7.1, ça marche très bien

"Anor" <http://memoaccess.free.fr/anor/email.htm> a écrit dans le message de news:

Bonjour J-Pierre,
Tu as installé quelle version ?

Le version 0.8 béta 1 avec NT4 plante grave.
il faudrait que j'essaye la 0.7.1 demain pour voir ...
--
à+
Arnaud

J-Pierre

02/12/2003 à 14:19

Bonjour tout le monde,

Tout d'abord, je sais ce que veut dire Bareuzai: Ca veut dire:

Alcoolo, mais en pire :-)))))))

Allez voir ces deux liens qu'il m'a donnés, c'est très intéressant:
http://dijoon.free.fr/visite/place-bareuzai.htm
http://dijoon.free.fr/bareuzai.htm

Finalement, il a trouvé les paramètres de PDFCreator dans un fichier ini:
C:Documents and SettingsZeUzerNameApplication DataPDFCreator
Il a fait le plus dur, après j'ai regardé de plus près.
Les paramètres qui nous intéressent sont:

AutosaveDirectory=E:xxxxxxxxxxx
AutosaveFilename=TempPdfCreator
AutosaveFormat=0 'format en sortie PDF, PNG, JPEG, etc....
UseAutosave=1
UseAutosaveDirectory=1

Ci-après un bout de code VBA pour modifier UseAutosave et UseAutosaveDirectory.
Je suis resté volontairement très simple pour que ceux d'entre nous qui ne connaissent pas trop FSO ou VBA puissent adapter
facilement.

Et un grand merci à Bareuzai qui a vraiment trouvé les infos utiles.....

J-Pierre
----------------------------------------------------------
Pour appeler, 2 boutons PDFCreatorManuel et PDFCreatorAuto:

Private Sub PDFCreatorManuel_Click()
Call PDFCreatorSetUp(0)
End Sub

Private Sub PDFCreatorAuto_Click()
Call PDFCreatorSetUp(1)
End Sub
---------------------------------------------------------
Public Sub PDFCreatorSetUp(valeur As Integer)

Dim Wsh, WshSystem, fso, fileTxt, Rep
Dim MesDocuments, Wchemin As String
Dim Wlignes()
Dim ix1 As Integer
Const ForReading = 1, ForWriting = 2, ForAppending = 8

If Not IsNumeric(valeur) Or (valeur <> 0 And valeur <> 1) Then Exit Sub

Set Wsh = CreateObject("WScript.Shell")
Set WshSystem = Wsh.Environment("SYSTEM")

MesDocuments = Wsh.SpecialFolders("MyDocuments")

Set WshSystem = Nothing
Set Wsh = Nothing

Set fso = CreateObject("Scripting.FileSystemObject")

If Not (fso.FolderExists(MesDocuments)) Then
Set fso = Nothing
Exit Sub
End If

Set Rep = fso.GetFolder(fso.GetParentFolderName(MesDocuments))
Wchemin = Rep & "Application DataPDFCreatorPDFCreator.ini"

If Not (fso.FileExists(Wchemin)) Then
Set fso = Nothing
Exit Sub
End If

' -------------------------modifier les lignes concernées--------------------------

ix1 = 0
ReDim Wlignes(1000)

Set fileTxt = fso.OpenTextFile(Wchemin, ForReading, False)
Do While fileTxt.AtEndOfStream <> True
Wlignes(ix1) = fileTxt.ReadLine
If Left(Wlignes(ix1), 12) = "UseAutosave=" Then
Wlignes(ix1) = "UseAutosave=" & valeur
End If
If Left(Wlignes(ix1), 21) = "UseAutosaveDirectory=" Then
Wlignes(ix1) = "UseAutosaveDirectory=" & valeur
End If
ix1 = ix1 + 1
Loop
fileTxt.Close

ReDim Preserve Wlignes(ix1 - 1)
Set fileTxt = Nothing

Set fileTxt = fso.GetFile(Wchemin)
fso.DeleteFile (fileTxt)
Set fileTxt = Nothing

Set fileTxt = fso.OpenTextFile(Wchemin, ForWriting, True)
For ix1 = 0 To UBound(Wlignes, 1)
fileTxt.WriteLine (Wlignes(ix1))
Next
fileTxt.Close

Set fileTxt = Nothing
Set fso = Nothing

'MsgBox "OK=" & Wchemin

End Sub
------------------------------------------------

Vous avez filtré cet utilisateur ! Consultez son message

Bonjour tout le monde,

Tout d'abord, je sais ce que veut dire Bareuzai: Ca veut dire:

Alcoolo, mais en pire :-)))))))

Allez voir ces deux liens qu'il m'a donnés, c'est très intéressant:
http://dijoon.free.fr/visite/place-bareuzai.htm
http://dijoon.free.fr/bareuzai.htm

Finalement, il a trouvé les paramètres de PDFCreator dans un fichier ini:
C:Documents and SettingsZeUzerNameApplication DataPDFCreator
Il a fait le plus dur, après j'ai regardé de plus près.
Les paramètres qui nous intéressent sont:

AutosaveDirectory=E:xxxxxxxxxxx
AutosaveFilename=TempPdfCreator
AutosaveFormat=0 'format en sortie PDF, PNG, JPEG, etc....
UseAutosave=1
UseAutosaveDirectory=1

Ci-après un bout de code VBA pour modifier UseAutosave et UseAutosaveDirectory.
Je suis resté volontairement très simple pour que ceux d'entre nous qui ne connaissent pas trop FSO ou VBA puissent adapter
facilement.

Et un grand merci à Bareuzai qui a vraiment trouvé les infos utiles.....

J-Pierre
----------------------------------------------------------
Pour appeler, 2 boutons PDFCreatorManuel et PDFCreatorAuto:

Private Sub PDFCreatorManuel_Click()
Call PDFCreatorSetUp(0)
End Sub

Private Sub PDFCreatorAuto_Click()
Call PDFCreatorSetUp(1)
End Sub
---------------------------------------------------------
Public Sub PDFCreatorSetUp(valeur As Integer)

Dim Wsh, WshSystem, fso, fileTxt, Rep
Dim MesDocuments, Wchemin As String
Dim Wlignes()
Dim ix1 As Integer
Const ForReading = 1, ForWriting = 2, ForAppending = 8

If Not IsNumeric(valeur) Or (valeur <> 0 And valeur <> 1) Then Exit Sub

Set Wsh = CreateObject("WScript.Shell")
Set WshSystem = Wsh.Environment("SYSTEM")

MesDocuments = Wsh.SpecialFolders("MyDocuments")

Set WshSystem = Nothing
Set Wsh = Nothing

Set fso = CreateObject("Scripting.FileSystemObject")

If Not (fso.FolderExists(MesDocuments)) Then
Set fso = Nothing
Exit Sub
End If

Set Rep = fso.GetFolder(fso.GetParentFolderName(MesDocuments))
Wchemin = Rep & "Application DataPDFCreatorPDFCreator.ini"

If Not (fso.FileExists(Wchemin)) Then
Set fso = Nothing
Exit Sub
End If

' -------------------------modifier les lignes concernées--------------------------

ix1 = 0
ReDim Wlignes(1000)

Set fileTxt = fso.OpenTextFile(Wchemin, ForReading, False)
Do While fileTxt.AtEndOfStream <> True
Wlignes(ix1) = fileTxt.ReadLine
If Left(Wlignes(ix1), 12) = "UseAutosave=" Then
Wlignes(ix1) = "UseAutosave=" & valeur
End If
If Left(Wlignes(ix1), 21) = "UseAutosaveDirectory=" Then
Wlignes(ix1) = "UseAutosaveDirectory=" & valeur
End If
ix1 = ix1 + 1
Loop
fileTxt.Close

ReDim Preserve Wlignes(ix1 - 1)
Set fileTxt = Nothing

Set fileTxt = fso.GetFile(Wchemin)
fso.DeleteFile (fileTxt)
Set fileTxt = Nothing

Set fileTxt = fso.OpenTextFile(Wchemin, ForWriting, True)
For ix1 = 0 To UBound(Wlignes, 1)
fileTxt.WriteLine (Wlignes(ix1))
Next
fileTxt.Close

Set fileTxt = Nothing
Set fso = Nothing

'MsgBox "OK=" & Wchemin

End Sub
------------------------------------------------

Anor

02/12/2003 à 19:48

Bonjour,

Après tests : la 0.7.1 marche très bien sous NT4
Seul le gris clair tourne au marron clair, mais sinon,
pour du gratuit, c'est pas mal du tout, et sans pub :-))

Bon je regarde ce qui tu as mis là-dessous comme code:
peut-être que bientôt, lorsque on nous demandera :
comment exporter un état access en pdf *sans intervention de l'utilisateur*,
on pourra proposer une solution clés en main ?

--
à+
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 :
| J'ai installé la 0.7.1, ça marche très bien
|
|
| "Anor" <http://memoaccess.free.fr/anor/email.htm> a écrit dans le
| message de news:
|| Bonjour J-Pierre,
|| Tu as installé quelle version ?
||
|| Le version 0.8 béta 1 avec NT4 plante grave.
|| il faudrait que j'essaye la 0.7.1 demain pour voir ...
|| --
|| à+
|| Arnaud

J-Pierre

02/12/2003 à 20:47

Oui, Anor, on pourra, il suffit de faire joujou avec les propriétés prtDevMode, PrtDevNames, PrtMip de l'objet Report.

J-Pierre

"Anor" <http://memoaccess.free.fr/anor/email.htm> a écrit dans le message de news:OD%

Bonjour,

Après tests : la 0.7.1 marche très bien sous NT4
Seul le gris clair tourne au marron clair, mais sinon,
pour du gratuit, c'est pas mal du tout, et sans pub :-))

Bon je regarde ce qui tu as mis là-dessous comme code:
peut-être que bientôt, lorsque on nous demandera :
comment exporter un état access en pdf *sans intervention de l'utilisateur*,
on pourra proposer une solution clés en main ?

--
à+
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

02/12/2003 à 22:42

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
----------------------------------------------

PDF

10 réponses

Veuillez sélectionner un problème