bonjour j'utilise cette macro pour imprimer
sa fonctionne trés bien mais il m'imprime egalement le contour de ma feuille c'est a dire A B C.... et 1 2 3.......
quelqu'un saurais comment empecher cela merci
Code:
Sheets("Accueil").Select
Dim MyValue As Byte
MyValue = MsgBox("Voulez-vous imprimer ?", vbYesNo + vbDefaultButton1)
If MyValue = vbNo Then Exit Sub
With ActiveSheet
With .PageSetup
.PrintArea = "$A$1:$D$" & Cells.Find("*", , xlValues, , 1, 2, 0).Row
.PaperSize = xlPaperA4
.Orientation = xlLandscape
.FitToPagesWide = 1
.FitToPagesTall = 1
.BlackAndWhite = True
End With
.PrintOut 1
End With
End Withsa fonctionne trés bien mais il m'imprime egalement le contour de ma feuille c'est a dire A B C.... et 1 2 3.......
quelqu'un saurais comment empecher cela merci
