Fout 91

Status
Niet open voor verdere reacties.
R

Ron001

Gebruiker
Lid geworden
4 dec 2017
Berichten
384
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.

Code: 
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
 
Laatst bewerkt:
Het lijkt me beter dat je je eerst eens grondig verdiept in de basisbeginselen van Excel en VBA.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan