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

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

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

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

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

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

其他相關設置：

1、打印明細字段名修改方法

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

2)同步修改【參數】表內D列對應的名稱。

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

2、新增調整修改打印字段位置方法

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

2)在【參數】內B列添加此字段在【打印模板】對應行數。

3)在【參數】內C列添加此字段在【打印模板】對應列數。

4，在【參數】內D列添加此字段在【打印明細】對應表頭字段名。

3、設置新的打印模板

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

2)設置完畢新的格式后設置新的打印區域。

3)修改【參數】內各字段對應數據。

4、具體VBA編程如下，

復制內容到剪貼板

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

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

ans?=?MsgBox("你確認打印全部數據嗎？",?config,"如風達")

If?ans?=?vbYes?Then

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

'當前工作表名

SF?=?ActiveSheet.Name

'打印明細的最后列,行

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

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

'參數的最后列,行

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

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

'更新打印位置對應列

For?B?=?2?To?R2

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

For?A?=?1?To?C1

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

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

End?If

Next

Next

'查詢指定訂單的信息

For?R4?=?2?To?R1

For?A?=?2?To?R2

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

'生成明細列

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

'生成目標對應行列

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

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

ActiveSheet.Cells(R3,?C3).Value?=?Sheets("打印明細").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

相關推薦：

總結

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

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。