用VBA来实现,在工作表添加一个Button和两个TextBox(用来填写打印范围),设计好打印样式,固定打印区域。对每个数据进行编号,在打印界面用VLOOKUP函数对编号进行链接。最后就是给Button添加VBA代码:Private Sub CommandButton1_Click()MsgBox "确定打印?", vbInformationDim B& 'B为每行数据的编号Dim sht As WorksheetSet sht = ActiveSheet'当前工作表名SF = ActiveSNameFor B = TextBValue To TextBValue '打印范围SCells(1, 3) = B 'Cells(1,3)为自定义Activate '刷新当前工作表ActiveSPrintOut From:=1, To:=1NextMsgBox "打印完成!", vbInformationEnd Sub