OVH Cloud OVH Cloud

Imprimer un document Acrobat

2 réponses
Avatar
le g0eland
Bonjour =E0 tous,

Je n'ai pas trouv=E9 dans les archives un moyen d'imprimer=20
un document au format acrobat reader (.pdf) =E0 partir d'une=20
proc=E9dure en VBA.

Si vous connaissez un moyen, je suis preneur :-)

Tant que j'y suis, j'ai un menu "Acrobat" dans mes=20
feuilles .xls qui me permet de transformer ces feuilles en=20
document .pdf=20
Comment appeler directement cette macro (dans le code) ?

V
Jonathan

2 réponses

Avatar
michdenis
Bonjour le g0eland,

Un truc qui a été publié dans ce groupe de discussions. Je n'ai cependant pas l'auteur !

'-------------------------------------
Je sais imprimer un document PDF à partir d'un script VBA :

ret = Shell("C:Program FilesAdobeAcrobat 5.0ReaderAcroRd32.exe /p /h " & monfic)

Mais je voudrais pouvoir imprimer que certaines pages exmple : seulement de
la page 4 à la page 6. Connaissez vous les paramètres qui permettent cette impression ???


C'est comme avec n'importe quelle imprimante (PDF étant traité comme imprimante)
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=4, Copies:=6,
ActivePrinter:="Acrobat Distiller", Collate:=True
'-------------------------------------


Salutations!




"le g0eland" a écrit dans le message de
news:1195201c3f608$a6dc42d0$
Bonjour à tous,

Je n'ai pas trouvé dans les archives un moyen d'imprimer
un document au format acrobat reader (.pdf) à partir d'une
procédure en VBA.

Si vous connaissez un moyen, je suis preneur :-)

Tant que j'y suis, j'ai un menu "Acrobat" dans mes
feuilles .xls qui me permet de transformer ces feuilles en
document .pdf
Comment appeler directement cette macro (dans le code) ?

V
Jonathan
Avatar
Alain CROS
Bonjour.

Tu peux le faire par DDE.
Acrobat étant préalablement lancé.

Sub Imprime()
ImprimePdf "LeNomCompletduFichierPdf"
End Sub

Sub ImprimePdf(Fich$)
Dim Canal&
Canal = DDEInitiate("acroview", "Control")
DDEExecute Canal, "[FilePrintSilent(" & """" & Fich & """" & ")]"
DDETerminate Canal
End Sub 'AC

Pour le menu Acrobat, un petit coup d'enregistreur ?

Alain CROS.

"le g0eland" a écrit dans le message de news: 1195201c3f608$a6dc42d0$
Bonjour à tous,

Je n'ai pas trouvé dans les archives un moyen d'imprimer
un document au format acrobat reader (.pdf) à partir d'une
procédure en VBA.

Si vous connaissez un moyen, je suis preneur :-)

Tant que j'y suis, j'ai un menu "Acrobat" dans mes
feuilles .xls qui me permet de transformer ces feuilles en
document .pdf
Comment appeler directement cette macro (dans le code) ?

V
Jonathan