17. oktober 2007 - 10:48Der er
9 kommentarer og 1 løsning
Benyt Page andre steder end i sidehoved eller sidefod
I en regnearksskabelon, har benytter jeg de første 5 rækker for en form for header, og har i den forbindelse behov for automatisk sidenummerering i dette område ... dvs. at jeg eksempelvis i celle E1 vil have stående side 1 / side 2 / side 3 ....
Jeg synes ikke rigtig jeg har kunnet finde noget om dette ????
Det var ikke lige det jeg ønskede ( den er kendt ). Min header består af en standardopsætning ( incl. logo m.v. ) hvoraf sidenummereringen gerns skulle placeres i denne standardopsætning for hele skabelonen
Hvis dine sider har fast længde og din header er på alle sider kan du måske bruge antallet af rækker på siden til at generere et sidenr. =RUND.OP(((RÆKKE()-5))/60;0) -5 er antal rækker nede sidenr er placeret 60 er antal rækker på siden
Du bliver nok nødt til at bruge en makro. Her er en som skriver det aktive ark ud og som samtidig skriver sidenummer i E1
Sub SpecialPrint() Application.EnableEvents = False' slår automatiske makroer fra Dim i As Long, lPages As Long lPages = ExecuteExcel4Macro("Get.Document(50)") For i = 1 To lPages Range("E1") = "side " & i' Skriver i E1 ActiveSheet.PrintOut i, i' Skriver 1 side ud af gangen Next i Application.EnableEvents = True' slår automatiske makroer til Range("E1") = "" ' tømmer E1 inden du ser den igen 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.