Begrænset print - alt efter valg, der er foretaget

Du kan styre printområdet ved at ændre printområdet f.eks. således:

Worksheets("Ark1").PageSetup.PrintArea = "$A$1:$F35"

Du kan lave din egen Print knap, som er tilknyttet en makro, som styrer hvilket område der skal udskrives, og om der skal udskrives et vagtskema m.m.

Du må jo have en eller anden værdi du kan aflæse og ud fra den lave en case sætning der kan indeholde f.eks.

Case 1
  Sheets("PrintSheet").Range("A1:G40").PrintOut Copies:=1, Collate:=True
  Sheets("PrintSheet").Range("AA1:AG40").PrintOut Copies:=1, Collate:=True
Case 2
  Sheets("PrintSheet").Range("A1:G40").PrintOut Copies:=1, Collate:=True
Case 3
  Sheets("PrintSheet").Range("A1:G40").PrintOut Copies:=1, Collate:=True
  Sheets("PrintSheet").Range("AA1:AG40").PrintOut Copies:=1, Collate:=True
  Sheets("PrintSheet").Range("BA1:BG40").PrintOut Copies:=1, Collate:=True

Det burde kunne løse dit problem

Jeg er overbevist om, at jeg kan bruge Select Case strukturen. Jeg er dog ikke klar over hvordan jeg får denne struktur til, at "kigge" på et Lopslag. Kan det lade sig gøre?