欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

excel怎么利用vba實現(xiàn)批量套打快遞單批量打印單據(jù)?

  發(fā)布時間：2016-01-28 11:09:04   作者：佚名   我要評論
excel怎么利用vba實現(xiàn)批量套打快遞單批量打印單據(jù)？過年了，在網(wǎng)上購物的朋友越來越多，需要打印的快遞單子也越來越多，一個一個的打印速度上不來該怎么辦呢？下面我們來看看excel通過vba實現(xiàn)批量套打快遞單批量打印單據(jù)的技巧

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è)置進(jìn)紙規(guī)格。選擇對應(yīng)打印機-右鍵點擊屬性-打開設(shè)備設(shè)置-進(jìn)紙器選擇新增的自定義紙張

4、下載快遞套打模板。測試打印根據(jù)實際的偏移情況進(jìn)行調(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)容到剪貼板
  1. Private Sub 打印全部數(shù)據(jù)_Click()   
  2.   
  3. config = vbYesNo + vbQuestion + vbDefaultButton1   
  4.   
  5.  ans = MsgBox("你確認(rèn)打印全部數(shù)據(jù)嗎？", config, "如風(fēng)達(dá)")   
  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.   '當(dāng)前工作表名  
  12.  
  13.    SF = ActiveSheet.Name     
  14.  
  15.    '打印明細(xì)的最后列,行     
  16.   
  17.    R1 = Sheets("打印明細(xì)").UsedRange.Rows.Count     
  18.   
  19.    C1 = Sheets("打印明細(xì)").UsedRange.Columns.Count    
  20.   
  21.    '參數(shù)的最后列,行    
  22.  
  23.    R2 = Sheets("參數(shù)").UsedRange.Rows.Count   
  24.  
  25.    C2 = Sheets("參數(shù)").UsedRange.Columns.Count  
  26.  
  27.       '更新打印位置對應(yīng)列   
  28.   
  29.      For B = 2 To R2   
  30.   
  31.        Sheets("參數(shù)").Cells(B, 5) = ""  
  32.   
  33.            For A = 1 To C1   
  34.   
  35.               If Sheets("參數(shù)").Cells(B, 4).Text = Sheets("打印明細(xì)").Cells(1, A).Text Then   
  36.   
  37.                Sheets("參數(shù)").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("參數(shù)").Cells(A, 5).Text <> "" Then  
  52.  
  53.               '生成明細(xì)列   
  54.   
  55.                C4 = Sheets("參數(shù)").Cells(A, 5).Text   
  56.   
  57.               '生成目標(biāo)對應(yīng)行列   
  58.   
  59.                R3 = Sheets("參數(shù)").Cells(A, 2).Text   
  60.   
  61.                C3 = Sheets("參數(shù)").Cells(A, 3).Text                     
  62.   
  63.                ActiveSheet.Cells(R3, C3).Value = Sheets("打印明細(xì)").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  

相關(guān)推薦：

excel表格怎么根據(jù)身份證號碼批量填寫籍貫？

Excel表格對指定內(nèi)容進(jìn)行批量替換操作的教程

相關(guān)文章

最新評論