Printing multiple tabs/sheets using VBA

Hello,
New to the forum and a newbie when it comes to VBA.
I have been looking at this forum for help and it has been great.
I have been able to get to solve my "auto numbering up " upon printing but I need your help with being able to print multiple sheets when I print.
I have included the spreadsheet and what does not work is this "Sheets(Array("traveler", "Inspection")).Select". It only prints the traveler.
I am trying to print the Traveler and Inspection sheet at the same time.

Thanks in advance for your help.

Please Login or Register  to view this content.

Thanks. That was quick.
That worked as intended but now my issue is that the incrementing of the printing is not correct. To make myself clear. Let's say I want to print 2 travelers and the starting number is 2015. The first traveler will print 2015 but the second one will print 2017 because it printed an inspection sheet. I would need the second traveler to be 2016. Can you help?

try this

Please Login or Register  to view this content.

Nope. Let's say my starting number on excel is 10046, it prints traveler 10047, inspection sheet, traveler 10049 and inspection sheet. Number on excel is now 10050 (that is fine).
What I need is traveler 10046 and traveler 10047. Number on excel should be 10048.

Check this attached file TRAVELER TEMPLATE.xlsm

Thanks for your help but when I use your new file, it only prints one traveler and one inspection sheet even when I say I want 2 or 3 copies. The numbers do go up but only one print. Before it did print all the copies I needed but it would increment by 1 for the inspection sheet and I do not want that. I need the number to go up by one for every traveler printed not every inspection sheet. I hope I make myself clear.
Thanks for continuing to help me