multipage attendance book

[imblish]

i have a 2-page attendance book for the month
i have found the macro in here about page 1-31
but the problem is when i try that it prints

page1-31
page1-31
page2-31
page2-31

is there anyway i can make it print

page1-62
page2-62
page3-63
page4-64...
pls

 

[imblish]

anyone help?

 

[Myconservator]

Can you attach a link to download the file or paste VBA code?

 

[imblish]

Can you attach a link to download the file or paste VBA code?

i used this code found here
the problem is that i have 45 names to print that takes 2 page in same sheet and i want to count 1,2,3,4.etc
Sub PrintLogBook()
Dim x%
x% = 1
For x% = 1 To 100
With ActiveSheet.PageSetup
.CenterFooter = x% & " of 100"
End With
ActiveSheet.PrintOut

Next x%
End Sub

 

[Myconservator]

Try this.

Tip: you can print Adobe PDF file to see the printout instead of wasting paper.

Sub PrintLogBook()[/COLOR]
[COLOR=#333333]Dim x%[/COLOR]
[COLOR=#333333]x = 1[/COLOR]
[COLOR=#333333]For x = 1 To 100[/COLOR]
[COLOR=#333333]With ActiveSheet.PageSetup[/COLOR]
[COLOR=#333333].CenterFooter = x & " of 100"[/COLOR]
[COLOR=#333333]End With[/COLOR]
[COLOR=#333333]ActiveSheet.PrintOut[/COLOR]
[COLOR=#333333]Next x[/COLOR]
[COLOR=#333333]End Sub[/COLOR]

 

[imblish]

Try this.

Tip: you can print Adobe PDF file to see the printout instead of wasting paper.

Sub PrintLogBook()

[COLOR=#333333]Dim x%[/COLOR]
[COLOR=#333333]x = 1[/COLOR]
[COLOR=#333333]For x = 1 To 100[/COLOR]
[COLOR=#333333]With ActiveSheet.PageSetup[/COLOR]
[COLOR=#333333].CenterFooter = x & " of 100"[/COLOR]
[COLOR=#333333]End With[/COLOR]
[COLOR=#333333]ActiveSheet.PrintOut[/COLOR]
[COLOR=#333333]Next x[/COLOR]
[COLOR=#333333]End Sub[/COLOR]

thats exactly the code i pasted before i have found it but prints (because it a 2-page sheet)
1 of 100
1 of 100
2 of 100
2 of 100

i wanted
1 of 100
2 of 100
3 of 100
4 of 100


anyways i figured it out

 

[Myconservator]

I just removed % where it was not needed.
What was your solution?