SHEET2如何调用SHEET1中的数据？

[ygjwjj]

有两个SHEET,SHEET1,SHEET2.
SHEET1中保存有五个字段的记录；
SHEET2中有一个打印模板，并有一个COMMANDBUTTON,\
当点击COMMANDBUTTON时自动调用SHEET1中当前行的记录填充模板，并开始打印。
如何写代码？

[sunweikey]

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Sheet2.Range("CR") = Sheet1.Range("CR")
……
Sheet2.Range("CR") = Sheet1.Range("CR")
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
其中CR是列号和行号