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

Signaler
Messages postés
12
Date d'inscription
lundi 22 mai 2017
Statut
Membre
Dernière intervention
13 juillet 2017
-
Messages postés
12
Date d'inscription
lundi 22 mai 2017
Statut
Membre
Dernière intervention
13 juillet 2017
-
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

1 réponse

Messages postés
12
Date d'inscription
lundi 22 mai 2017
Statut
Membre
Dernière intervention
13 juillet 2017

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