OVH Cloud OVH Cloud

Impression automatique d'un PDF depuis access

3 réponses
Avatar
Jean-Michel
Bonjour,

Je souhaite imprimer automatiquement un fichier PDF depuis access, merci si
quelqu'un peut me transmettre un exemple.

Merci d'avance
--
Jean-Michel

3 réponses

Avatar
Eric
Bonjour,

En utilisant l'API ShellExecute()
Exemple pour un fichier bien précis, facilement modifiable pour passer
en argument le fichier :

Code à copier dans un module :
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1

Sub Imprimepdf() 'remplacer print par open pour l'ouvrir
ShellExecute hwnd, "print", "C:Documents and SettingsXXXMes
documentsTV.pdf", vbNullString, vbNullString, SW_SHOWNORMAL
End Sub

Bonjour,

Je souhaite imprimer automatiquement un fichier PDF depuis access, merci si
quelqu'un peut me transmettre un exemple.

Merci d'avance


--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
Jean-Michel
Bonsoir Eric,

Merci beaucoup, je vais essayer tout ceci.

Je viens à l'instant de trouver une autre solution, j'en profite pour la
décrire :

Shell ("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe /p /h
c:citi.pdf")

il faut remplacer citi.pdf par le fichier pdf à éditer.

--
Jean-Michel









Bonjour,

En utilisant l'API ShellExecute()
Exemple pour un fichier bien précis, facilement modifiable pour passer
en argument le fichier :

Code à copier dans un module :
Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, _
ByVal lpFile As String, _
ByVal lpParameters As String, _
ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1

Sub Imprimepdf() 'remplacer print par open pour l'ouvrir
ShellExecute hwnd, "print", "C:Documents and SettingsXXXMes
documentsTV.pdf", vbNullString, vbNullString, SW_SHOWNORMAL
End Sub

Bonjour,

Je souhaite imprimer automatiquement un fichier PDF depuis access, merci si
quelqu'un peut me transmettre un exemple.

Merci d'avance


--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr




Avatar
Eric
re,

Avec l'Api, tu n'as pas besoin de connaitre l'application (et son
chemin) qui permet d'ouvrir le fichier. Il s'agit de l'application qui
est associée au fichier. ShellExecute est beaucoup plus performant
surtout si différentes versions de l'application peuvent être
rencontrées sur différents PCs.

A toi de voir en fonction de tes besoins.

Bonsoir Eric,

Merci beaucoup, je vais essayer tout ceci.

Je viens à l'instant de trouver une autre solution, j'en profite pour la
décrire :

Shell ("C:Program FilesAdobeAcrobat 7.0ReaderAcroRd32.exe /p /h
c:citi.pdf")

il faut remplacer citi.pdf par le fichier pdf à éditer.



--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr