wps批量打印表格(使用excel、wps批量打印标签)

这两天公司盘点，想打印些盘点标签，类似下图这样的，在网上搜了下，没找到合适的案例，就自己做了份。

标签样式

首先，做个物料表

我的是这样的，第一列，填写序号，这个挺重要的，就是依据它来打印的。序号按1，2，3顺序填写。

物料表

其它列，填写你需要的内容。

先说下，我比较懒，我是先盘点好，最后打印的标签，数量也打印的。

做标签页

这个和平时自己做表格一样，你怎么顺眼怎么做。下图是我需要的，一页A4纸排了8个小标签

标签排版

上图中有个E9单元格，后面会用到。

标签页公式

标签页填写的公式

看上图，很简单的一个公式，“=VLOOKUP($E$9,物料名称!$A:$D,4,0)”，从物料名称表里按顺序填写名称。

第2个标签页，为“=VLOOKUP($E$9+1,物料名称!$A:$D,4,0)”，比第1个，+1，以此类推，第8个标签页，+7。

VLOOKUP是横着查找，$符号是绝对引用的意思，不带$为相对引用。

打印代码

Sub 打印标签() Dim a As Integer '定义变量a为整数 Dim b As Integer '定义变量b为整数 Dim c As Integer '定义变量c为整数 'a = InputBox("请输入开始打印序号") '若要使用这句，把本行最前面的“'”删除，下同。 '同时，须把下面的“a = 1 及 b = 597 ”删除，或者在其前面加上豆撇 ' 'b = InputBox("请输入结束打印序号") '下面2行，是我图省事，自己用的。 a = 1 '从序号1开始 b = 597 '到序号597结束 c = (b + 8) / 8 '你一页有几个标签，8就是几。比如你一页排了4个标签，这句就是c = (b + 4) / 4 For i = a To c '从序号a打印到序号c，本例中，a是1，c = (b + 8) / 8 = (597 + 8) / 8 = 75.625 Range("E9").Value = a '把E9单元格的数字传给变量a 'ActiveSheet.PrintOut '若你只有一个打印机，或者打印前先选定了打印机，可以使用这句，会使用默认打印机打印。 '下句可以指定使用哪个打印机来打印。From:=1, To:=1，可以指定打印第几页至第几页。 ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Preview:=False, ActivePrinter:="Microsoft Print to PDF" a = a + 8 '数字8是一页的标签数量，若你一页排了4个标签，就改成a = a + 4 Next i End Sub