sidenr i excel

Prøv at se sp. 804921 - det var ganske vist i Word - men tilsyneladende samme problematik - ellers vend tilbage.

Prøv nedenstående - eller send en mail til: pb@supertekst-it.dk - så sender jeg min model.

I Ark med Etiket - indsættes koden:
Public Sub UdskrivEtiket()
    Load UserForm1
    UserForm1.Show
End Sub
-
-
I en Userform med en Tekstboks (tb_antal) til antal etiketter, 2 knapper (cb_udskriv) (cb_luk) - indsættes følgende kode:

Private Sub cb_udskriv_Click()
Dim antal
    If Me.tb_antal <> "" Then
        antal = Val(Me.tb_antal)
       
        For a = 1 To antal
            With ActiveSheet.PageSetup
                .RightFooter = "Side " & CStr(a) & " af " & CStr(antal)
            End With
            ActiveSheet.PrintOut
        Next a
    End If
End Sub

Private Sub cb_luk_Click()
    Unload UserForm1
End Sub

Super, tak for det.

Læg et svar og der er afregning

Det var godt!

lukketid???