Print out certain pages in an excel sheet by PrintOut Method

Hello there Masters of VBA..

I have 10 pages in a worksheet of excel. I'd like to print out page 2, 4, 6 and 8 by using VBA code.

My Question :

Is there any script of VBA which can printout those selected pages in a sheet

INSTEAD OF

Having to script like this :

Worksheets("Sheet1").PrintOut From:=2, To:=2
Worksheets("Sheet1").PrintOut From:=4, To:=4
Worksheets("Sheet1").PrintOut From:=6, To:=6
Worksheets("Sheet1").PrintOut From:=8, To:=8

Thanks in advance

Dear tanvi_kalra,

Thanks for replying. Your answer may apply to other condition, yet it hasnt answered my question.

What if I have to print out 50 certain/selected pages of 100 pages available in sheet1?

Any shortest script possible to write instead of writing "Worksheets("Sheet1").PrintOut From:= , To:= " for 50 times?

Thanks in advance.

Originally Posted by bhayu

Dear tanvi_kalra,

Thanks for replying. Your answer may apply to other condition, yet it hasnt answered my question.

What if I have to print out 50 certain/selected pages of 100 pages available in sheet1?

Any shortest script possible to write instead of writing "Worksheets("Sheet1").PrintOut From:= , To:= " for 50 times?

Thanks in advance.

For that you can use loop for the shortest code .. i didn't get your question clearly. Could you please clarify it again.
Are you trying to printout many sheets from one tab only or from different tabs or both. please elaborate.

Dear tanvi_kalra,

When we open a workbook of an excel file, we will see there is 3 worksheet available i.e. Sheet1, Sheet2 and Sheet3.

In Sheet1, I have 100 pages of data. I select 50 of them to printout. Those 50 pages are not in sequence.

Therefore, if I do it in my way, I have to write script like this, for instance :

Worksheets("Sheet1").PrintOut From:= 1, To:= 1
Worksheets("Sheet1").PrintOut From:= 4, To:= 4
Worksheets("Sheet1").PrintOut From:= 8, To:= 8
So on & so on...
Until I have wrote down those selected 50 pages

That's why I am asking you :

Is there any shortest script of VBA which can print those 50 pages not sequence in Sheet1?

Thanks for ur prompt response.

Thanks Izandol for ur help, it is solved now.

@tanvi_kalra : thanks for ur time participating in answering my question.

Greet of VBA