Avatar billede iblarsen Praktikant
01. august 2003 - 16:14 Der er 8 kommentarer og
1 løsning

Ens sideved/sidefod på alle ark i en projektmappe

Findes der en måde. Så man kan lave "Ens sidehoved/sidefod på alle ark i en projektmappe" uden at skulle ind på hvert ark og tilrette sidehoved/sidefod?
Avatar billede overchord Nybegynder
01. august 2003 - 17:01 #1
Ja, du markerer alle ark i projektmappen. Marker det foerste hold SHIFT nede og marker det sidste.
Derefter gaar du ind i sideopsaetning og saetter side-hoved+ fod op.
Avatar billede mlhave Nybegynder
01. august 2003 - 17:12 #2
Det er ikke korrekt... :o(
Jeg mener ikke der findes en sådan funktion, hvis man ikke lige frem koder det...
Avatar billede overchord Nybegynder
01. august 2003 - 17:33 #3
mlhave -> erhm hvad?? Vi snakker om en workbook her ikke? Med x antal ark. Hvis de alle markeres og man gaar i page setup virker det da helt sikkert!
Avatar billede mlhave Nybegynder
01. august 2003 - 19:17 #4
Jeg gir' mig, jeg har længe forsøgt at finde ud af det, men altid via "Vis udskrift" ;o)
Avatar billede iblarsen Praktikant
02. august 2003 - 11:51 #5
Tak for svaret. Men løser det også problemet hvis jeg tilføjer endnu et ark til projektmappen?
Avatar billede overchord Nybegynder
02. august 2003 - 23:47 #6
Nej ikke hvis du vaelger indsaet/imsert. Hvis du kopierer et af de eksisterende ark, vil det blive flyttet med over.
Avatar billede bak Forsker
03. august 2003 - 01:43 #7
Her er en VBA-kode (selvom det nok ikke behøves :-)  gråspuve med kanoner)
Den skal indsættes i modulet ThisWorkBook (kan findes bla. ved at højreklikke på det lille xl-ikon lige til venstre for menuen "Filer" og vælge "Vis Programkode".
Den kopier alle sidehoveder og fødder fra det ark, der ligger forrest og den gør det lige inden der printes (også vis udskrift).  Det betyder at uanset hvor mange ark der tilføjes vil de altid få samme hoved og fod når de printes.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Master As PageSetup
Set Master = Sheets(1).PageSetup
With ActiveSheet.PageSetup
        .LeftHeader = Master.LeftHeader
        .CenterHeader = Master.CenterHeader
        .RightHeader = Master.RightHeader
        .LeftFooter = Master.LeftFooter
        .CenterFooter = Master.CenterFooter
        .RightFooter = Master.RightFooter
    End With
End Sub
Avatar billede iblarsen Praktikant
04. august 2003 - 06:58 #8
bak: Gider du smide et svar - det var lige hvad jeg havde brug for. Tak for hjælpen.
Avatar billede bak Forsker
31. august 2003 - 08:59 #9
den havde jeg da vist overset :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester