Fout 91

[Ron001]

Allen

Ik wil 4 Ranges (R1,R2,R3,R4) in 4 verschillende kleuren uitprinten.
Ik had eerst voor elke rij een Range aangemaakt.
Als ik dit uitprint werkt dit...

Nu probeer ik alles wat duidelijker te maken (lees: te comprimeren)
Hier loopt het mis, ik krijg foutmelding op R4 => Fout 91 Objectvariabele of blokvariabele With is niet ingesteld.

Sub Printen_Beiden_A3_A4_KNOP_CHRIS_GECOMPRIMEERD()

'EVEN WEEK
ActiveSheet.Cells(3, 2).Select
If ActiveSheet.Cells(3, 2).Value Mod 2 = 0 Then
  'Print Sheet1 exactly one page wide and tall
       With ActiveSheet().PageSetup
        .Zoom = False
        .FitToPagesTall = 1
        .FitToPagesWide = 1
        End With
      ActiveSheet.PageSetup.CenterVertically = True
      ActiveSheet.PageSetup.CenterHorizontally = True
      ActiveSheet.PageSetup.CenterHeader = "&""Calibri,bold""&40" & "WEEK " & Cells(3, 2)
      ActiveSheet.PageSetup.CenterFooter = "&""Calibri""&20" & "hallo "
      ActiveSheet.PageSetup.PaperSize = xlPaperA4
      ActiveSheet.PageSetup.Orientation = xlLandscape
      

   Dim R1, R2, R3, R4 As Range
      
      'Donker grijs
      
      R1 = ("A16:C16,E16:H16,J16:M16,O16:R16,T16:W16,Y16:AB16,A18:C18,E18:H18,J18:M18,O18:R18,T18:W18,Y18:AB18,A20:C20,E20:H20,J20:M20,O20:R20,T20:W20,Y20:AB20,A22:C22,E22:H22,J22:M22,O22:R22,T22:W22,Y22:AB22,A24:C24,E24:H24,J24:M24,O24:R24,T24:W24,Y24:AB24,A26:C26,E26:H26,J26:M26,O26:R26,T26:W26,Y26:AB26,A40:C40,E40:H40,J40:M40,O40:R40,T40:W40,Y40:AB40,A42:C42,E42:H42,J42:M42,O42:R42,T42:W42,Y42:AB42,A44:C44,E44:H44,J44:M44,O44:R44,T44:W44,Y44:AB44,A46:C46,E46:H46,J46:M46,O46:R46,T46:W46,Y46:AB46,A48:C48,E48:H48,J48:M48,O48:R48,T48:W48,Y48:AB48,A63:C63,E63:H63,J63:M63,O63:R63,T63:W63,Y63:AB63,A69:C69,E69:H69,J69:M69,O69:R69,T69:W69,Y69:AB69,A71:C71,E71:H71,J71:M71,O71:R71,T71:W71,Y71:AB71,A73:C73,E73:H73,J73:M73,O73:R73,T73:W73,Y73:AB73")
                    
     'Licht grijs
      
      R2 = ("A17:C17,E17:H17,J17:M17,O17:R17,T17:W17,Y17:AB17,A19:C19,E19:H19,J19:M19,O19:R19,T19:W19,Y19:AB19,A21:C21,E21:H21,J21:M21,O21:R21,T21:W21,Y21:AB21,A23:C23,E23:H23,J23:M23,O23:R23,T23:W23,Y23:AB23,A25:C25,E25:H25,J25:M25,O25:R25,T25:W25,Y25:AB25,A41:C41,E41:H41,J41:M41,O41:R41,T41:W41,Y41:AB41,A43:C43,E43:H43,J43:M43,O43:R43,T43:W43,Y43:AB43,A45:C45,E45:H45,J45:M45,O45:R45,T45:W45,Y45:AB45,A47:C47,E47:H47,J47:M47,O47:R47,T47:W47,Y47:AB47,A49:C49,E49:H49,J49:M49,O49:R49,T49:W49,Y49:AB49,A64:C64,E64:H64,J64:M64,O64:R64,T64:W64,Y64:AB64,A70:C70,E70:H70,J70:M70,O70:R70,T70:W70,Y70:AB70,A72:C72,E72:H72,J72:M72,O72:R72,T72:W72,Y72:AB72,A74:C74,E74:H74,J74:M74,O74:R74,T74:W74,Y74:AB74")
      
      'Donker groen
      
      R3 = ("A28:C28,E28:H28,J28:M28,O28:R28,T28:W28,Y28:AB28,A30:C30,E30:H30,J30:M30,O30:R30,T30:W30,Y30:AB30,A32:C32,E32:H32,J32:M32,O32:R32,T32:W32,Y32:AB32,A34:C34,E34:H34,J34:M34,O34:R34,T34:W34,Y34:AB34,A51:C51,E51:H51,J51:M51,O51:R51,T51:W51,Y51:AB51,A53:C53,E53:H53,J53:M53,O53:R53,T53:W53,Y53:AB53,A55:C55,E55:H55,J55:M55,O55:R55,T55:W55,Y55:AB55,A57:C57,E57:H57,J57:M57,O57:R57,T57:W57,Y57:AB57,A65:C65,E65:H65,J65:M65,O65:R65,T65:W65,Y65:AB65")
      
      'Licht groen
      
      R4 = ("A29:C29,E29:H29,J29:M29,O29:R29,T29:W29,Y29:AB29,A31:C31,E31:H31,J31:M31,O31:R31,T31:W31,Y31:AB31,A33:C33,E33:H33,J33:M33,O33:R33,T33:W33,Y33:AB33,A35:C35,E35:H35,J35:M35,O35:R35,T35:W35,Y35:AB35,A52:C52,E52:H52,J52:M52,O52:R52,T52:W52,Y52:AB52,A54:C54,E54:H54,J54:M54,O54:R54,T54:W54,Y54:AB54,A56:C56,E56:H56,J56:M56,O56:R56,T56:W56,Y56:AB56,A58:C58,E58:H58,J58:M58,O58:R58,T58:W58,Y58:AB58,A66:C66,E66:H66,J66:M66,O66:R66,T66:W66,Y66:AB66")
      
      
      'Set kleurwaardes ganse file
      
      With ActiveSheet
           'Grijs
           .Range("R1").Interior.Color = RGB(128, 128, 128)
           .Range("R2").Interior.Color = RGB(217, 217, 217)
           'Groen
           .Range("R3").Interior.Color = RGB(84, 130, 53)
           .Range("R4").Interior.Color = RGB(169, 208, 142)
      End With
      
ActiveSheet.Range("R1,R2,R3,R4").PrintPreview
     
     
 'ActiveSheet.Range("A13:AB74").PrintOut , Copies:=1

      
      End If
      
End Sub

'Voorbeeld hoe het eerst was (zo voor alle ranges en kleuren), dit wil ik nu proberen te comprimeren:

      
      'ActiveSheet.Range("A16:C16,E16:H16,J16:M16,O16:R16,T16:W16,Y16:AB16").Interior.Color = RGB(128, 128, 128) '1
      'ActiveSheet.Range("A17:C17,E17:H17,J17:M17,O17:R17,T17:W17,Y17:AB17").Interior.Color = RGB(217, 217, 217) '2
      'ActiveSheet.Range("A18:C18,E18:H18,J18:M18,O18:R18,T18:W18,Y18:AB18").Interior.Color = RGB(128, 128, 128) '3
      'ActiveSheet.Range("A19:C19,E19:H19,J19:M19,O19:R19,T19:W19,Y19:AB19").Interior.Color = RGB(217, 217, 217) '4
      'ActiveSheet.Range("A20:C20,E20:H20,J20:M20,O20:R20,T20:W20,Y20:AB20").Interior.Color = RGB(128, 128, 128) '5
      'ActiveSheet.Range("A21:C21,E21:H21,J21:M21,O21:R21,T21:W21,Y21:AB21").Interior.Color = RGB(217, 217, 217) '6
      'ActiveSheet.Range("A22:C22,E22:H22,J22:M22,O22:R22,T22:W22,Y22:AB22").Interior.Color = RGB(128, 128, 128) '7
      'ActiveSheet.Range("A23:C23,E23:H23,J23:M23,O23:R23,T23:W23,Y23:AB23").Interior.Color = RGB(217, 217, 217) '8
      'ActiveSheet.Range("A24:C24,E24:H24,J24:M24,O24:R24,T24:W24,Y24:AB24").Interior.Color = RGB(128, 128, 128) '9
      'ActiveSheet.Range("A25:C25,E25:H25,J25:M25,O25:R25,T25:W25,Y25:AB25").Interior.Color = RGB(217, 217, 217) '10
      'ActiveSheet.Range("A26:C26,E26:H26,J26:M26,O26:R26,T26:W26,Y26:AB26").Interior.Color = RGB(128, 128, 128) '11

 

[snb]

Het lijkt me beter dat je je eerst eens grondig verdiept in de basisbeginselen van Excel en VBA.