单击，按钮就即刻生成清单表。

同时也设计了简单的打印功能。

打印代码如下：

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

锁定工作单元，可以控制按钮不变形，锁定方式如下：

全选工作区域：

取消单元格锁定