Open Workbook with windows Dialog Box & Print then close

Hi all,

I am trying explain it as simple as possible.
I would like to have a changes in the below mentioned macro.

"
Sub Print_Bills()

Dim intChoice As Integer

Application.FileDialog(msoFileDialogOpen).InitialFileName = "C:\Users\Bills\"

intChoice = Application.FileDialog(msoFileDialogOpen).Show






Call PrintArea

End Sub
"

My requirement is -
I need to print work books in a particular folder one after one by selecting it.

In this particular path folder (C:\Users\Bills\) each work book name & sheet name will be different. There will be only one worksheet in each workbook.

There will be only one worksheet in each workbook. But the printing area will be same for all the workbooks.

For Ex:

Say there are 10 invoice workbooks in a folder as file name 2016-17-001, 2016-17-002, 2016-17-003, 2016-17-004 and so on...
And in each invoice workbooks sheet name will be 001, 002, 003, 004 and so on

Now i would like to print each one of this work book individually by selecting & opening work books one after one.

Inside all the invoice workbooks print area will be same from cell A6 to R179. This process i am calling it through "Call PrintArea"

Try this one

sorry for wrong post