Menu

Impression pages blaches à cause des sauts de pages [Résolu]

lilou963 12 Messages postés lundi 22 mai 2017Date d'inscription 13 juillet 2017 Dernière intervention - 7 juin 2017 à 16:23 - Dernière réponse : lilou963 12 Messages postés lundi 22 mai 2017Date d'inscription 13 juillet 2017 Dernière intervention
- 9 juin 2017 à 16:08
Bonjour le forum,

Voilà je vous explique mon souci:

Je suis en train de coder des paramètres d'impression.

J'ai instaurer des sauts de pages dans mon code pour avoir chaque tableau sur une page. Le problème est le suivant: quand je clique dans une liste déroulante de mon classeur certaines colonnes se masquent et quand je désire imprimer j'ai plusieurs pages blanches qui sortent dû à ces sauts de pages.

J'ai tout essayé je ne vois pas comment faire. J'aurais grand besoin de votre aide.
Ce que je veux c'est garder mes sauts de pages mais faire en sorte que les pages blanches qui sont les colonnes masquées ne s'impriment pas.

D'avance un grand merci :-)

voici mon code:

Sub Impression_Exposition()


With ActiveSheet.PageSetup
.PrintArea = "$K$1:$DJ$261"
.Zoom = 30
.CenterHorizontally = True
.CenterVertically = False
.LeftFooter = Application.UserName
.RightFooter = format(Date, "dd/mm/yyyy")
.CenterFooter = CreateObject("Scripting.FileSystemObject").GetBaseName(ActiveWorkbook.Name) 'ActiveWorkbook.Name
.Orientation = xlPortrait
.PrintTitleRows = "$2:$9"

End With

Application.PrintCommunication = True

ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=Columns("R:R")

ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=Columns("Y:Y")

ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=Columns("AF:AF")

ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=Columns("AM:AM")

ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=Columns("AT:AT")

ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=Columns("BA:BA")

ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=Columns("BH:BH")

ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=Columns("BO:BO")

ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=Columns("BV:BV")

ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=Columns("CC:CC")

ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=Columns("CJ:CJ")

ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=Columns("CQ:CQ")

ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=Columns("CX:CX")

ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=Columns("DE:DE")

End Sub
Afficher la suite 

1 réponse

Répondre au sujet
lilou963 12 Messages postés lundi 22 mai 2017Date d'inscription 13 juillet 2017 Dernière intervention - 9 juin 2017 à 16:08
0
Utile
J'ai trouvé la solution si ça peut intéresser un jour qqun

il suffit de faire :

If Sheets("Nomdelafeuille").Range("celluleaveccondition") = "1" Then ActiveSheet.PageSetup.PrintArea = "$.$.:$.$"
End if

et ceci pour chaque condition

If Sheets("Nomdelafeuille").Range("celluleaveccondition") = "2" Then ActiveSheet.PageSetup.PrintArea = "$.$.:$.$"
End if
....

ActiveSheet.Printout 'pour imprimer votre sélection
Commenter la réponse de lilou963