10 outputs on single sheet

[amkkhan]

Here is the link to file
Situation here is similar to this one
Actually "ID" is the main Identity.
I am using Vlookup for calling students data and picture.
Actually these are students cards. For printing purpose,
All I want is10 cards to be printed on single page.

As you can see that output is very small size.
Page size must be A4 or legal.

I need a VB Script that would scroll ID's from Consolidated Sheets Column A and almost 1000 entries. If list becomes blank at any point it should stop.
And output must be a pdf file containing All provided students in the "Consolidated" sheet with 10 outputs on each page.

I have data of 34 students for example but it could be around 1000 or more ...

 

[John_w]

For the sake of information please guide me that isn't it possible that we output Page could be set as Horizontal instead of vertical.
I mean to say that is it possible to change page Orientation from portrait to landscape, then printing would be much easier.

Add .Orientation = xlLandscape in the PageSetup code. The Add_Card_Picture routine should be simpler because you don't need to rotate the picture, and other changes to calculate the position of the next card would be needed.

I've spent long enough on this for a free help forum.

 

[amkkhan]

Add .Orientation = xlLandscape in the PageSetup code. The Add_Card_Picture routine should be simpler because you don't need to rotate the picture, and other changes to calculate the position of the next card would be needed.

I've spent long enough on this for a free help forum.

Thank you So much @John_w .It worked....
I am honestly great ful to you for your time and effort.
I owe you my dear....
Best wishes for you