Soucis pour Imprimer que certaines Colonnes

[MuscatMimi]

Bonjour a tous et a toutes
Dans une feuille j'ai des données Colonnes de A à Q
Je désire imprimer que les Colonnes de A à J,

j'ai ce code mais ça imprime toute ma page colonne de A à Q

Sub DefZoneImpression()
Dim DernLigneColA As Integer, DernColDestination As Byte
DernColDestination = 10 '4 'A modifier selon le nombre de colonnes
DernLigneColA = Range("A65536").End(xlUp).Row 'N° ligne de la dernière cellule col A remplie
With Sheets("Echéancier") 'Nom de La feuille
ActiveSheet.PageSetup.PrintArea = "A1:J" & CStr(DernLigneColA) '"$A$1:$O$29" 'Imprime que la Zone Sélectionnée
End With

Worksheets("Echéancier").PrintPreview 'Apperçu avant Impression
MsgBox "Lancer l'impression en Cliquant sur OK"
Worksheets("Echéancier").PrintOut
End Sub
si quelequ'un aurait la modif en tête

Merci a l'avance

Cordialement

 

[TheLio]

Re : Soucis pour Imprimer que certaines Colonnes

Hello,
Chez moi pas de pb.
Est-ce que à tout hazard il ne te resterait pas de vieilles print aera qui traînent dans ton classeur?
A++
Lio