MuscatMimi
XLDnaute Accro
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
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