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
相關推薦:
excel表格怎么根據身份證號碼批量填寫籍貫?
Excel表格對指定內容進行批量替換操作的教程