MACRO impressio sans page blache

[mix770]

Bonsoir le forum,
j'ai besoin d'un ti coup de pouce SVP

j'ai un classeur avec 52 onglets, jai fait une macro qui permet d'imprimer une zone précise par onglet, (A1:M46)
cela fonctionne mais je me retrouve avec 103 feuilles une page sur 2 est blanche. autre chose quel est le code pour imprimer en PDF.
ci dessous ma macro
merci à vous
cordialement

Sub imprim_janv()

Sheets(Array("Nom 1", "Nom 2", "Nom 3", "Nom 4", "Nom 5", "Nom 6", "Nom 7", "Nom 8", _
"Nom 9", "Nom 10", "Nom 11", "Nom 12", "Nom 13", "Nom 14", "Nom 15", "Nom 16", "Nom 17" _
, "Nom 18", "Nom 19", "Nom 20", "Nom 21", "Nom 22", "Nom 23", "Nom 24", "Nom 25", "Nom 26", "Nom 27", "Nom 28", "Nom 29", "Nom 30", "Nom 31", "Nom 32", _
"Nom 33", "Nom 34", "Nom 35", "Nom 36", "Nom 37", "Nom 38", "Nom 39", "Nom 40", _
"Nom 41", "Nom 42", "Nom 43", "Nom 44", "Nom 45", "Nom 46", "Nom 47", "Nom 48", _
"Nom 49", "Nom 50", "Nom 51", "Nom 52")).Select Replace:=True
Range("A1:M46").Select
ActiveWindow.SelectedSheets.PrintOut Collate:=False
Sheets("Accueil Service continu").Select
End Sub

 

[Jacou]

Re : MACRO impressio sans page blache

Bonsoir à tous,
pour imprimer en pdf, le plus simple est de télécharger PDFCREATOR qui se comporte comme une imprimante et de déclarer PdfCreator comme imprimante par défaut avant de lancer ta macro.
Bonne nuit

 

[Jacou]

Re : MACRO impressio sans page blache

re
peut-être pourrais-tu essayer d'ajouter ceci :

ActiveSheet.PageSetup.PrintArea = "$A$1:$M$46"
With ActiveSheet.PageSetup
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With

 

[mix770]

Re : MACRO impressio sans page blache

Bonjour Jacou,
ça ne marche pas
c'est quelle commande cette ligne ?
FitToPagesWide = 1
.FitToPagesTall = 1

cordialement

 

[Jacou]

Re : MACRO impressio sans page blache

Bonjour mix770,
en fait les commandes complètes sont :
ActiveSheet.PageSetup.FitToPagesWide = 1
ActiveSheet.PageSetup.FitToPagesTall = 1
(d'où le "With ActiveSheet.PageSetup" qui les précède)

elles correspondent à l'option "échelle" dans le menu "mise en page" à


bonne journée

 

[mix770]

Re : MACRO impressio sans page blache

Bonjour Jacou
merci pour l'explication
bien cordialement
bonne journée