excel如何做出库单号

1.怎样设置Excel出入库单单号打印一次单号自动加1?跪求大神指点?

提供我以前回答网友的4段代码，你参考着修改吧。

========================================= Sub 指定区域打印（） Dim a% ？'确任打印区域 a = MsgBox(Selection。 Address(0, 0) & Chr(13) & _ ？ ？ ？ ？ ？ "是，请按“确定”。

" & Chr(13) & _ ？ ？ ？ ？ ？ "不是，请按“取消”，重来。"， vbOKCancel， "是下面的打印区域吗？"） ？'不是打印区域，结束 If a = 2 Then End '将选择区域设为打印区域 ActiveSheet。

PageSetup。PrintArea = Selection。

Address ？'打印1页 ActiveWindow。SelectedSheets。

PrintOut Copies:=1 End Sub ==================================== Sub 打印10分钟歇10分钟（） 1 n = InputBox（"请输入打印的总份数"） On Error Resume Next If n * 1 CInt(n) Then GoTo 1 '确定每次打印的份数 For i = 0 To n Step y ? If i y > n Then ? x = y n - i ？'确定最后一次打印的份数（多打印n-i份，>=10分钟） ？ ElseIf i = 0 Then x = y - 1 '确定第一次打印的份数（少打印1份，= TotalpageNum Then Exit Sub '若打印完毕就结束 ？ ？Start = Timer ？ ？' 设置开始暂停的时刻 ？ ？PauseTime = 10 ' 设置暂停时间10分钟（600秒） ？ ？Do While Timer 。

2.有高手知道excel表格怎么在爱普生1600针式打印机上连续打印出入库

在电脑端自定义好纸型，纸型和电脑端的规格相符就可以实现连续打印出库单。

方法如下：

假设纸型宽度为23.90cm，高度为14cm,

操作步骤如下：

步骤一 单击“开始” “控制面板” “打印机和传真机”。

步骤二 在“文件”菜单中，单击“服务器属性”。

步骤三 选中“创建新格式”，并在“表格名”中为自己新定义的纸张起一个名字，比如“默认纸型”。然后，在“宽度”、“高度”中分别键入“23.90”和“14”。“打印机区域边距”可根据需要自行制定。最后，单击“保存格式”按钮。

然后再到打印机驱动中选择你设置的纸型：

选用新纸型

步骤一 单击“开始” “控制面板” “打印机和传真机”。

步骤二 右键单击默认的打印机，然后单击“属性”。

步骤三 单击“常规” “打印首选项” “高级”，单击“纸张规格”下拉菜单，在其中选择“默认纸型”纸张类型即可。