国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 辦公 > Excel > 正文

excel怎么利用vba實現批量套打快遞單批量打印單據?

2019-12-13 12:07:01
字體:
來源:轉載
供稿:網友

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編程如下,

 

復制內容到剪貼板
  1. Private Sub 打印全部數據_Click()   
  2.   
  3. config = vbYesNo + vbQuestion + vbDefaultButton1   
  4.   
  5.  ans = MsgBox("你確認打印全部數據嗎?", config, "如風達")   
  6.   
  7.     If ans = vbYes Then   
  8.   
  9.      Dim A&, B&, C&, D$, E$,R1&, C1&, R2&, C2&, R3&, C3&, R4&, C4&, SF$   
  10.   
  11.   '當前工作表名  
  12.  
  13.    SF = ActiveSheet.Name     
  14.  
  15.    '打印明細的最后列,行     
  16.   
  17.    R1 = Sheets("打印明細").UsedRange.Rows.Count     
  18.   
  19.    C1 = Sheets("打印明細").UsedRange.Columns.Count    
  20.   
  21.    '參數的最后列,行    
  22.  
  23.    R2 = Sheets("參數").UsedRange.Rows.Count   
  24.  
  25.    C2 = Sheets("參數").UsedRange.Columns.Count  
  26.  
  27.       '更新打印位置對應列   
  28.   
  29.      For B = 2 To R2   
  30.   
  31.        Sheets("參數").Cells(B, 5) = ""  
  32.   
  33.            For A = 1 To C1   
  34.   
  35.               If Sheets("參數").Cells(B, 4).Text = Sheets("打印明細").Cells(1, A).Text Then   
  36.   
  37.                Sheets("參數").Cells(B, 5) = A   
  38.   
  39.                End If   
  40.   
  41.            Next   
  42.   
  43.         Next         
  44.   
  45.    '查詢指定訂單的信息  
  46.  
  47.        For R4 = 2 To R1  
  48.  
  49.            For A = 2 To R2  
  50.  
  51.               If Sheets("參數").Cells(A, 5).Text <> "" Then  
  52.  
  53.               '生成明細列   
  54.   
  55.                C4 = Sheets("參數").Cells(A, 5).Text   
  56.   
  57.               '生成目標對應行列   
  58.   
  59.                R3 = Sheets("參數").Cells(A, 2).Text   
  60.   
  61.                C3 = Sheets("參數").Cells(A, 3).Text                     
  62.   
  63.                ActiveSheet.Cells(R3, C3).Value = Sheets("打印明細").Cells(R4, C4).Text                 
  64.   
  65.              End If   
  66.   
  67.            Next   
  68.   
  69.           ActiveSheet.PrintOut From:=1, To:=1            
  70.   
  71.         Next      
  72.   
  73.      MsgBox "打印完成!", vbInformation   
  74.   
  75.   If ans = vbNo Then   
  76.   
  77.   Exit Sub   
  78.   
  79. End If     
  80.   
  81. End If   
  82.   
  83. End Sub  

相關推薦:

excel表格怎么根據身份證號碼批量填寫籍貫?

Excel表格對指定內容進行批量替換操作的教程

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 密山市| 张家口市| 灌阳县| 河津市| 宝丰县| 蒙自县| 抚远县| 玛多县| 稻城县| 旬阳县| 桐庐县| 都匀市| 西乌珠穆沁旗| 江口县| 永德县| 敖汉旗| 远安县| 西安市| 平山县| 新乡县| 浦北县| 简阳市| 江孜县| 滦南县| 嘉禾县| 新泰市| 治县。| 新田县| 长春市| 北辰区| 合作市| 托里县| 马山县| 永康市| 遂宁市| 平顺县| 玛纳斯县| 商洛市| 衡南县| 德庆县| 惠州市|