亚洲乱码中文字幕综合,中国熟女仑乱hd,亚洲精品乱拍国产一区二区三区,一本大道卡一卡二卡三乱码全集资源,又粗又黄又硬又爽的免费视频

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

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

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

快遞套打模板2015：點(diǎn)擊下載

1、設(shè)置快遞單的自定義紙張。選擇對(duì)應(yīng)打印機(jī)-點(diǎn)擊打印服務(wù)器屬性-勾選創(chuàng)建新表單-輸入表單名稱-填寫對(duì)應(yīng)尺寸-點(diǎn)擊保存表單（快遞單的高度=1.27cm×邊孔數(shù)量）

2、設(shè)置紙張規(guī)格。選擇對(duì)應(yīng)打印機(jī)-右鍵點(diǎn)擊打印首選項(xiàng)-打開高級(jí)選項(xiàng)卡-紙張規(guī)格選擇新增的自定義紙張

3、設(shè)置進(jìn)紙規(guī)格。選擇對(duì)應(yīng)打印機(jī)-右鍵點(diǎn)擊屬性-打開設(shè)備設(shè)置-進(jìn)紙器選擇新增的自定義紙張

4、下載快遞套打模板。測(cè)試打印根據(jù)實(shí)際的偏移情況進(jìn)行調(diào)整設(shè)置，調(diào)整邊距和縮放比例點(diǎn)擊設(shè)置打印邊距；

其他相關(guān)設(shè)置：

1、打印明細(xì)字段名修改方法

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

2）同步修改【參數(shù)】表內(nèi)D列對(duì)應(yīng)的名稱。

3）E列是自動(dòng)更新不用更新

2、新增調(diào)整修改打印字段位置方法

1）在【參數(shù)】?jī)?nèi)A列添加或者修改字段名，自定義自己明白即可。

2）在【參數(shù)】?jī)?nèi)B列添加此字段在【打印模板】對(duì)應(yīng)行數(shù)。

3）在【參數(shù)】?jī)?nèi)C列添加此字段在【打印模板】對(duì)應(yīng)列數(shù)。

4，在【參數(shù)】?jī)?nèi)D列添加此字段在【打印明細(xì)】對(duì)應(yīng)表頭字段名。

3、設(shè)置新的打印模板

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

2）設(shè)置完畢新的格式后設(shè)置新的打印區(qū)域。

3）修改【參數(shù)】?jī)?nèi)各字段對(duì)應(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.       '更新打印位置對(duì)應(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)對(duì)應(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ù)身份證號(hào)碼批量填寫籍貫？

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

相關(guān)文章

  • excel在打印時(shí)怎么每頁(yè)都顯示表頭標(biāo)題?

    Excel表格是我們經(jīng)常使用的辦公系統(tǒng)軟件，當(dāng)我們的內(nèi)容超過(guò)2頁(yè)，而只有一個(gè)表頭的話，不方便查看，希望在每一頁(yè)都有一個(gè)表頭。那么excel在打印時(shí)怎么每頁(yè)都顯示表頭標(biāo)題?下
    2016-04-01

  • 在excel工作表中怎么使特定行或列在打印的每頁(yè)中顯示?

    這篇教程是向腳本之家的朋友介紹在excel工作表中怎么使特定行或列在打印的每頁(yè)中顯示方法，教程比較基礎(chǔ)，適合新手來(lái)學(xué)習(xí)，一起來(lái)看看吧
    2016-03-28

  • Excel打印預(yù)覽時(shí)不能改變紙張方向大小該怎辦?

    Excel打印預(yù)覽時(shí)不能改變紙張方向大小該怎辦？excel表格打印預(yù)覽時(shí)發(fā)現(xiàn)excel表格的紙張大小和紙張方向都沒辦法調(diào)整，這是怎么回事，該怎么解決呢？下面我們來(lái)看看詳細(xì)的解
    2016-03-25

  • 瀏覽器怎么設(shè)置允許遠(yuǎn)行excel導(dǎo)出網(wǎng)頁(yè)文件打印?

    瀏覽器怎么設(shè)置允許遠(yuǎn)行excel導(dǎo)出網(wǎng)頁(yè)文件打?。吭跒g覽器的網(wǎng)頁(yè)中有打印選項(xiàng)，，但是文件卻不能導(dǎo)入excel中打印，該怎么吧呢？下面我們來(lái)看看詳細(xì)的解決辦法，需要的朋友可
    2016-02-28

  • 在EXCEL中如何設(shè)置打印區(qū)域?excel設(shè)置打印區(qū)域方法介紹

    我們?cè)诖蛴xcel的時(shí)候，經(jīng)常需要來(lái)設(shè)定打印區(qū)域，才能更好的打印我們所要的東西，而不是默認(rèn)去分布，這樣容易導(dǎo)致自動(dòng)分頁(yè)，內(nèi)容脫節(jié)就不好看了，那么在EXCEL中如何設(shè)置打
    2016-01-29

  • BarTender條碼打印軟件怎么導(dǎo)入EXCEL表格打印?

    BarTender條碼打印軟件怎么導(dǎo)入EXCEL表格打??？BarTender軟件適合打印少量的數(shù)據(jù)，但是如果有一個(gè)excel表格都需要打印成條碼，該怎么辦呢？一個(gè)一個(gè)打印就太慢了，下面我們
    2016-01-22

  • 在Excel表格里怎么設(shè)置每頁(yè)打印時(shí)都有相同表頭?

    經(jīng)常打印excel表格時(shí)會(huì)發(fā)現(xiàn)只有第一頁(yè)有表頭，而后面幾頁(yè)都沒有，這也很不方便，有沒有簡(jiǎn)單易行的操作方法呢，有。下面小編就為大家介紹在Excel表格里怎么設(shè)置每頁(yè)打印時(shí)都
    2016-01-12

  • 在excel中怎么設(shè)置只打印標(biāo)題?

    打印標(biāo)題的意思是：在存在多頁(yè)打印的時(shí)候，每頁(yè)都需要打印其第一頁(yè)的標(biāo)題的設(shè)置（標(biāo)題每頁(yè)都顯示）。那么在excel中怎么設(shè)置只打印標(biāo)題?下面就為大家介紹一下，來(lái)看看吧
    2016-01-07

  • BarTender如何批量打印EXCEL里的數(shù)據(jù)？

    BarTender如何批量打印EXCEL里的數(shù)據(jù)？本文就給大家?guī)?lái)BarTender批量打印EXCEL里的數(shù)據(jù)的方法，希望可以幫助到大家
    2015-12-28

  • 在雙面打印時(shí),Excel2010怎樣設(shè)置左右頁(yè)碼?

    在雙面打印時(shí),Excel2010怎樣設(shè)置左右頁(yè)碼?很多朋友都不是很清楚，所以今天小編就為大家詳細(xì)介紹一下，不會(huì)的朋友可以參考本文，希望能對(duì)大家有所幫助
    2015-12-25

最新評(píng)論