Hjælp til macro der skal kunne printe og ændre side antal.

når du skriver sider, mener du så sider eller antal kopier

Det står sådan her på side 2 og 3 (Palle nr.: X af Y)
X skal selv tælle op fra 1 til Y når der printes
Y bliver trukket fra side et, hvor at det bliver skrevet ind manuelt.

Ok, vil det sige at du skal have 3 sider udskrevet til hver palle,
og på de 3 første står der (Palle nr.: X af Y)

disse sider skal så gentages til X = y, er det korrekt.

I hvilken celle står X og i hvilken celle står Y. ?

Nej jeg skal have 2 palle sedler for hver palle hvorpå der står(Palle nr.: X af Y) på alle sammen.
X står ingen steder men skal være en tæller i macroen(jeg har en macro man skal trykke på når man skal printe palle sedlerne.
Y står på side 1(Dataind) i celle B17
Giver det nogen mening?

noget i denne stil

Public Sub printud()
PalleNr = Range("A1").Value
TotalPaller = Sheets("Dataind").Range("B17")
i = PalleNr + 1
For i = 1 To TotalPaller
'Range("A2").Value = I ' antal side 2 ,ret A2 til den celle hvor du vil have antal på side 2
'Range("A3").Value = I ' antal side 3 ,ret A3 til den celle hvor du vil have antal på side 3
' fjern første ' for at få dem med
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=3, Copies:=1, Collate _
        :=True
Next

End Sub

jeg havde lige glemt at slette noget


Public Sub printud()
TotalPaller = Sheets("Dataind").Range("B17")
For i = 1 To TotalPaller
'Range("A2").Value = I ' antal side 2 ,ret A2 til den celle hvor du vil have antal på side 2
'Range("A3").Value = I ' antal side 3 ,ret A3 til den celle hvor du vil have antal på side 3
' fjern første ' for at få dem med
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=3, Copies:=1, Collate _
        :=True
Next
End Sub

husk at kikke på dit spørgsmål her, det er gammelt.

http://www.eksperten.dk/spm/484778

Mange tak for hjælpen, men da det ikke dur helt endnu, og jeg har fri, ville jeg høre om der var en mulighed for at du skulle sidde foran en computer på fredag efter kl. 15:30, da jeg har fri imorgen, hvis du ikke kan, skal du nok få point alligevel, bare ikke før fredag.

Mvh André

PS. tak for oplysningen om mit gamle spørgsmål.

ok, bare skriv i spørgsmålet, så ser jeg det.