Definer page setup scaling afhængigt af antal synlige kolonner

Kære alle,

Den her kan jeg ikke selv kan klare:

Jeg leder efter VBA kode, der kan tælle på antallet af synlige kolonner med tekst: Hvis der fx er < 6 kolonner synlige på active sheet, så skal koden skalere siden (ift udskrift) til at printe tilpasset på (A4) landscape papir m. 1 side bred. Hvis der er mere end 6 kolonner, så skal page setup skaleres med 2 pages wide (og den nødvendige antal tall, dvs et højt tal, fx 10 sider højde) og gentagelse af kolonne A & B på begge siderne.

Jeg har søgt efter "print" i alle excel svar, men mister overblikket. Er der en stump VBA der tæller på kolonner og justerer på skalering til udskrift?

- jeg ved at svaret gemmer sig i hovederne på eksperten.dk :o)

- På forhånd mange tak for hjælpen...

/Søren