OVH Cloud OVH Cloud

Macro d'Impression pdf sur mac

1 réponse
Avatar
Serge Marolleau
> Ce message est au format MIME. Comme votre programme de lecture de courriers ne comprend pas
ce format, il se peut que tout ou une partie de ce message soit illisible.

--B_3216194828_2265868
Content-type: text/plain; charset="ISO-8859-1"
Content-transfer-encoding: 8bit



Bonjour,

Je travaille sous max OS X

Souhaitant enregistrer sous des feuilles de classeur en pdf,
Quelle ligne de commande écrire dans une macro qui permet a Excell
d¹imprimer automatiquement la feuille du classeur actif en pdf :
Avec le nom de la feuille+.pdf à la place de .xls

J¹¹ai essayé de le faire en enregistrant dans une macro pas à pas toutes les
manip que je souhaite voir effectuer :
Et Excell ecrit seulement les lignes suivantes dans la macro :

Sub pdf()
'
' pdf Macro
' Macro enregistrée le 30/11/2005 par sm

ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

Cela ne marche pas en la lançant ?
Il ne se passe rien ?

Quelle ligne ajouter pour forcer l¹imprimante à imprimer en pdf ?

Merci 1000 fois pour vos conseils
Cordialement
Serge

--B_3216194828_2265868
Content-type: text/html; charset="ISO-8859-1"
Content-transfer-encoding: quoted-printable

<HTML>
<HEAD>
<TITLE>Macro d'Impression pdf sur mac</TITLE>
</HEAD>
<BODY>
<FONT FACE=3D"Verdana"><SPAN STYLE=3D'font-size:12.0px'><BR>
<BR>
Bonjour,<BR>
<BR>
Je travaille sous max OS X<BR>
<BR>
Souhaitant enregistrer sous des feuilles de classeur en pdf,<BR>
Quelle ligne de commande &eacute;crire dans une macro qui permet &nbsp;a Ex=
cell d&#8217;imprimer automatiquement la feuille du classeur actif en pdf :<=
BR>
Avec le nom de la feuille+.pdf &agrave; la place de .xls<BR>
<BR>
J&#8217;&#8217;ai essay&eacute; de le faire en enregistrant dans une macro =
pas &agrave; pas toutes les manip que je souhaite voir effectuer : <BR>
Et Excell ecrit seulement les lignes suivantes dans la macro :<BR>
<BR>
Sub pdf()<BR>
'<BR>
' pdf Macro<BR>
' Macro enregistr&eacute;e le 30/11/2005 par sm<BR>
<BR>
&nbsp;&nbsp;&nbsp;&nbsp;ActiveWindow.SelectedSheets.PrintOut Copies:=3D1<BR>
End Sub<BR>
<BR>
Cela ne marche pas en la lan&ccedil;ant ?<BR>
Il ne se passe rien ?<BR>
<BR>
Quelle ligne ajouter pour forcer l&#8217;imprimante &agrave; imprimer en pd=
f ?<BR>
<BR>
Merci 1000 fois pour vos conseils<BR>
Cordialement<BR>
Serge</SPAN></FONT>
</BODY>
</HTML>


--B_3216194828_2265868--

1 réponse

Avatar
Serge Marolleau
Ce message est au format MIME. Comme votre programme de lecture de courriers ne comprend pas
ce format, il se peut que tout ou une partie de ce message soit illisible.


--B_3216201104_2604715
Content-type: text/plain; charset="ISO-8859-1"
Content-transfer-encoding: 8bit

Merci Rex
Elle ne fonctionne pas sur Mac
Quelqu¹un aurait-il une macro compatible OXX

Rappel de la question initiale :
Souhaitant enregistrer sous des feuilles de classeur en pdf,
Quelle ligne de commande écrire dans une macro qui puisse permette a Excell
d¹imprimer automatiquement la feuille du classeur actif en pdf :
Avec le nom de la feuille+.pdf à la place de .xls
)










Le 30/11/05 11:35, dans , « RT »
a écrit :

Bonjour

Celle-ci fonctionne impeccable chez moi
Sous Windows


J'espère que cela peut aider

Rex



Sub Cmdprintpdf_Click()

' printpdf Macro
' creates a pdf file
'
'
Application.ActivePrinter = "Acrobat PDFWriter on LPT1:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"Acrobat PDFWriter on LPT1:"

End Sub








"Serge Marolleau" wrote in message
news:BFB33D0A.220E%

Bonjour,

Je travaille sous max OS X

Souhaitant enregistrer sous des feuilles de classeur en pdf,
Quelle ligne de commande écrire dans une macro qui permet a Excell
d¹imprimer automatiquement la feuille du classeur actif en pdf :
Avec le nom de la feuille+.pdf à la place de .xls

J¹¹ai essayé de le faire en enregistrant dans une macro pas à pas toutes les
manip que je souhaite voir effectuer :
Et Excell ecrit seulement les lignes suivantes dans la macro :

Sub pdf()
'
' pdf Macro
' Macro enregistrée le 30/11/2005 par sm

ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

Cela ne marche pas en la lançant ?
Il ne se passe rien ?

Quelle ligne ajouter pour forcer l¹imprimante à imprimer en pdf ?

Merci 1000 fois pour vos conseils
Cordialement
Serge






--B_3216201104_2604715
Content-type: text/html; charset="ISO-8859-1"
Content-transfer-encoding: quoted-printable

<HTML>
<HEAD>
<TITLE>Re: Macro d'Impression pdf sur mac</TITLE>
</HEAD>
<BODY>
<FONT FACE="Verdana"><SPAN STYLE='font-size:12.0px'>Merci Rex<BR>
Elle ne fonctionne pas sur Mac <BR>
Quelqu&#8217;un aurait-il une macro compatible OXX<BR>
<BR>
Rappel de la question initiale :<BR>
Souhaitant enregistrer sous des feuilles de &nbsp;classeur en pdf,<BR>
</SPAN></FONT><BLOCKQUOTE><BLOCKQUOTE><FONT FACE="Verdana"><SPAN STYLE='fon t-size:12.0px'>Quelle ligne de commande &eacute;crire dans une macro qui pui sse permette &nbsp;&nbsp;a Excell d&#8217;imprimer automatiquement la feuill e du classeur actif en pdf &nbsp;:<BR>
Avec le nom de la feuille+.pdf &agrave; la place de .xls<BR>
</SPAN></FONT></BLOCKQUOTE></BLOCKQUOTE><FONT FACE="Verdana"><SPAN STYLE='f ont-size:12.0px'>)<BR>
<BR>
<BR>
<BR>
<BR>
<BR>
<BR>
<BR>
<BR>
Le 30/11/05 11:35, dans , &laquo; RT & raquo; &lt;&gt; a &eacute;crit :<BR>
<BR>
</SPAN></FONT><BLOCKQUOTE><SPAN STYLE='font-size:12.0px'><FONT FACE="Arial" >Bonjour<BR>
</FONT><FONT FACE="Verdana"> <BR>
</FONT><FONT FACE="Arial">Celle-ci fonctionne impeccable chez moi<BR>
Sous Windows<BR>
</FONT><FONT FACE="Verdana"> <BR>
&nbsp;<BR>
</FONT><FONT FACE="Arial">J'esp&egrave;re que cela peut aider<BR>
</FONT><FONT FACE="Verdana"><BR>
</FONT><FONT FACE="Arial">Rex<BR>
</FONT><FONT FACE="Verdana"> <BR>
&nbsp;<BR>
<BR>
</FONT><FONT FACE="Arial">Sub Cmdprintpdf_Click()<BR>
</FONT><FONT FACE="Verdana"> <BR>
</FONT><FONT FACE="Arial">' printpdf Macro<BR>
' creates a pdf file<BR>
'<BR>
'<BR>
&nbsp;&nbsp;&nbsp;&nbsp;Application.ActivePrinter = &quot;Acrobat PDFWriter on LPT1:&quot;<BR>
&nbsp;&nbsp;&nbsp;&nbsp;ActiveWindow.SelectedSheets.PrintOut Copies:=1, Act ivePrinter:= _<BR>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&quot;Acrobat PDFWriter on LPT1:&quot;<BR>
</FONT><FONT FACE="Verdana"><BR>
</FONT><FONT FACE="Arial">End Sub<BR>
</FONT><FONT FACE="Verdana"> <BR>
&nbsp;<BR>
&nbsp;<BR>
&nbsp;<BR>
&nbsp;<BR>
&nbsp;<BR>
<BR>
</FONT></SPAN><BLOCKQUOTE><SPAN STYLE='font-size:12.0px'><FONT FACE="Verdan a"> <BR>
&quot;Serge Marolleau&quot; &lt;&gt; &nbsp;wrote in message news:BFB33D0A.220E%<BR>
<BR>
Bonjour,<BR>
<BR>
Je &nbsp;travaille sous max OS X<BR>
<BR>
Souhaitant enregistrer sous des feuilles de &nbsp;classeur en pdf,<BR>
Quelle ligne de commande &eacute;crire dans une macro qui permet &nbsp;&nbs p;a Excell d&#8217;imprimer automatiquement la feuille du classeur actif en pdf &nbsp;:<BR>
Avec le nom de la feuille+.pdf &agrave; la place de .xls<BR>
<BR>
J&#8217;&#8217;ai essay&eacute; de &nbsp;le faire en enregistrant dans une macro pas &agrave; pas toutes les manip que je &nbsp;souhaite voir effectuer : <BR>
Et Excell ecrit seulement les lignes suivantes &nbsp;dans la macro :<BR>
<BR>
Sub pdf()<BR>
'<BR>
' pdf Macro<BR>
' Macro enregistr&eacute;e le &nbsp;30/11/2005 par &nbsp;sm<BR>
<BR>
&nbsp;&nbsp;&nbsp;&nbsp;ActiveWindow.SelectedSheets.PrintOut &nbsp;Copies:= 1<BR>
End Sub<BR>
<BR>
Cela ne marche pas en la lan&ccedil;ant ?<BR>
Il ne se &nbsp;passe rien ?<BR>
<BR>
Quelle ligne ajouter pour forcer l&#8217;imprimante &agrave; imprimer &nbsp ;en pdf ?<BR>
<BR>
Merci 1000 fois pour vos &nbsp;conseils<BR>
Cordialement<BR>
Serge <BR>
</FONT></SPAN></BLOCKQUOTE><SPAN STYLE='font-size:12.0px'><FONT FACE="Verda na"><BR>
</FONT></SPAN></BLOCKQUOTE><SPAN STYLE='font-size:12.0px'><FONT FACE="Verda na"><BR>
</FONT></SPAN>
</BODY>
</HTML>


--B_3216201104_2604715--