Macro PDF

JM -  
f894009 Messages postés 17272 Date d'inscription   Statut Membre Dernière intervention   -
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 17272 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
 
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 17272 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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