Indsæt sidenr automatisk

Hvis du laver en makro, der gemmer din EXEL-fil som PDF-fil, kan du starte med at lade makroen skrive den tekst du ønsker tilføjet på siden. .

Ja det kan jeg godt, problemet er, at jeg jo ikke ved, hvor mange sider er der på ark2 og ark3. Det var dette jeg gerne ville have en makro eller noget VBA der kunne klare for mig.

Jeg har testet et lille eksempel, som jeg har brugt til at styre udskrifter i Exel, men det virker også når filen gemmes som PDF-fil. Det er løst uden brug af VBA, men blot med den rigtige opsætning af sidelayout.

Jeg har løsningen tl dig, men det tager lidt tid at beskrive dette. så jeg vender tilbage senere. Jeg når den måske ikke i dag..

Hej Butterfly

Du skal tilrette dit Sidelayout. Gør følgende:

Har du indsat tvungne sideskift, skal disse slettes.

Marker dit udskrivningsområde. Brug de kolonner der er nødvendige for bredden af din udskrift.

Antal af rækker markeres som det maksimale antal rækker du forventer at skulle udskrive, med prøv med 1000 rækker.

Vælg ?Bredde? til : 1 side, og ?Højde? til: Automatisk.

Vælg ?Filer?. Vælg ?Udskriv?, med udskriv ikke. Forlad udskriftmenu.

Og nu det  vigtigste:  I ?sidelayout?, skal du i "Udskriftsområde" vælge ?Ryd udskriftsområde?.

Vælg nu igen "Udskriv", og du vil se at der kun udskrives sider der ikke er tomme.

Gem filen som PDF-fil.  PDF-filen udskriver de samme sider

Jeg håber det også virker for dig.

Det er vist ikke det jeg efterlyser.
På arket "Indholdsfortegnelse" vil jeg gerne have at der ud for Opgaver, står hvor mange sider der er på "Ark2"
Og ud for Personer står hvor mange sider "Ark3" er

Hej Butterfly

Hvis dit sidelayout altid udskriver lige mange linjer på hver side i ?Ark2?, kan du blot på ark ?Indholdsfortegnelse? indsætte en formel  der beregner sidetallet, ved at beregne antal linjer på ?Ark2? og dividere dette tal med antal af linjer pr side.
Det samme for ?Ark3?

Hej Mads32
Mange tak det var præcist det jeg ønskede