VBA打印的问题？

在一个工作薄的其中一个工作表中做一个宏，然后在这个工作表中一个单元格里输入哪个工作表，按打印按钮，就可打印出来。这样的代码可以写出来吗？

Sub PrintOut()

' 宏由 EXCEL-YQ 编写，时间: 2009-11-12
'
Dim i As Integer
Dim Name As String
For i = 1 To Sheet1.Range("A65536").End(xlUp).Row
Name = Sheet1.Range("A" & i)
Sheets(Name).PrintOut Copies:=1, Collate:=True
Next
End Sub

用代码获取单元格中工作表名，然后在打印代码中引用此工作表名，打印此工作表。思路就是这样