>>663
枚数 = Range("A2").Value
Workbooks.Open Range("A1").Value & ".xls"
If 枚数 > 0 Then Sheets("sheet1").PrintOut Copies:=枚数