单击，按钮就即刻生成清单表。
同时也设计了简单的打印功能。
打印代码如下：
Sub print_sub() '设置打印范围
M = [A65535].End(xlUp).Row
N = [iv1].End(xlToLeft).Column
With ActiveSheet.PageSetup
.PrintArea = ActiveSheet.Range(Cells(1, 19), Cells(M, N)).Address
.FitToPagesWide = 1
.FitToPagesTall = 1
.CenterHorizontally = True '打印页面水平居中
.CenterVertically = False
.RightFooter = "打印时间：" & Format(Now, "yyyy年mm月dd日 hh:mm:ss")
PrintPreview
End With
End Sub
Private Sub CommandButton1_Click()
print_sub
End Sub
锁定工作单元，可以控制按钮不变形，锁定方式如下：
全选工作区域：
取消单元格锁定
