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

快遞套打模板2015：點擊下載

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

2、設(shè)置紙張規(guī)格。選擇對應(yīng)打印機-右鍵點擊打印首選項-打開高級選項卡-紙張規(guī)格選擇新增的自定義紙張

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

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

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

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

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

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

3)E列是自動更新不用更新

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

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

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

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

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

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

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

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

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

4、具體VBA編程如下，

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

Private?Sub?打印全部數(shù)據(jù)_Click()

config?=?vbYesNo?+?vbQuestion?+?vbDefaultButton1

ans?=?MsgBox("你確認(rèn)打印全部數(shù)據(jù)嗎？",?config,"如風(fēng)達")

If?ans?=?vbYes?Then

Dim?A&,?B&,?C&,?D$,?E$,R1&,?C1&,?R2&,?C2&,?R3&,?C3&,?R4&,?C4&,?SF$

'當(dāng)前工作表名

SF?=?ActiveSheet.Name

'打印明細(xì)的最后列,行

R1?=?Sheets("打印明細(xì)").UsedRange.Rows.Count

C1?=?Sheets("打印明細(xì)").UsedRange.Columns.Count

'參數(shù)的最后列,行

R2?=?Sheets("參數(shù)").UsedRange.Rows.Count

C2?=?Sheets("參數(shù)").UsedRange.Columns.Count

'更新打印位置對應(yīng)列

For?B?=?2?To?R2

Sheets("參數(shù)").Cells(B,?5)?=""

For?A?=?1?To?C1

If?Sheets("參數(shù)").Cells(B,?4).Text?=?Sheets("打印明細(xì)").Cells(1,?A).Text?Then

Sheets("參數(shù)").Cells(B,?5)?=?A

End?If

Next

Next

'查詢指定訂單的信息

For?R4?=?2?To?R1

For?A?=?2?To?R2

If?Sheets("參數(shù)").Cells(A,?5).Text?<>?""?Then

'生成明細(xì)列

C4?=?Sheets("參數(shù)").Cells(A,?5).Text

'生成目標(biāo)對應(yīng)行列

R3?=?Sheets("參數(shù)").Cells(A,?2).Text

C3?=?Sheets("參數(shù)").Cells(A,?3).Text

ActiveSheet.Cells(R3,?C3).Value?=?Sheets("打印明細(xì)").Cells(R4,?C4).Text

End?If

Next

ActiveSheet.PrintOut?From:=1,?To:=1

Next

MsgBox"打印完成！",?vbInformation

If?ans?=?vbNo?Then

Exit?Sub

End?If

End?If

End?Sub

相關(guān)推薦：

總結(jié)

以上是生活随笔為你收集整理的php批量打印快递单,excel怎么利用vba实现批量套打快递单批量打印单据?的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。