這兩天想打印公司庫存、庫存標(biāo)簽，如下圖，上網(wǎng)搜索了一下，找不到合適的案例，自己做了一份。

標(biāo)簽樣式

首先，做個(gè)物料表

我的是這樣的，第一列，填寫序號(hào)，這個(gè)挺重要的，就是依據(jù)它來打印的。序號(hào)按1，2，3順序填寫。

物料表

其它列，填寫你需要的內(nèi)容。

先說下，我比較懶，我是先盤點(diǎn)好，最后打印的標(biāo)簽，數(shù)量也打印的。

做標(biāo)簽頁

這個(gè)和平時(shí)自己做表格一樣，你怎么順眼怎么做。下圖是我需要的，一頁A4紙排了8個(gè)小標(biāo)簽

標(biāo)簽排版

上圖中有個(gè)E9單元格，后面會(huì)用到。

標(biāo)簽頁公式

標(biāo)簽頁填寫的公式

看上圖，很簡單的一個(gè)公式，“=VLOOKUP($E$9,物料名稱!$A:$D,4,0)”，從物料名稱表里按順序填寫名稱。

第2個(gè)標(biāo)簽頁，為“=VLOOKUP($E$9+1,物料名稱!$A:$D,4,0)”，比第1個(gè)，+1，以此類推，第8個(gè)標(biāo)簽頁，+7。

VLOOKUP是橫著查找，$符號(hào)是絕對(duì)引用的意思，不帶$為相對(duì)引用。

打印代碼

Sub 打印標(biāo)簽() Dim a As Integer '定義變量a為整數(shù) Dim b As Integer '定義變量b為整數(shù) Dim c As Integer '定義變量c為整數(shù) 'a = InputBox("請(qǐng)輸入開始打印序號(hào)") '若要使用這句，把本行最前面的“'”刪除，下同。 '同時(shí)，須把下面的“a = 1 及 b = 597 ”刪除，或者在其前面加上豆撇 ' 'b = InputBox("請(qǐng)輸入結(jié)束打印序號(hào)") '下面2行，是我圖省事，自己用的。 a = 1 '從序號(hào)1開始 b = 597 '到序號(hào)597結(jié)束 c = (b + 8) / 8 '你一頁有幾個(gè)標(biāo)簽，8就是幾。比如你一頁排了4個(gè)標(biāo)簽，這句就是c = (b + 4) / 4 For i = a To c '從序號(hào)a打印到序號(hào)c，本例中，a是1，c = (b + 8) / 8 = (597 + 8) / 8 = 75.625 Range("E9").Value = a '把E9單元格的數(shù)字傳給變量a 'Ac '若你只有一個(gè)打印機(jī)，或者打印前先選定了打印機(jī)，可以使用這句，會(huì)使用默認(rèn)打印機(jī)打印。 '下句可以指定使用哪個(gè)打印機(jī)來打印。From:=1, To:=1，可以指定打印第幾頁至第幾頁。 Ac From:=1, To:=1, Preview:=False, ActivePrinter:="Microsoft Print to PDF" a = a + 8 '數(shù)字8是一頁的標(biāo)簽數(shù)量，若你一頁排了4個(gè)標(biāo)簽，就改成a = a + 4 Next i End Sub

VBA代碼

這個(gè)代碼，很簡單，注釋我也寫的挺清楚的，使用應(yīng)該沒啥問題。

若你的WPS沒有安裝VBA，可以從網(wǎng)上下個(gè)，在評(píng)論區(qū)我也貼個(gè)下載鏈接。excel自帶vba，不用下。

對(duì)于E9單元格，若不想看到數(shù)字，可以設(shè)置字的顏色為紙的顏色，比如”白色“。

最后，若你的表格上看不到“開發(fā)工具”，就是下圖中的最后那個(gè)。若有，點(diǎn)“宏”，即可看到“打印標(biāo)簽”項(xiàng)。

開發(fā)工具

按下圖順序即可找到。文件→選項(xiàng)→自定義功能區(qū)，勾選“開發(fā)工具”。WPS和Excel基本相同。

開發(fā)工具位置

如有錯(cuò)誤，歡迎朋友們指正，以免誤人。

忘記了件事，打印機(jī)的名字在系統(tǒng)打印機(jī)和掃描儀頁查看，照抄填寫到代碼里即可。

查看打印機(jī)名字