Signaler

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

Posez votre question lilou963 12Messages postés lundi 22 mai 2017Date d'inscription 13 juillet 2017 Dernière intervention - Dernière réponse le 9 juin 2017 à 16:08 par lilou963
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 
Utile
+1
plus moins
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
Cette réponse vous a-t-elle aidé ?  
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !