choix des feuilles en pdf

[narvalot]

Bonjour le Forum

J'ai une macro pour faire des pdf mais je voudrais incorporer (si c'est possible)dans la macro, un choix de feuille

Voici ma macro :

Sub impress_pdf()

Application.ActivePrinter = "PDFCreator sur Ne00:"

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
End Sub

Autre question, sur mon ordi, les pdf sorte bien mais sur l'ordi d'un collègue ça me mets erreur 400, je suis obliger de changer de Ne00 par Ne01, C'est quoi excactement Ne00

Par avance, merci pour vos réponses et votre aide

Cordialement

Narvalot

 

[kiki29]

Re : choix des feuilles en pdf

Salut, en informatique/programmation historiquement le 1er élément est noté 0 et pas 1, ici 00 ou 01 ou xx dépend de l'ordre dans lequel les pilotes des imprimantes ont été installés.

Voir ici pour ton pb de sélection d'imprimante, une fonction Imprimante_AdobePDF() As Boolean à adapter à ton contexte.

 

[narvalot]

Re : choix des feuilles en pdf

Donc je ne peux rien faire concernat ces imprimantes, j'ai essayé ton code mais ça beug

 

[kiki29]

Re : choix des feuilles en pdf

j'ai essayé ton code mais ça beug

, ici cela fonctionne, donc quel est le msg d'erreur, la ligne, le code que tu as utilisé et adapté ?

 

[narvalot]

Re : choix des feuilles en pdf

Voilà

Sub impress_pdf()

Imprimante_AdobePDF() As Boolean

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
End Sub


au lieu de
Sub impress_pdf()

Application.ActivePrinter = "PDFCreator sur Ne00:"

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
End Sub

 

[kiki29]

Re : choix des feuilles en pdf

Salut, un conseil : laisse tomber la programmation ..... car là c'est le niveau 0.

 

[narvalot]

Re : choix des feuilles en pdf

Pas très sympa

 

[narvalot]

Re : choix des feuilles en pdf

Bah, je ne connais rien à la programmation, j'étais venu pour avoir une suite à cette macro, mais bon, ce n'est pas grave
Narvalot

 

[narvalot]

Re : choix des feuilles en pdf

en fait c'était simple, merci pour tous
Sub impress_pdf()

Application.ActivePrinter = "PDFCreator sur Ne00:"

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
End Sub

Il suffit de mettre autant de copie que l'on veux et activer les onglets que l'on veux et ça fonctionne très bien.
En fait pas si zéro que ça MONSIEUR KIKI 29

 

[kiki29]

Re : choix des feuilles en pdf

Mon pauvre tu ne fais que me confirmer ta médiocrité, car tu ne sais toujours pas ce que tu fais.

 

[narvalot]

Re : choix des feuilles en pdf

Merci de ton approbation