Le code pour configurer la zone d'impression ne fonctionnera pas

Question

Je suis assez nouveau pour VBA et Excel. J'ai un code qui définit la zone d'impression pour un document

Dim count As Integer 
count = ThisWorkbook.Worksheets("sheet2").Range("E106").Value 

    Dim i As Integer 
    i = count + 4 


    Sheets("sheet1").PageSetup.PrintArea = Range(Cells(3, 2), Cells(35, i)) 
    End Sub 

Mais quand je vais dans Aperçu avant impression, la feuille complète est affichée. Sheet1 et sheet2 sont des alias pour les noms de feuille de calcul, mais j'ai un autre code qui les référence et cela fonctionne très bien. J'ai déjà essayé d'enregistrer la macro pour définir la zone d'impression en premier lieu, puis inséré ma gamme personnalisée. Toute aide sur ce que je fais mal serait grandement apprécié :)

Answer 1

La propriété PrintArea du PageSetup est pas un objet (range), mais un string tenant la adresse de la plage souhaitée. Essayez ceci:

With Sheets("sheet1") 
    .PageSetup.PrintArea = .Range(.Cells(3, 2), .Cells(35, i)).Address 
End With    '          ^^^^^^^^ 

Answer 2

Un peu plus version avancée (testé):

With ThisWorkbook.Worksheets("Sheet1") 
    .PageSetup.PrintArea = .Range("offset(B3,0,0,32,Sheet2!E106+2)").Address 
    .DisplayPageBreaks = False ' optional to hide the print area rectangle 
End With