Re : impression de pages dans une feuille
Bonjour
Tu peux même encore reduire...
Mais tu as supprimer les marges, l'impression noir et blanc
Il faut voir ce que tu as besoin...
De toute façon il faut que tu precises les cellules donc:
ActiveSheet.PageSetup.PrintArea = "$B$1:$AF$34"
la ligne suivante c'est l'orientation portrait ou paysage... (.Orientation = xlLandscape)
la taille du papier n'est peut etre pas obligatoire...
Sub Imprimer()
ActiveSheet.PageSetup.PrintArea = "$B$1:$AF$34"
With ActiveSheet.PageSetup
.Orientation = xlLandscape
.PaperSize = xlPaperA4
End With
ActiveWindow.SelectedSheets.PrintPreview
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.PageSetup.PrintArea = "$B$37:$X$65"
ActiveWindow.SelectedSheets.PrintPreview
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
A+ François
Ps: Si tu enleve l'orientation et la taille du papier tu peux même enlever with ... et end with