excel vba 批量套打快遞單,批量打印單據(jù)，可以自定義修改設(shè)置新的格式。

快遞套打模板2015：點(diǎn)擊下載

1、設(shè)置快遞單的自定義紙張。選擇對(duì)應(yīng)打印機(jī)-點(diǎn)擊打印服務(wù)器屬性-勾選創(chuàng)建新表單-輸入表單名稱(chēng)-填寫(xiě)對(duì)應(yīng)尺寸-點(diǎn)擊保存表單（快遞單的高度=1.27cm×邊孔數(shù)量）

2、設(shè)置紙張規(guī)格。選擇對(duì)應(yīng)打印機(jī)-右鍵點(diǎn)擊打印首選項(xiàng)-打開(kāi)高級(jí)選項(xiàng)卡-紙張規(guī)格選擇新增的自定義紙張

3、設(shè)置進(jìn)紙規(guī)格。選擇對(duì)應(yīng)打印機(jī)-右鍵點(diǎn)擊屬性-打開(kāi)設(shè)備設(shè)置-進(jìn)紙器選擇新增的自定義紙張

4、下載快遞套打模板。測(cè)試打印根據(jù)實(shí)際的偏移情況進(jìn)行調(diào)整設(shè)置，調(diào)整邊距和縮放比例點(diǎn)擊設(shè)置打印邊距；

其他相關(guān)設(shè)置：

1、打印明細(xì)字段名修改方法

1）修改【打印明細(xì)】字段名，也可以變化前后順序，不需要的字段也可以刪除。

2）同步修改【參數(shù)】表內(nèi)D列對(duì)應(yīng)的名稱(chēng)。

3）E列是自動(dòng)更新不用更新

2、新增調(diào)整修改打印字段位置方法

1）在【參數(shù)】?jī)?nèi)A列添加或者修改字段名，自定義自己明白即可。

2）在【參數(shù)】?jī)?nèi)B列添加此字段在【打印模板】對(duì)應(yīng)行數(shù)。

3）在【參數(shù)】?jī)?nèi)C列添加此字段在【打印模板】對(duì)應(yīng)列數(shù)。

4，在【參數(shù)】?jī)?nèi)D列添加此字段在【打印明細(xì)】對(duì)應(yīng)表頭字段名。

3、設(shè)置新的打印模板

1）【打印模板】可以刪除背景，添加新的快遞單背景，或者設(shè)置需要打印的表單。

2）設(shè)置完畢新的格式后設(shè)置新的打印區(qū)域。

3）修改【參數(shù)】?jī)?nèi)各字段對(duì)應(yīng)數(shù)據(jù)。

4、具體VBA編程如下，

復(fù)制內(nèi)容到剪貼板

PrivateSub打印全部數(shù)據(jù)_Click()config=vbYesNo+vbQuestion+vbDefaultButton1ans=MsgBox("你確認(rèn)打印全部數(shù)據(jù)嗎？",config,"如風(fēng)達(dá)")Ifans=vbYesThenDimA&,B&,C&,D$,E$,R1&,C1&,R2&,C2&,R3&,C3&,R4&,C4&,SF$'當(dāng)前工作表名SF=ActiveSheet.Name'打印明細(xì)的最后列,行R1=Sheets("打印明細(xì)").UsedRange.Rows.CountC1=Sheets("打印明細(xì)").UsedRange.Columns.Count'參數(shù)的最后列,行R2=Sheets("參數(shù)").UsedRange.Rows.CountC2=Sheets("參數(shù)").UsedRange.Columns.Count'更新打印位置對(duì)應(yīng)列ForB=2ToR2Sheets("參數(shù)").Cells(B,5)=""ForA=1ToC1IfSheets("參數(shù)").Cells(B,4).Text=Sheets("打印明細(xì)").Cells(1,A).TextThenSheets("參數(shù)").Cells(B,5)=AEndIfNextNext'查詢指定訂單的信息ForR4=2ToR1ForA=2ToR2IfSheets("參數(shù)").Cells(A,5).Text<>""Then'生成明細(xì)列C4=Sheets("參數(shù)").Cells(A,5).Text'生成目標(biāo)對(duì)應(yīng)行列R3=Sheets("參數(shù)").Cells(A,2).TextC3=Sheets("參數(shù)").Cells(A,3).TextActiveSheet.Cells(R3,C3).Value=Sheets("打印明細(xì)").Cells(R4,C4).TextEndIfNextActiveSheet.PrintOutFrom:=1,To:=1NextMsgBox"打印完成！",vbInformationIfans=vbNoThenExitSubEndIfEndIfEndSub