Jacques25bis
XLDnaute Junior
Bonjour à tous,
Dans mon fichier je lance par macro l'impression en PDF de ma page qui se remplie via un tableau de données. Depuis peu je rencontre un soucis, l'impression se fait cellule par cellule au lieu de ma page normale. Soit 189 pages au lieu d'une. Etant donné que je ne vérifie pas le fichier PDF avant l'envoi ça pose des soucis.
Le problème est aléatoire peut-être une fois sur 10 mais c'est très variable.
Comment pourrais-je m'assurer que l'impression est correcte à chaque fois?
Est-ce qu'il faut que je redéfinisse ma zone d'impression dans ma macro avant de lancer l'impression?
Est-ce qu'il faut que je programme le fait de s'adapter à une page en largeur/longueur? et comment le faire?
Y-a t-il un moyen de savoir combien de page fait le fichier PDF généré et m'envoyer une alerte si >1?
Si vous avez déjà eu le cas ça m'intéresse de savoir comment vous l'avez réglé.
Ci-dessous le bout de code pour l'impression :
'Impression PDF
Chemin = "\\serveur\ABC\XYZ\DEF\UVW\"
ActiveWorkbook.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=Chemin & Nom & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Merci de votre compréhension.
Jack
Dans mon fichier je lance par macro l'impression en PDF de ma page qui se remplie via un tableau de données. Depuis peu je rencontre un soucis, l'impression se fait cellule par cellule au lieu de ma page normale. Soit 189 pages au lieu d'une. Etant donné que je ne vérifie pas le fichier PDF avant l'envoi ça pose des soucis.
Le problème est aléatoire peut-être une fois sur 10 mais c'est très variable.
Comment pourrais-je m'assurer que l'impression est correcte à chaque fois?
Est-ce qu'il faut que je redéfinisse ma zone d'impression dans ma macro avant de lancer l'impression?
Est-ce qu'il faut que je programme le fait de s'adapter à une page en largeur/longueur? et comment le faire?
Y-a t-il un moyen de savoir combien de page fait le fichier PDF généré et m'envoyer une alerte si >1?
Si vous avez déjà eu le cas ça m'intéresse de savoir comment vous l'avez réglé.
Ci-dessous le bout de code pour l'impression :
'Impression PDF
Chemin = "\\serveur\ABC\XYZ\DEF\UVW\"
ActiveWorkbook.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=Chemin & Nom & ".pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=False, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Merci de votre compréhension.
Jack
