Forskellige sidehoveder i Excel 2000

Du kan regulere sidehovedet særskilt for hvert ark i en Excel-fil.
Du kan derfor lægge din forskide på et ark for sig selv.

janvogt > forskide ???

;-)

Hehe, sorry :-)

Hvad hovedet er fuldt med løber .........

Ja, men det er ét ark der i udskrevet tilstand fylder flere sider

Så tror jeg ikke det kan lade sige gøre .....

Næ.. det tætteste er vel at gentage en fast række på alle siderne i samme ark (sideopsætning). Men så får spo ikke nogen "særlig" først side.

Men så kunne man jo bare oprette forside på et andet ark !

Det ville jeg gøre....

...
æh bæ... ;-)

Så tror jeg heller ikke det kan lade sige gøre .....

Evt. kunne man lave en makro der for det pågældende ark
1. Beregnede hvor mange sider udskriften ville komme til at fylde
2. Printede én side af gangen, og ændrede headeren afhængig af sidenummeret

Omstændigt, men ikke umuligt.  :-)

Du kunne lave din forside i de første f.eks. 3 linier (formatere det centralt, med større/fede skrifttyper etc.), og derefter i linie 4 lave overskrifterne til kolonnerne. I sideopsætningen skriver du gentag linier: f.eks. a4:k4

Prøv med denne her:
---------------------

Function NumberOfPrintedPages()
    HorizBreaks = Worksheets(1).HPageBreaks.Count
    HPages = HorizBreaks + 1
    VertBreaks = Worksheets(1).VPageBreaks.Count
    VPages = VertBreaks + 1
    NumberOfPrintedPages = HPages * VPages
End Function

Sub UdskrivEnSideAfgangen()

Dim taeller As Integer

For taeller = 1 To NumberOfPrintedPages
    If taeller = 1 Then
        With ActiveSheet.PageSetup
            .LeftHeader = "&P&N"
            .CenterHeader = "&D&TPage &P"
            .RightHeader = "&Z&F&F&A"
            .Order = xlDownThenOver
        End With
    Else
        With ActiveSheet.PageSetup
            .LeftHeader = "&N"
            .CenterHeader = "Page &P"
            .RightHeader = "&A"
            .Order = xlDownThenOver
        End With
    End If
   
    ActiveSheet.PrintOut From:=taeller, To:=taeller, Copies:=1, Collate:=True
    Application.StatusBar = "Printer side: " & taeller
   
Next taeller

Application.StatusBar = False

End Sub

-----------------------------

Formateringskoderne kan du se i hjælpen

Kunne du få det til at virke ?

spo >> Skal du bruge mere hjælp til dette spørgsmål ?

Jeg kunne bruge begge. Så jeg har fordelt pointene efter bedste evne, men sikkert bund uretfærdigt:-)