Impossible imprimer ma dernière colonne (Excel)

Bonjour,
après des recherches sur les forums Excel, je n'ai pas trouvé la solution.
Sur ma feuille j'ai 7 colonnes et je ne parviens pas à obtenir la colonne "G"
pour l'impression.
voila mon code actuel:

   max = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
    p = "A1:G" & max
    Range(p).Select
    With ActiveSheet.PageSetup
    .Orientation = xlPortrait
    .CenterHorizontally = True
    .CenterHeader = "Ensemble Scolaire Van Der Meersch - Rostand"
    .PrintArea = p
    End With
    ActiveWindow.SelectedSheets.PrintPreview

merci pour votre aide.