右击sheet1工作表标签》查看代码》粘贴下面的代码即可Private Sub Worksheet_SelectionChange(ByVal Target As Range) Sheets("sheet2").PrintOutEnd Sub
需要用VBA做，但这样一来，你无法输入数据了：只要光标点某单元格，就会打印
键盘是不是打连了？
