Bon, ben finalement je réponds sur ce fil aussi.
Il y a si peu de récits d'expériences réussies que je passe mon expérience
à
la postérité.
J'expliquais tantôt que moi j'utilisais Acrobat Distiller en 2 temps.
1) Impression vers un fichier .prn via la macro en définissant le nom
souhaité.
2) Conversion en tâche de fond (Background pour Rex) par Acrobat
Distiller.
Je viens de trouver ça :
http://www.rdpslides.com/psfaq/FAQ00053.htm
Je le recopie :
Private Sub CommandButton1_Click()
' Define the postscript and .pdf file names.
Dim PSFileName as String
Dim PDFFileName as String
PSFileName = "c:myPostScript.ps"
PDFFileName = "c:myPDF.pdf"
' Print the Excel range to the postscript file
Dim MySheet As WorkSheet
Set MySheet = ActiveSheet
MySheet.Range("myRange").PrintOut copies:=1, preview:úlse,
ActivePrinter:="Acrobat Distiller", printtofile:=True, collate:=True,
prtofilename:=PSFileName
' Convert the postscript file to .pdf
Dim myPDF As PdfDistiller
Set myPDF = New PdfDistiller
myPDF.FileToPDF PSFileName, PDFFileName, ""
End Sub
Il suffit de référencer Acrobat Distiller pour disposer des objets
nécessaires.
En l'adaptant, au boulot ça marche avec la version 5 d'Acrobat Distiller.
C'est à dire que j'arrive maintenant à faire mes 50 fichiers uniquement
avec
ma macro, sans passer par la tâche de fond cf fil précédent.
Si l'on a plusieurs impressions à faire il ne faut lancer l'instance
Set myPDF = New PdfDistiller
qu'une seule fois, avant une boucle par exemple. Ou alors on la supprime
par
un
Set myPDF = Nothing
Dis Rex, tu m'écoutes ou tu es encore en train de manger ?
Je crois savoir d'où il vient son double-menton dont il nous nargue sans
cesse
:-))))))))Je me suis permis de commencer un nouveau fil
..., je commence à me perdre dans l'autre
Ben il est devenu aussi obèse que le précédent.
Il faudra penser à en faire une synthèse.
Cordialement,
Trirème
Bon, ben finalement je réponds sur ce fil aussi.
Il y a si peu de récits d'expériences réussies que je passe mon expérience
à
la postérité.
J'expliquais tantôt que moi j'utilisais Acrobat Distiller en 2 temps.
1) Impression vers un fichier .prn via la macro en définissant le nom
souhaité.
2) Conversion en tâche de fond (Background pour Rex) par Acrobat
Distiller.
Je viens de trouver ça :
http://www.rdpslides.com/psfaq/FAQ00053.htm
Je le recopie :
Private Sub CommandButton1_Click()
' Define the postscript and .pdf file names.
Dim PSFileName as String
Dim PDFFileName as String
PSFileName = "c:myPostScript.ps"
PDFFileName = "c:myPDF.pdf"
' Print the Excel range to the postscript file
Dim MySheet As WorkSheet
Set MySheet = ActiveSheet
MySheet.Range("myRange").PrintOut copies:=1, preview:úlse,
ActivePrinter:="Acrobat Distiller", printtofile:=True, collate:=True,
prtofilename:=PSFileName
' Convert the postscript file to .pdf
Dim myPDF As PdfDistiller
Set myPDF = New PdfDistiller
myPDF.FileToPDF PSFileName, PDFFileName, ""
End Sub
Il suffit de référencer Acrobat Distiller pour disposer des objets
nécessaires.
En l'adaptant, au boulot ça marche avec la version 5 d'Acrobat Distiller.
C'est à dire que j'arrive maintenant à faire mes 50 fichiers uniquement
avec
ma macro, sans passer par la tâche de fond cf fil précédent.
Si l'on a plusieurs impressions à faire il ne faut lancer l'instance
Set myPDF = New PdfDistiller
qu'une seule fois, avant une boucle par exemple. Ou alors on la supprime
par
un
Set myPDF = Nothing
Dis Rex, tu m'écoutes ou tu es encore en train de manger ?
Je crois savoir d'où il vient son double-menton dont il nous nargue sans
cesse
:-))))))))
Je me suis permis de commencer un nouveau fil
..., je commence à me perdre dans l'autre
Ben il est devenu aussi obèse que le précédent.
Il faudra penser à en faire une synthèse.
Cordialement,
Trirème
Bon, ben finalement je réponds sur ce fil aussi.
Il y a si peu de récits d'expériences réussies que je passe mon expérience
à
la postérité.
J'expliquais tantôt que moi j'utilisais Acrobat Distiller en 2 temps.
1) Impression vers un fichier .prn via la macro en définissant le nom
souhaité.
2) Conversion en tâche de fond (Background pour Rex) par Acrobat
Distiller.
Je viens de trouver ça :
http://www.rdpslides.com/psfaq/FAQ00053.htm
Je le recopie :
Private Sub CommandButton1_Click()
' Define the postscript and .pdf file names.
Dim PSFileName as String
Dim PDFFileName as String
PSFileName = "c:myPostScript.ps"
PDFFileName = "c:myPDF.pdf"
' Print the Excel range to the postscript file
Dim MySheet As WorkSheet
Set MySheet = ActiveSheet
MySheet.Range("myRange").PrintOut copies:=1, preview:úlse,
ActivePrinter:="Acrobat Distiller", printtofile:=True, collate:=True,
prtofilename:=PSFileName
' Convert the postscript file to .pdf
Dim myPDF As PdfDistiller
Set myPDF = New PdfDistiller
myPDF.FileToPDF PSFileName, PDFFileName, ""
End Sub
Il suffit de référencer Acrobat Distiller pour disposer des objets
nécessaires.
En l'adaptant, au boulot ça marche avec la version 5 d'Acrobat Distiller.
C'est à dire que j'arrive maintenant à faire mes 50 fichiers uniquement
avec
ma macro, sans passer par la tâche de fond cf fil précédent.
Si l'on a plusieurs impressions à faire il ne faut lancer l'instance
Set myPDF = New PdfDistiller
qu'une seule fois, avant une boucle par exemple. Ou alors on la supprime
par
un
Set myPDF = Nothing
Dis Rex, tu m'écoutes ou tu es encore en train de manger ?
Je crois savoir d'où il vient son double-menton dont il nous nargue sans
cesse
:-))))))))Je me suis permis de commencer un nouveau fil
..., je commence à me perdre dans l'autre
Ben il est devenu aussi obèse que le précédent.
Il faudra penser à en faire une synthèse.
Cordialement,
Trirème
bonjour stéphane
moi, je n'ai pas d'erreur avec ta proc mais elle présente le gros
inconvénient de devoir faire la manip' d'enregistrement du fichier .pdf
puisque la proc se termine sur l'ouverture de la fenêtre qui permet
cela....
mais bon.....comme tu dis!
jps
"lSteph" a écrit dans le message de news:
Bonjour,
;o)
Ben Voui!> un truc qui a son importance
ça c'est inclus (variable thisP) dans le code que j'ai proposé mais
bon...!
Pourtant il fonctionne en 2003 et en 97
Faut juste répondre OK si on utilise PDFCreator
et rien à répondre avec PDFWriter.
Si on (Rex ???1004) me dit où ça bugue...
@+
lSteph
On 5 sep, 16:34, "jps" wrote:oops
un truc qui a son importance, je pense, c'est remettre ton imprimante
réelle
opérationnelle en fin de proc sinon tu vas avoir la surprise si tu veux
imprimer tes mémoires juste après les avoir mises en.pdf....
donc, à adapter et à mettre juste avant le End Sub :
Application.ActivePrinter = "EPSON EPL-5700 sur LPT1:"
HTH
jps
"jps" a écrit dans le message de news:re rex
voilà, servie sur un plateau, une proc que tu mets dans ton perso.xls,
que
tu affectes à un bouton de ta BO et pour chaque classeur que tu
voudras
créer en .pdf, il te suffira de l'ouvrir et de cliquer sur ledit
bouton
je ne sais pas par contre si cette proc crée des multifeuilles mais
papou
va savoir nous le dire
jps
Sub CreeFichierPDF()
Dim AppPdf As Object
Set AppPdf = CreateObject("PDFCreator.clsPDFCreator")
With AppPdf
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + _
vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = ActiveWorkbook.path & ""
.cOption("AutosaveFilename") = ActiveWorkbook.Name & ".pdf"
.cOption("AutosaveFormat") = 0
.cClearCache
End With
ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
Do Until AppPdf.cCountOfPrintjobs = 1
DoEvents
Loop
AppPdf.cPrinterStop = False
'Wait until PDF creator is finished then release the objects
Do Until AppPdf.cCountOfPrintjobs = 0
DoEvents
Loop
AppPdf.cClose
Set AppPdf = Nothing
End Sub
"jps" a écrit dans le message de news:
u$bonjour rex
pour le nom de ton fichier et dans la proc au titre ci-dessous, tu
bricoles au niveau des *******
jps
Sub PrintToPDF_Early()
'Author : Ken Puls (www.excelguru.ca)
'Macro Purpose: Print to PDF file using PDFCreator
' (Download fromhttp://sourceforge.net/projects/pdfcreator/)
' Designed for early bind, set reference to PDFCreator
Dim pdfjob As PDFCreator.clsPDFCreator
Dim sPDFName As String
Dim sPDFPath As String
'/// Change the output file name here! ///
sPDFName = ActiveWorkbook.Name & ".pdf" ************
"rthompson" a écrit dans le
message
de
news:
%23dd2tK87HHA.5...__END_MASK_i?a63jfAD$__BEGIN_MASK_n#9g02mG7!
TNGP02.phx.gbl...
Bonjour JPS
Chez moi j'ai installé la dernière versio de PDFcraetor
Et il fonctionne à multiple reprise (jusqu'à présent)
Mon seul problème est le nom de fichier
A plus tard
ET MERCI
Rex ;-))) )))
"jps" a écrit dans le message de news:merci papou
mais je n'y comprends plus rien : j'ai pu faire marcher une fois la
proc savante et maintenant on me dit "can't initialize PDFCreator"
et si je fais Imprimer sur PDFCreator, je n'ai plus le panneau qui
s'affiche
et si enfin je vais dans l'explorateur et clique le .exe de
PDFCreator
: oualou de chez oualou
qu'est ce que cette proc a bien pu détruire pour que PFD Creator ne
fonctionne plus?
à vot' bon coeur...
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message
de
news:
ex6I5N67HHA....__END_MASK_i?a63jfAD$__BEGIN_MASK_n#9g02mG7!
NGP06.phx.gbl...
Le fichier est situé dans le même répertoire que ton classeur en
principe.
Cordialement
Pascal
"jps" a écrit dans le message de news:
%re re papou
c'était bien ça, je pense puisque la proc a fonctionné mais par
contre je ne sais pas où est allé se mettre le fichier .pdf!!!
en avant nosotres pour la recherche
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le
message
denews:
uYEtJs57HHA....__END_MASK_i?a63jfAD$__BEGIN_MASK_n#9g02mG7!
Rex
Je viens de tester c'est fonctionnel.
A adapter à ton cas probablement.
Cordialement
Pascal
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le
message
denews:
ubBUDb57HHA.4...__END_MASK_i?a63jfAD$__BEGIN_MASK_n#9g02mG7!
Bonjour Rex
Je viens de trouver ce lien sur Excel.Programming :
http://www.excelguru.ca:80/node/21
Par contre il faut noter que l'utilisation se fait à partir de
PDFCreator.
Par curiosité je vais tester et je te tiens au courant.
Cordialement
Pascal
"rthompson" a écrit dans le
message denews:
eSa1vQ57HHA.5...__END_MASK_i?a63jfAD$__BEGIN_MASK_n#9g02mG7!
Bonjour à toutes et tous
Je me suis permis de commencer un nouveau fil
Pour deux raisons
Primo, je commence à me perdre dans l'autreEt puis ceci intéresse peut-être d'autres
Mais que tout ceci ne m'empêche pas de remercier ceux qui
m'aident
JPS, Lsteph, Trirème, Philippe, François
On approche du but !!!!!!
Pour rappel, il s'agit de faire imprimer une feuille Excel
(pas
le
tout) vers un fichier PDF
Commençons par un bout de code qui fonctionne
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
ActivePrinter: > > >>>>>>>>> _
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code fonctionne, mais demande confirmation d'un nom de
fichier
Et prend comme nom par défault celui du fichier
Et il crée un fichier (une seule feuille) lisible par Acrobat
de
150Kg
Et ce n'est pas le but rechercher
Donc après moulte échanges j'ai trouvé ce code-ci
On change juste les dernières lignes
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
PrintToFile:=True, PrToFilename:="PDFname.pdf"
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code-ci tourne jusqu"au bout, sans message de confirmation
Juste une fenêtre "Printing to Cute....." pendant quelques
secondes
Il crée un fichier PDFname.pdf de 250Kg dans le répertoire du
fichier
Mais quand j'essaie de l'ouvrir Acrobat me dit
que ce n'est pas un fichier pdf ou qu'il est tronqué ou
endommager
Alors je continue mais si ceci vous dit quelque chose
N'hésitez pas
A très bientôt
Rex
bonjour stéphane
moi, je n'ai pas d'erreur avec ta proc mais elle présente le gros
inconvénient de devoir faire la manip' d'enregistrement du fichier .pdf
puisque la proc se termine sur l'ouverture de la fenêtre qui permet
cela....
mais bon.....comme tu dis!
jps
"lSteph" <gmLSt...@gmail.com> a écrit dans le message de news:
1189004218.608721.276...@d55g2000hsg.googlegroups.com...
Bonjour,
;o)
Ben Voui!> un truc qui a son importance
ça c'est inclus (variable thisP) dans le code que j'ai proposé mais
bon...!
Pourtant il fonctionne en 2003 et en 97
Faut juste répondre OK si on utilise PDFCreator
et rien à répondre avec PDFWriter.
Si on (Rex ???1004) me dit où ça bugue...
@+
lSteph
On 5 sep, 16:34, "jps" <vaderetrosp@mas> wrote:
oops
un truc qui a son importance, je pense, c'est remettre ton imprimante
réelle
opérationnelle en fin de proc sinon tu vas avoir la surprise si tu veux
imprimer tes mémoires juste après les avoir mises en.pdf....
donc, à adapter et à mettre juste avant le End Sub :
Application.ActivePrinter = "EPSON EPL-5700 sur LPT1:"
HTH
jps
"jps" <vaderetrosp@mas> a écrit dans le message de news:
eCj6Ij87HHA.3...@TK2MSFTNGP02.phx.gbl...
re rex
voilà, servie sur un plateau, une proc que tu mets dans ton perso.xls,
que
tu affectes à un bouton de ta BO et pour chaque classeur que tu
voudras
créer en .pdf, il te suffira de l'ouvrir et de cliquer sur ledit
bouton
je ne sais pas par contre si cette proc crée des multifeuilles mais
papou
va savoir nous le dire
jps
Sub CreeFichierPDF()
Dim AppPdf As Object
Set AppPdf = CreateObject("PDFCreator.clsPDFCreator")
With AppPdf
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + _
vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = ActiveWorkbook.path & ""
.cOption("AutosaveFilename") = ActiveWorkbook.Name & ".pdf"
.cOption("AutosaveFormat") = 0
.cClearCache
End With
ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
Do Until AppPdf.cCountOfPrintjobs = 1
DoEvents
Loop
AppPdf.cPrinterStop = False
'Wait until PDF creator is finished then release the objects
Do Until AppPdf.cCountOfPrintjobs = 0
DoEvents
Loop
AppPdf.cClose
Set AppPdf = Nothing
End Sub
"jps" <vaderetrosp@mas> a écrit dans le message de news:
u$biBT87HHA.3...@TK2MSFTNGP03.phx.gbl...
bonjour rex
pour le nom de ton fichier et dans la proc au titre ci-dessous, tu
bricoles au niveau des *******
jps
Sub PrintToPDF_Early()
'Author : Ken Puls (www.excelguru.ca)
'Macro Purpose: Print to PDF file using PDFCreator
' (Download fromhttp://sourceforge.net/projects/pdfcreator/)
' Designed for early bind, set reference to PDFCreator
Dim pdfjob As PDFCreator.clsPDFCreator
Dim sPDFName As String
Dim sPDFPath As String
'/// Change the output file name here! ///
sPDFName = ActiveWorkbook.Name & ".pdf" ************
"rthompson" <roubliemoithomp...@softscreen.be> a écrit dans le
message
de
news:
%23dd2tK87HHA.5...__END_MASK_i?a63jfAD$__BEGIN_MASK_n#9g02mG7!__...@TK2MSF
TNGP02.phx.gbl...
Bonjour JPS
Chez moi j'ai installé la dernière versio de PDFcraetor
Et il fonctionne à multiple reprise (jusqu'à présent)
Mon seul problème est le nom de fichier
A plus tard
ET MERCI
Rex ;-))) )))
"jps" <vaderetrosp@mas> a écrit dans le message de news:
elC6Na77HHA....@TK2MSFTNGP02.phx.gbl...
merci papou
mais je n'y comprends plus rien : j'ai pu faire marcher une fois la
proc savante et maintenant on me dit "can't initialize PDFCreator"
et si je fais Imprimer sur PDFCreator, je n'ai plus le panneau qui
s'affiche
et si enfin je vais dans l'explorateur et clique le .exe de
PDFCreator
: oualou de chez oualou
qu'est ce que cette proc a bien pu détruire pour que PFD Creator ne
fonctionne plus?
à vot' bon coeur...
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message
de
news:
ex6I5N67HHA....__END_MASK_i?a63jfAD$__BEGIN_MASK_n#9g02mG7!__...@TK2MSFT
NGP06.phx.gbl...
Le fichier est situé dans le même répertoire que ton classeur en
principe.
Cordialement
Pascal
"jps" <vaderetrosp@mas> a écrit dans le message de news:
%23aawSM67HHA.1...@TK2MSFTNGP05.phx.gbl...
re re papou
c'était bien ça, je pense puisque la proc a fonctionné mais par
contre je ne sais pas où est allé se mettre le fichier .pdf!!!
en avant nosotres pour la recherche
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le
message
denews:
uYEtJs57HHA....__END_MASK_i?a63jfAD$__BEGIN_MASK_n#9g02mG7!__...@TK2MSFTNGP0
Rex
Je viens de tester c'est fonctionnel.
A adapter à ton cas probablement.
Cordialement
Pascal
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le
message
denews:
ubBUDb57HHA.4...__END_MASK_i?a63jfAD$__BEGIN_MASK_n#9g02mG7!__...@TK2MSFTNGP
Bonjour Rex
Je viens de trouver ce lien sur Excel.Programming :
http://www.excelguru.ca:80/node/21
Par contre il faut noter que l'utilisation se fait à partir de
PDFCreator.
Par curiosité je vais tester et je te tiens au courant.
Cordialement
Pascal
"rthompson" <roubliemoithomp...@softscreen.be> a écrit dans le
message denews:
eSa1vQ57HHA.5...__END_MASK_i?a63jfAD$__BEGIN_MASK_n#9g02mG7!__...@TK2MSFTNGP
Bonjour à toutes et tous
Je me suis permis de commencer un nouveau fil
Pour deux raisons
Primo, je commence à me perdre dans l'autre
Et puis ceci intéresse peut-être d'autres
Mais que tout ceci ne m'empêche pas de remercier ceux qui
m'aident
JPS, Lsteph, Trirème, Philippe, François
On approche du but !!!!!!
Pour rappel, il s'agit de faire imprimer une feuille Excel
(pas
le
tout) vers un fichier PDF
Commençons par un bout de code qui fonctionne
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
ActivePrinter: > > >>>>>>>>> _
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code fonctionne, mais demande confirmation d'un nom de
fichier
Et prend comme nom par défault celui du fichier
Et il crée un fichier (une seule feuille) lisible par Acrobat
de
150Kg
Et ce n'est pas le but rechercher
Donc après moulte échanges j'ai trouvé ce code-ci
On change juste les dernières lignes
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
PrintToFile:=True, PrToFilename:="PDFname.pdf"
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code-ci tourne jusqu"au bout, sans message de confirmation
Juste une fenêtre "Printing to Cute....." pendant quelques
secondes
Il crée un fichier PDFname.pdf de 250Kg dans le répertoire du
fichier
Mais quand j'essaie de l'ouvrir Acrobat me dit
que ce n'est pas un fichier pdf ou qu'il est tronqué ou
endommager
Alors je continue mais si ceci vous dit quelque chose
N'hésitez pas
A très bientôt
Rex
bonjour stéphane
moi, je n'ai pas d'erreur avec ta proc mais elle présente le gros
inconvénient de devoir faire la manip' d'enregistrement du fichier .pdf
puisque la proc se termine sur l'ouverture de la fenêtre qui permet
cela....
mais bon.....comme tu dis!
jps
"lSteph" a écrit dans le message de news:
Bonjour,
;o)
Ben Voui!> un truc qui a son importance
ça c'est inclus (variable thisP) dans le code que j'ai proposé mais
bon...!
Pourtant il fonctionne en 2003 et en 97
Faut juste répondre OK si on utilise PDFCreator
et rien à répondre avec PDFWriter.
Si on (Rex ???1004) me dit où ça bugue...
@+
lSteph
On 5 sep, 16:34, "jps" wrote:oops
un truc qui a son importance, je pense, c'est remettre ton imprimante
réelle
opérationnelle en fin de proc sinon tu vas avoir la surprise si tu veux
imprimer tes mémoires juste après les avoir mises en.pdf....
donc, à adapter et à mettre juste avant le End Sub :
Application.ActivePrinter = "EPSON EPL-5700 sur LPT1:"
HTH
jps
"jps" a écrit dans le message de news:re rex
voilà, servie sur un plateau, une proc que tu mets dans ton perso.xls,
que
tu affectes à un bouton de ta BO et pour chaque classeur que tu
voudras
créer en .pdf, il te suffira de l'ouvrir et de cliquer sur ledit
bouton
je ne sais pas par contre si cette proc crée des multifeuilles mais
papou
va savoir nous le dire
jps
Sub CreeFichierPDF()
Dim AppPdf As Object
Set AppPdf = CreateObject("PDFCreator.clsPDFCreator")
With AppPdf
If .cStart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + _
vbOKOnly, "PrtPDFCreator"
Exit Sub
End If
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = ActiveWorkbook.path & ""
.cOption("AutosaveFilename") = ActiveWorkbook.Name & ".pdf"
.cOption("AutosaveFormat") = 0
.cClearCache
End With
ActiveSheet.PrintOut copies:=1, ActivePrinter:="PDFCreator"
Do Until AppPdf.cCountOfPrintjobs = 1
DoEvents
Loop
AppPdf.cPrinterStop = False
'Wait until PDF creator is finished then release the objects
Do Until AppPdf.cCountOfPrintjobs = 0
DoEvents
Loop
AppPdf.cClose
Set AppPdf = Nothing
End Sub
"jps" a écrit dans le message de news:
u$bonjour rex
pour le nom de ton fichier et dans la proc au titre ci-dessous, tu
bricoles au niveau des *******
jps
Sub PrintToPDF_Early()
'Author : Ken Puls (www.excelguru.ca)
'Macro Purpose: Print to PDF file using PDFCreator
' (Download fromhttp://sourceforge.net/projects/pdfcreator/)
' Designed for early bind, set reference to PDFCreator
Dim pdfjob As PDFCreator.clsPDFCreator
Dim sPDFName As String
Dim sPDFPath As String
'/// Change the output file name here! ///
sPDFName = ActiveWorkbook.Name & ".pdf" ************
"rthompson" a écrit dans le
message
de
news:
%23dd2tK87HHA.5...__END_MASK_i?a63jfAD$__BEGIN_MASK_n#9g02mG7!
TNGP02.phx.gbl...
Bonjour JPS
Chez moi j'ai installé la dernière versio de PDFcraetor
Et il fonctionne à multiple reprise (jusqu'à présent)
Mon seul problème est le nom de fichier
A plus tard
ET MERCI
Rex ;-))) )))
"jps" a écrit dans le message de news:merci papou
mais je n'y comprends plus rien : j'ai pu faire marcher une fois la
proc savante et maintenant on me dit "can't initialize PDFCreator"
et si je fais Imprimer sur PDFCreator, je n'ai plus le panneau qui
s'affiche
et si enfin je vais dans l'explorateur et clique le .exe de
PDFCreator
: oualou de chez oualou
qu'est ce que cette proc a bien pu détruire pour que PFD Creator ne
fonctionne plus?
à vot' bon coeur...
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le message
de
news:
ex6I5N67HHA....__END_MASK_i?a63jfAD$__BEGIN_MASK_n#9g02mG7!
NGP06.phx.gbl...
Le fichier est situé dans le même répertoire que ton classeur en
principe.
Cordialement
Pascal
"jps" a écrit dans le message de news:
%re re papou
c'était bien ça, je pense puisque la proc a fonctionné mais par
contre je ne sais pas où est allé se mettre le fichier .pdf!!!
en avant nosotres pour la recherche
jps
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le
message
denews:
uYEtJs57HHA....__END_MASK_i?a63jfAD$__BEGIN_MASK_n#9g02mG7!
Rex
Je viens de tester c'est fonctionnel.
A adapter à ton cas probablement.
Cordialement
Pascal
"papou" <cpapoupasbon@çanonpluslaposte.net> a écrit dans le
message
denews:
ubBUDb57HHA.4...__END_MASK_i?a63jfAD$__BEGIN_MASK_n#9g02mG7!
Bonjour Rex
Je viens de trouver ce lien sur Excel.Programming :
http://www.excelguru.ca:80/node/21
Par contre il faut noter que l'utilisation se fait à partir de
PDFCreator.
Par curiosité je vais tester et je te tiens au courant.
Cordialement
Pascal
"rthompson" a écrit dans le
message denews:
eSa1vQ57HHA.5...__END_MASK_i?a63jfAD$__BEGIN_MASK_n#9g02mG7!
Bonjour à toutes et tous
Je me suis permis de commencer un nouveau fil
Pour deux raisons
Primo, je commence à me perdre dans l'autreEt puis ceci intéresse peut-être d'autres
Mais que tout ceci ne m'empêche pas de remercier ceux qui
m'aident
JPS, Lsteph, Trirème, Philippe, François
On approche du but !!!!!!
Pour rappel, il s'agit de faire imprimer une feuille Excel
(pas
le
tout) vers un fichier PDF
Commençons par un bout de code qui fonctionne
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Range("C4").Select
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone,
SkipBlanks _
:úlse, Transpose:úlse
Range("E2").Select
Application.CutCopyMode = False
Range("E2").Select
Selection.Copy
Application.CutCopyMode = False
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
ActivePrinter: > > >>>>>>>>> _
"CutePDF Writer on CPW2:", Collate:=True
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code fonctionne, mais demande confirmation d'un nom de
fichier
Et prend comme nom par défault celui du fichier
Et il crée un fichier (une seule feuille) lisible par Acrobat
de
150Kg
Et ce n'est pas le but rechercher
Donc après moulte échanges j'ai trouvé ce code-ci
On change juste les dernières lignes
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Application.ActivePrinter = "CutePDF Writer on CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1,
PrintToFile:=True, PrToFilename:="PDFname.pdf"
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Ce code-ci tourne jusqu"au bout, sans message de confirmation
Juste une fenêtre "Printing to Cute....." pendant quelques
secondes
Il crée un fichier PDFname.pdf de 250Kg dans le répertoire du
fichier
Mais quand j'essaie de l'ouvrir Acrobat me dit
que ce n'est pas un fichier pdf ou qu'il est tronqué ou
endommager
Alors je continue mais si ceci vous dit quelque chose
N'hésitez pas
A très bientôt
Rex
Salut François
Fais bien tous les tests ! j'ai acrobat complet et du coup je ne
souhaite pas installer pdf creator (dont on se passe de toutes façons
avec xl2007) alors je compte sur vos tests à tous avec différentes
configs ;-)
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.netévidemment ! je suis le fil ;-)
Bonsoir Flo,
Pour ce qui me concerne, je ferai des tests plus poussés avec la config
indiquée dans mon post : XP pro + XL97 + PDFCreator 0.9.0
De ce que j'ai vu, je n'ai pas rencontré les problèmes signalés par le
président jps, mais je regarderai cela de plus près.
Pour Distiller, je n'ai pas l'article.
Salut François
Fais bien tous les tests ! j'ai acrobat complet et du coup je ne
souhaite pas installer pdf creator (dont on se passe de toutes façons
avec xl2007) alors je compte sur vos tests à tous avec différentes
configs ;-)
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
évidemment ! je suis le fil ;-)
Bonsoir Flo,
Pour ce qui me concerne, je ferai des tests plus poussés avec la config
indiquée dans mon post : XP pro + XL97 + PDFCreator 0.9.0
De ce que j'ai vu, je n'ai pas rencontré les problèmes signalés par le
président jps, mais je regarderai cela de plus près.
Pour Distiller, je n'ai pas l'article.
Salut François
Fais bien tous les tests ! j'ai acrobat complet et du coup je ne
souhaite pas installer pdf creator (dont on se passe de toutes façons
avec xl2007) alors je compte sur vos tests à tous avec différentes
configs ;-)
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.netévidemment ! je suis le fil ;-)
Bonsoir Flo,
Pour ce qui me concerne, je ferai des tests plus poussés avec la config
indiquée dans mon post : XP pro + XL97 + PDFCreator 0.9.0
De ce que j'ai vu, je n'ai pas rencontré les problèmes signalés par le
président jps, mais je regarderai cela de plus près.
Pour Distiller, je n'ai pas l'article.
évidemment ! je suis le fil ;-)
Quel courage, tu parles d'une pelote ;-) Mais je crois qu'elle vaut le coup.
Fais bien tous les tests ! j'ai acrobat complet et du coup je ne
souhaite pas installer pdf creator (dont on se passe de toutes façons
avec xl2007) alors je compte sur vos tests à tous avec différentes
configs ;-)
Oui, notamment pour Distiller, les réglages des protections, des rotations
évidemment ! je suis le fil ;-)
Quel courage, tu parles d'une pelote ;-) Mais je crois qu'elle vaut le coup.
Fais bien tous les tests ! j'ai acrobat complet et du coup je ne
souhaite pas installer pdf creator (dont on se passe de toutes façons
avec xl2007) alors je compte sur vos tests à tous avec différentes
configs ;-)
Oui, notamment pour Distiller, les réglages des protections, des rotations
évidemment ! je suis le fil ;-)
Quel courage, tu parles d'une pelote ;-) Mais je crois qu'elle vaut le coup.
Fais bien tous les tests ! j'ai acrobat complet et du coup je ne
souhaite pas installer pdf creator (dont on se passe de toutes façons
avec xl2007) alors je compte sur vos tests à tous avec différentes
configs ;-)
Oui, notamment pour Distiller, les réglages des protections, des rotations
évidemment ! je suis le fil ;-)
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.netBonjour,
Avec tout ça, on tient sans doute des solutions adaptés à Distiller et à
PDFCreator. Si on arrivait à faire une synthèse de ce qui marche et de ce
qui ne marche pas, et dans quelles conditions... peut-être que Misange
nous le mettrait sur le Disciplus pour la postérité.
évidemment ! je suis le fil ;-)
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
Bonjour,
Avec tout ça, on tient sans doute des solutions adaptés à Distiller et à
PDFCreator. Si on arrivait à faire une synthèse de ce qui marche et de ce
qui ne marche pas, et dans quelles conditions... peut-être que Misange
nous le mettrait sur le Disciplus pour la postérité.
évidemment ! je suis le fil ;-)
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.netBonjour,
Avec tout ça, on tient sans doute des solutions adaptés à Distiller et à
PDFCreator. Si on arrivait à faire une synthèse de ce qui marche et de ce
qui ne marche pas, et dans quelles conditions... peut-être que Misange
nous le mettrait sur le Disciplus pour la postérité.
au fait écrit-on clicker, cliquer, clicquer ou clicker?
au fait écrit-on clicker, cliquer, clicquer ou clicker?
au fait écrit-on clicker, cliquer, clicquer ou clicker?
Bonsour® rthompson avec ferveur ;o))) vous nous disiez :au fait écrit-on clicker, cliquer, clicquer ou clicker?
cliquer /kli.ke/ 1er groupe (conjugaison)
(Informatique) Enfoncer et relâcher le bouton-poussoir (ou cliquet) d'une
souris ou d'un dispositif similaire.
Traductions
anglais : click (en)* (on)
espagnol : pinchar (es)*, cliquear (es)*, hacer clic (es)*
http://fr.wiktionary.org/wiki/cliquer
@+
;o)))
Bonsour® rthompson avec ferveur ;o))) vous nous disiez :
au fait écrit-on clicker, cliquer, clicquer ou clicker?
cliquer /kli.ke/ 1er groupe (conjugaison)
(Informatique) Enfoncer et relâcher le bouton-poussoir (ou cliquet) d'une
souris ou d'un dispositif similaire.
Traductions
anglais : click (en)* (on)
espagnol : pinchar (es)*, cliquear (es)*, hacer clic (es)*
http://fr.wiktionary.org/wiki/cliquer
@+
;o)))
Bonsour® rthompson avec ferveur ;o))) vous nous disiez :au fait écrit-on clicker, cliquer, clicquer ou clicker?
cliquer /kli.ke/ 1er groupe (conjugaison)
(Informatique) Enfoncer et relâcher le bouton-poussoir (ou cliquet) d'une
souris ou d'un dispositif similaire.
Traductions
anglais : click (en)* (on)
espagnol : pinchar (es)*, cliquear (es)*, hacer clic (es)*
http://fr.wiktionary.org/wiki/cliquer
@+
;o)))
Bonsoir,
(recopie et enrichissement du post du 05/09/2007 de ce fil)
Il s'agit d'imprimer une feuille ou tout un classeur Excel vers un
document pdf.
Le procédé décrit ici utilise Acrobat Distiller, programme payant.
Testé avec Acrobat Distiller 5.0, Excel 2002, XP pro
Le référencement d'Acrobat Distiller dans VBA est nécessaire. Il donne
accès à de nouveaux objets avec leurs méthodes, propriétés et
évènements. Dans le code ci-dessous 2 méthodes et 1 propriétés sont
utilisées. Pour mieux les utiliser et connaitre les autres, lire
Acrobat® Distiller® API Reference ici :
http://www.adobe.com/devnet/acrobat/pdfs/distiller_api_reference.pdf
(version 8.0)
Extraits :
FileToPDF : Soumet un fichier PostScript à Distiller.
Parameters
strInputPostScript Le fichier PostScript à convertir.
strOutputPDF Le nom du fichier PDF en sortie.
strPDFOptions Le nom et le chemin du fichier d'options à utiliser.
Si ce dernier fichier d'options n'est pas précisé, la macro utilisera
celui utilisé au cours du dernier lancement en direct. Ce fichier prend
en compte des réglages de couleur, de compatibilité avec les versions
d'Acrobat Reader, de cryptage... Le choix se fait un peu selon que l'on
visualise le fichier à l'écran ou qu'on l'imprime, car il y a une option
de rotation ou non des pages en paysage. Plus d'informations en lançant
Acrobat Distiller lui-même en direct.
Les paramètres de protection ne sont pas décrits dans ce fichier
d'options. Acrobat Distiller autorise ou non : l'impression du document,
la modification, la sélection-copie du contenu, l'ajout de commentaires,
l'extraction de pages, l'assemblage de pages, l'usage d'un mot de
passe... On peut modifier ces paramètres en lançant Acrobat Distiller en
direct mais pas par macro. La macro ci-dessous ne fera que prendre en
compte les paramètres utilisés au cours du dernier lancement en direct.
Entre la version 5 testée et la version 8 est apparue la méthode
FileToPDF2 utilisant un 4ème paramètre booléen semblant faire référence
à la sécurité évoquée ici.
Les fichiers de paramètres prédéfinis sont ici : C:Documents and
SettingsAll UsersDocumentsAdobe PDFSettings et portent l'extension
.jopboptions
Sinon, les paramètres par défaut sont inscrits
pour Windows dans la base de registre :
MyComputerHKEY_LOCAL_MACHINESOFTWAREAdobePDF Settings
et pour Mac dans le fichier des préférences :
com.adobe.AdobePDFSettings.plist. (in /Library/Preferences/).
Enfin, le code :
' **********************************************************************
Private Sub ImprimePDF()
' original code there : http://www.rdpslides.com/psfaq/FAQ00053.htm
' L'impression dans un fichier via l'imprimante Acrobat Distiller
' génère un fichier postscript. On nomme ce fichier avec l'extension .ps
' (mais ça n'est pas obligatoire).
' Ce fichier .ps est converti en .pdf dans un deuxième temps
' Éventuellement cette conversion peut se dérouler en tâche de fond
' automatiquement pendant que la macro continue son exécution.
' Nécessite le référencement à Acrobat Distiller
' http://www.adobe.com/devnet/acrobat/pdfs/distiller_api_reference.pdf
' Define the postscript and .pdf file names.
Dim PSFileName as String
Dim PDFFileName as String
Dim myPDF As PdfDistiller
PSFileName = "c:myPostScript.ps" ' Nom complet
PDFFileName = "c:myPDF.pdf" ' Nom complet
ParametreName = "c:MesReglages.jopboptions" ' Nom complet
Set myPDF = New PdfDistiller ' Création d'une instance Distiller
myPDF.bSpoolJobs = 1 ' 1 conversion en tâche de fond dans un spool
' 0 conversion immédiate puis reprise de la macro
' Print the Excel range to the postscript file
Dim MySheet As WorkSheet
Set MySheet = ActiveSheet
' Création du fichier .ps
MySheet.Range("myRange").PrintOut copies:=1, preview:úlse,
ActivePrinter:="Acrobat Distiller", printtofile:=True, collate:=True,
prtofilename:=PSFileName
' Convert the postscript file to .pdf
myPDF.FileToPDF PSFileName, PDFFileName, ParametreName
' Peut se résumer à
myPDF.FileToPDF PSFileName, "", ""
Set myPDF = Nothing
End Sub
' **********************************************************************
Pour CutePDF, je suis sur une piste.
Cordialement,
Trirème
Bonsoir,
(recopie et enrichissement du post du 05/09/2007 de ce fil)
Il s'agit d'imprimer une feuille ou tout un classeur Excel vers un
document pdf.
Le procédé décrit ici utilise Acrobat Distiller, programme payant.
Testé avec Acrobat Distiller 5.0, Excel 2002, XP pro
Le référencement d'Acrobat Distiller dans VBA est nécessaire. Il donne
accès à de nouveaux objets avec leurs méthodes, propriétés et
évènements. Dans le code ci-dessous 2 méthodes et 1 propriétés sont
utilisées. Pour mieux les utiliser et connaitre les autres, lire
Acrobat® Distiller® API Reference ici :
http://www.adobe.com/devnet/acrobat/pdfs/distiller_api_reference.pdf
(version 8.0)
Extraits :
FileToPDF : Soumet un fichier PostScript à Distiller.
Parameters
strInputPostScript Le fichier PostScript à convertir.
strOutputPDF Le nom du fichier PDF en sortie.
strPDFOptions Le nom et le chemin du fichier d'options à utiliser.
Si ce dernier fichier d'options n'est pas précisé, la macro utilisera
celui utilisé au cours du dernier lancement en direct. Ce fichier prend
en compte des réglages de couleur, de compatibilité avec les versions
d'Acrobat Reader, de cryptage... Le choix se fait un peu selon que l'on
visualise le fichier à l'écran ou qu'on l'imprime, car il y a une option
de rotation ou non des pages en paysage. Plus d'informations en lançant
Acrobat Distiller lui-même en direct.
Les paramètres de protection ne sont pas décrits dans ce fichier
d'options. Acrobat Distiller autorise ou non : l'impression du document,
la modification, la sélection-copie du contenu, l'ajout de commentaires,
l'extraction de pages, l'assemblage de pages, l'usage d'un mot de
passe... On peut modifier ces paramètres en lançant Acrobat Distiller en
direct mais pas par macro. La macro ci-dessous ne fera que prendre en
compte les paramètres utilisés au cours du dernier lancement en direct.
Entre la version 5 testée et la version 8 est apparue la méthode
FileToPDF2 utilisant un 4ème paramètre booléen semblant faire référence
à la sécurité évoquée ici.
Les fichiers de paramètres prédéfinis sont ici : C:Documents and
SettingsAll UsersDocumentsAdobe PDFSettings et portent l'extension
.jopboptions
Sinon, les paramètres par défaut sont inscrits
pour Windows dans la base de registre :
MyComputerHKEY_LOCAL_MACHINESOFTWAREAdobePDF Settings
et pour Mac dans le fichier des préférences :
com.adobe.AdobePDFSettings.plist. (in /Library/Preferences/).
Enfin, le code :
' **********************************************************************
Private Sub ImprimePDF()
' original code there : http://www.rdpslides.com/psfaq/FAQ00053.htm
' L'impression dans un fichier via l'imprimante Acrobat Distiller
' génère un fichier postscript. On nomme ce fichier avec l'extension .ps
' (mais ça n'est pas obligatoire).
' Ce fichier .ps est converti en .pdf dans un deuxième temps
' Éventuellement cette conversion peut se dérouler en tâche de fond
' automatiquement pendant que la macro continue son exécution.
' Nécessite le référencement à Acrobat Distiller
' http://www.adobe.com/devnet/acrobat/pdfs/distiller_api_reference.pdf
' Define the postscript and .pdf file names.
Dim PSFileName as String
Dim PDFFileName as String
Dim myPDF As PdfDistiller
PSFileName = "c:myPostScript.ps" ' Nom complet
PDFFileName = "c:myPDF.pdf" ' Nom complet
ParametreName = "c:MesReglages.jopboptions" ' Nom complet
Set myPDF = New PdfDistiller ' Création d'une instance Distiller
myPDF.bSpoolJobs = 1 ' 1 conversion en tâche de fond dans un spool
' 0 conversion immédiate puis reprise de la macro
' Print the Excel range to the postscript file
Dim MySheet As WorkSheet
Set MySheet = ActiveSheet
' Création du fichier .ps
MySheet.Range("myRange").PrintOut copies:=1, preview:úlse,
ActivePrinter:="Acrobat Distiller", printtofile:=True, collate:=True,
prtofilename:=PSFileName
' Convert the postscript file to .pdf
myPDF.FileToPDF PSFileName, PDFFileName, ParametreName
' Peut se résumer à
myPDF.FileToPDF PSFileName, "", ""
Set myPDF = Nothing
End Sub
' **********************************************************************
Pour CutePDF, je suis sur une piste.
Cordialement,
Trirème
Bonsoir,
(recopie et enrichissement du post du 05/09/2007 de ce fil)
Il s'agit d'imprimer une feuille ou tout un classeur Excel vers un
document pdf.
Le procédé décrit ici utilise Acrobat Distiller, programme payant.
Testé avec Acrobat Distiller 5.0, Excel 2002, XP pro
Le référencement d'Acrobat Distiller dans VBA est nécessaire. Il donne
accès à de nouveaux objets avec leurs méthodes, propriétés et
évènements. Dans le code ci-dessous 2 méthodes et 1 propriétés sont
utilisées. Pour mieux les utiliser et connaitre les autres, lire
Acrobat® Distiller® API Reference ici :
http://www.adobe.com/devnet/acrobat/pdfs/distiller_api_reference.pdf
(version 8.0)
Extraits :
FileToPDF : Soumet un fichier PostScript à Distiller.
Parameters
strInputPostScript Le fichier PostScript à convertir.
strOutputPDF Le nom du fichier PDF en sortie.
strPDFOptions Le nom et le chemin du fichier d'options à utiliser.
Si ce dernier fichier d'options n'est pas précisé, la macro utilisera
celui utilisé au cours du dernier lancement en direct. Ce fichier prend
en compte des réglages de couleur, de compatibilité avec les versions
d'Acrobat Reader, de cryptage... Le choix se fait un peu selon que l'on
visualise le fichier à l'écran ou qu'on l'imprime, car il y a une option
de rotation ou non des pages en paysage. Plus d'informations en lançant
Acrobat Distiller lui-même en direct.
Les paramètres de protection ne sont pas décrits dans ce fichier
d'options. Acrobat Distiller autorise ou non : l'impression du document,
la modification, la sélection-copie du contenu, l'ajout de commentaires,
l'extraction de pages, l'assemblage de pages, l'usage d'un mot de
passe... On peut modifier ces paramètres en lançant Acrobat Distiller en
direct mais pas par macro. La macro ci-dessous ne fera que prendre en
compte les paramètres utilisés au cours du dernier lancement en direct.
Entre la version 5 testée et la version 8 est apparue la méthode
FileToPDF2 utilisant un 4ème paramètre booléen semblant faire référence
à la sécurité évoquée ici.
Les fichiers de paramètres prédéfinis sont ici : C:Documents and
SettingsAll UsersDocumentsAdobe PDFSettings et portent l'extension
.jopboptions
Sinon, les paramètres par défaut sont inscrits
pour Windows dans la base de registre :
MyComputerHKEY_LOCAL_MACHINESOFTWAREAdobePDF Settings
et pour Mac dans le fichier des préférences :
com.adobe.AdobePDFSettings.plist. (in /Library/Preferences/).
Enfin, le code :
' **********************************************************************
Private Sub ImprimePDF()
' original code there : http://www.rdpslides.com/psfaq/FAQ00053.htm
' L'impression dans un fichier via l'imprimante Acrobat Distiller
' génère un fichier postscript. On nomme ce fichier avec l'extension .ps
' (mais ça n'est pas obligatoire).
' Ce fichier .ps est converti en .pdf dans un deuxième temps
' Éventuellement cette conversion peut se dérouler en tâche de fond
' automatiquement pendant que la macro continue son exécution.
' Nécessite le référencement à Acrobat Distiller
' http://www.adobe.com/devnet/acrobat/pdfs/distiller_api_reference.pdf
' Define the postscript and .pdf file names.
Dim PSFileName as String
Dim PDFFileName as String
Dim myPDF As PdfDistiller
PSFileName = "c:myPostScript.ps" ' Nom complet
PDFFileName = "c:myPDF.pdf" ' Nom complet
ParametreName = "c:MesReglages.jopboptions" ' Nom complet
Set myPDF = New PdfDistiller ' Création d'une instance Distiller
myPDF.bSpoolJobs = 1 ' 1 conversion en tâche de fond dans un spool
' 0 conversion immédiate puis reprise de la macro
' Print the Excel range to the postscript file
Dim MySheet As WorkSheet
Set MySheet = ActiveSheet
' Création du fichier .ps
MySheet.Range("myRange").PrintOut copies:=1, preview:úlse,
ActivePrinter:="Acrobat Distiller", printtofile:=True, collate:=True,
prtofilename:=PSFileName
' Convert the postscript file to .pdf
myPDF.FileToPDF PSFileName, PDFFileName, ParametreName
' Peut se résumer à
myPDF.FileToPDF PSFileName, "", ""
Set myPDF = Nothing
End Sub
' **********************************************************************
Pour CutePDF, je suis sur une piste.
Cordialement,
Trirème
