01. august 2003 - 16:14Der 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?
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.
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
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.