Sujet Précédent Sujet Suivant

Macro PDF

Fermé
JM - 14 févr. 2017 à 02:16
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 14 févr. 2017 à 16:58
Bonjour,

J'ai ajusté la mise en page d'une feuille de mon classeur Excel afin que celle-ci imprime 1 page de largeur sur 7 pages de hauteur. Je veux qu'en cliquant sur un bouton, je puisse imprimer mes pages en format PDF.

Voici ma macro:
Sub pdf()
'
' pdf Macro
'
'
ChDir "C:\Disque D"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Disque D\pdfmacro.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End Sub

Le problème c'est que je n'imprime que la première page en pdf. Comment faire pour imprimer les 7 pages?

Merci à l'avance.

A voir également:

2 réponses

Réponse 1 / 2
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
14 févr. 2017 à 08:38
Bonjour,

Le problème c'est que je n'imprime que la première page en pdf.
Ce n'est pas une impression, mais un export format PDF.
Vous n'avez qu'une seule page ou vous n'obtenez pas ceci:
afin que celle-ci imprime 1 page de largeur sur 7 pages de hauteur.
0
Réponse 2 / 2
JM
14 févr. 2017 à 16:46
Finalement, j'ai retravaillé ma mise en page et je crois que ça fonctionne bien.

Autre question. Avec ma macro, excel fait un export en PDF sous le nom de "pdfmacro.pdf".Est-ce que c'est possible de lui demander sous quel nom exporter le PDF?

Merci à l'avance et bonne journée!
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
14 févr. 2017 à 16:58
Re,

Inputbox pour saisir le nom de fichier et integrer le nom (exemple: Nom_Fichier) dans la chaine de caractere 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ 
"C:\Disque D\" & Nom_Fichier & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
0