信封批量套打格式制作全過程

1、前兩天公司同事，手寫快遞單，寫到手軟，這讓我起了做一個套打小程序，不管現(xiàn)在是不是用的到以后也許有用。可是對 ACCESS不是很了解，最后決定還是用 EXCEL來做?？戳艘恍﹦e人的實例后，自已做，怎么別人可以批量打??？我的卻不能呢？后面才發(fā)現(xiàn)原來我的單元格定義錯誤了。1、建兩個工作表“聯(lián)系人”和“套打”。2、 先將要套的快遞單做了一個1:1的掃描，并將它插入 EXCEL的 “套打”工作表中F1JhTj2、在“聯(lián)系人”工作表里做一些基本的數(shù)據如圖。Iicrosuft Eicel - OAfTili色劉牠 3iA(D MW IA Ml) SDt) WM)CL8 f*AB )CDEFG HI12.葩址

2、驊1電器省!區(qū)31林麗365000130621(1000巌q2大呂三腳36500(1860000000053幗12334511221122232山匚J643Wkkkkkkkkkkkkkkkkkkkkkkkk .kkkk,kkkk83、調整打印位置。至于如何調整從哪開始打文字，就是拖動單元格的讓它成網格狀，在要打印的地方合并單元格，4、設置打印控件。UPQRSTU :3 t M序號1|wr印起始號2統(tǒng)號這里要注意的是 S1單元格，S2和S3單元格的定義。Tu - !通這三個控件來調整 S1-S3的值。也就是“聯(lián)系人”工作表里所指記錄序號。大小保護i“一wi單無格旌接$S$L叵三維陰影G）誦走取消

3、通過這個步長和鏈接到 S1單元格。（這個滾動步驟也可省去直接手工輸入序號）5、命令控鍵的設置制做CommandButton按鍵并設置它的 VBA代碼這里我設了 3個按鍵。6、對打印區(qū)域內有文字單元格的設置。在這里記得這里字段名要從第二行開始。因為后面的一個函數(shù)是用到偏移函數(shù)。如當記錄為第一的時候公式如以下當S1單元格為1時，在聯(lián)系人工作表里取值為B2。后面的&”是連接一個空值做結束，目的是為了單元格內為文本型。=OFFSET聯(lián)系人!$B$2,$S$1,0)&AJIJJF 7X5Il_s勺 14MH21*7、對三個按鍵的 VBA設置。彈出VBA編輯窗口打印當前頁的代碼Private Sub Co

4、mma ndButto n2_Click()For i = s1 To s1 Step 1s1 = iActiveWi ndow.SelectedSheets.Pri ntOut Copies:=1, Collate:=TrueNext iEnd Sub這里意思： 賦值命令鈕 2 號從S1單元格到S1單元格S1 賦值為 I當值為真時打印 1 次。返回 S1 當前單元格結束。批量打印的代碼Private Sub CommandButton1_Click()For i = s2 To s3 Step 1s1 = iActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=TrueI 活動窗口，打印輸出復制復數(shù)為 1 ，校對為真 宏由 llr 錄制，時間 : 2011-5-29INext iEnd Sub返回 “聯(lián)系人”工作表Sub CommandButton3_Click()I Macro3 Macro 宏由 llr 錄制，時間 : 2011-5-29I