excel怎么利用vba實現(xiàn)批量套打快遞單批量打印單據(jù)?
我要評論excel vba 批量套打快遞單,批量打印單據(jù)，可以自定義修改設置新的格式。
快遞套打模板2015：點擊下載
1、設置快遞單的自定義紙張。選擇對應打印機-點擊打印服務器屬性-勾選創(chuàng)建新表單-輸入表單名稱-填寫對應尺寸-點擊保存表單（快遞單的高度=1.27cm×邊孔數(shù)量）
2、設置紙張規(guī)格。選擇對應打印機-右鍵點擊打印首選項-打開高級選項卡-紙張規(guī)格選擇新增的自定義紙張
3、設置進紙規(guī)格。選擇對應打印機-右鍵點擊屬性-打開設備設置-進紙器選擇新增的自定義紙張
4、下載快遞套打模板。測試打印根據(jù)實際的偏移情況進行調(diào)整設置，調(diào)整邊距和縮放比例點擊設置打印邊距；
其他相關(guān)設置：
1、打印明細字段名修改方法
1）修改【打印明細】字段名，也可以變化前后順序，不需要的字段也可以刪除。
2）同步修改【參數(shù)】表內(nèi)D列對應的名稱。
3）E列是自動更新不用更新
2、新增調(diào)整修改打印字段位置方法
1）在【參數(shù)】內(nèi)A列添加或者修改字段名，自定義自己明白即可。
2）在【參數(shù)】內(nèi)B列添加此字段在【打印模板】對應行數(shù)。
3）在【參數(shù)】內(nèi)C列添加此字段在【打印模板】對應列數(shù)。
4，在【參數(shù)】內(nèi)D列添加此字段在【打印明細】對應表頭字段名。
3、設置新的打印模板
1）【打印模板】可以刪除背景，添加新的快遞單背景，或者設置需要打印的表單。
2）設置完畢新的格式后設置新的打印區(qū)域。
3）修改【參數(shù)】內(nèi)各字段對應數(shù)據(jù)。
4、具體VBA編程如下，
- Private Sub 打印全部數(shù)據(jù)_Click()
- config = vbYesNo + vbQuestion + vbDefaultButton1
- ans = MsgBox("你確認打印全部數(shù)據(jù)嗎？", 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
- '參數(shù)的最后列,行
- R2 = Sheets("參數(shù)").UsedRange.Rows.Count
- C2 = Sheets("參數(shù)").UsedRange.Columns.Count
- '更新打印位置對應列
- For B = 2 To R2
- Sheets("參數(shù)").Cells(B, 5) = ""
- For A = 1 To C1
- If Sheets("參數(shù)").Cells(B, 4).Text = Sheets("打印明細").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
- '生成明細列
- C4 = Sheets("參數(shù)").Cells(A, 5).Text
- '生成目標對應行列
- R3 = Sheets("參數(shù)").Cells(A, 2).Text
- C3 = Sheets("參數(shù)").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
相關(guān)推薦：
相關(guān)文章
- Excel表格是我們經(jīng)常使用的辦公系統(tǒng)軟件，當我們的內(nèi)容超過2頁，而只有一個表頭的話，不方便查看，希望在每一頁都有一個表頭。那么excel在打印時怎么每頁都顯示表頭標題?下2016-04-01
- 這篇教程是向腳本之家的朋友介紹在excel工作表中怎么使特定行或列在打印的每頁中顯示方法，教程比較基礎(chǔ)，適合新手來學習，一起來看看吧2016-03-28
- Excel打印預覽時不能改變紙張方向大小該怎辦？excel表格打印預覽時發(fā)現(xiàn)excel表格的紙張大小和紙張方向都沒辦法調(diào)整，這是怎么回事，該怎么解決呢？下面我們來看看詳細的解2016-03-25
瀏覽器怎么設置允許遠行excel導出網(wǎng)頁文件打印?
瀏覽器怎么設置允許遠行excel導出網(wǎng)頁文件打??？在瀏覽器的網(wǎng)頁中有打印選項，，但是文件卻不能導入excel中打印，該怎么吧呢？下面我們來看看詳細的解決辦法，需要的朋友可2016-02-28在EXCEL中如何設置打印區(qū)域?excel設置打印區(qū)域方法介紹
我們在打印excel的時候，經(jīng)常需要來設定打印區(qū)域，才能更好的打印我們所要的東西，而不是默認去分布，這樣容易導致自動分頁，內(nèi)容脫節(jié)就不好看了，那么在EXCEL中如何設置打2016-01-29- BarTender條碼打印軟件怎么導入EXCEL表格打?。緽arTender軟件適合打印少量的數(shù)據(jù)，但是如果有一個excel表格都需要打印成條碼，該怎么辦呢？一個一個打印就太慢了，下面我們2016-01-22
- 經(jīng)常打印excel表格時會發(fā)現(xiàn)只有第一頁有表頭，而后面幾頁都沒有，這也很不方便，有沒有簡單易行的操作方法呢，有。下面小編就為大家介紹在Excel表格里怎么設置每頁打印時都2016-01-12
- 打印標題的意思是：在存在多頁打印的時候，每頁都需要打印其第一頁的標題的設置（標題每頁都顯示）。那么在excel中怎么設置只打印標題?下面就為大家介紹一下，來看看吧2016-01-07
BarTender如何批量打印EXCEL里的數(shù)據(jù)？
BarTender如何批量打印EXCEL里的數(shù)據(jù)？本文就給大家?guī)鞡arTender批量打印EXCEL里的數(shù)據(jù)的方法，希望可以幫助到大家2015-12-28- 在雙面打印時,Excel2010怎樣設置左右頁碼?很多朋友都不是很清楚，所以今天小編就為大家詳細介紹一下，不會的朋友可以參考本文，希望能對大家有所幫助2015-12-25