Printing pages using a reference number in a cell

[ryang77]

I'm havening a problem figuring out how to only print a set amount of pages when i hit the print button, instead of going to file print and telling it how many pages to print. i have a template I'm using that is 9 pages long. i have a cell that is set up to count the number of pages in a report every time we start typing on the next page. ex( its says 1 of 1 until we type in the next page then says 1 of 2, the number in the cell keep getting bigger) is there anyway to have the print button just print how many pages i have typed into instead of all 9? thanks

 

[ravishankar]

Hi
assuming your page nos is in A1
Paste the following codes in the macro window ( Alt F8)

 a = Right(Cells(1, 1), 1)
  ActiveWindow.SelectedSheets.PrintOut From:=1, To:=a, Copies:=1, Collate _
        :=True

run the macro. It will print from page 1 to last page typed.
Ravi

 

[ryang77]

Thats great! it works perfectly, thanks so much.