要打印已經(jīng)加入字段的帶照片的表格，用VPF報(bào)表功能就可以輕松實(shí)現(xiàn)，但是如果數(shù)據(jù)都是用Excel錄入的怎么辦呢?少量的可以用VFP，將工作表轉(zhuǎn)換成DBF格式，并將圖片復(fù)制成一個(gè)個(gè)單獨(dú)的圖片文件，但是要是量比較大這樣就太麻煩了怎么批量打印圖片。下面小編教大家一個(gè)辦法，下面用打印準(zhǔn)考證為例：

圖1

　　1. 設(shè)計(jì)套打模板怎么批量打印圖片，建立數(shù)據(jù)關(guān)聯(lián)

　　圖2是空白準(zhǔn)考證樣式，先用掃描儀將準(zhǔn)考證掃描，并保持大小尺寸不變，然后將圖片保存為JPG格式怎么批量打印圖片。打開(kāi)Sheet2工作表，將剛才保存的圖片插入表中，并將圖片設(shè)定為非打印對(duì)象。執(zhí)行“視圖→工具欄→繪圖”命令，在準(zhǔn)考證需填充文本的部位插入矩形框。我們用VLOOKUP函數(shù)實(shí)現(xiàn)Sheet1工作表中數(shù)據(jù)與Sheet2表中準(zhǔn)考證間的關(guān)聯(lián)(照片填充部分除外)。

　　首先將A21單元格作為查詢的關(guān)鍵數(shù)值，在A20 —G20單元格中分別輸入[序號(hào)]、[姓名]、[級(jí)別]等字段怎么批量打印圖片。在B21單元格中輸入公式 “=IF(VLOOKUP(A21,Sheet1!A2:I1000,2)=0,"",VLOOKUP(A21,Sheet1!A2:I1000,2))”，在C21單元格中輸入公式 “=IF(VLOOKUP(A21,Sheet1!A2:I1000,6)=0,"",VLOOKUP(A21,Sheet1!A2:I1000,6))”，其他依此類推。這樣就建立了準(zhǔn)考證填充數(shù)據(jù)與Sheet1表間的關(guān)聯(lián)。

　　下一步就是要建立數(shù)據(jù)與準(zhǔn)考證相應(yīng)矩形框的關(guān)聯(lián)，以準(zhǔn)考證中[姓名]字段為例，鼠標(biāo)單擊該矩形框，在編輯欄右側(cè)輸入“=”符號(hào)，然后用鼠標(biāo)點(diǎn)擊需要填入數(shù)據(jù)的B21單元格，這樣矩形框就和B21單元格中的數(shù)據(jù)建立了聯(lián)系怎么批量打印圖片。只要單元格數(shù)據(jù)變化，則矩形框數(shù)據(jù)也跟著變化，其他依此類推。這樣，只要在A21單元格輸入序號(hào)值，那么Sheet1表中相應(yīng)序號(hào)行的數(shù)據(jù)就會(huì)在準(zhǔn)考證模板中自動(dòng)生成。上述工作完成后，按“Shift”鍵選中所有矩形框，設(shè)置矩形框格式，包括字體、大小、對(duì)齊、顏色和線條等，特別是選中無(wú)填充色和無(wú)線條色。

圖2

　　2. 定義名稱怎么批量打印圖片，導(dǎo)入照片

　　通過(guò)VLOOKUP函數(shù)雖然建立了工作表1和準(zhǔn)考證的聯(lián)系，但要在準(zhǔn)考證中自動(dòng)生成照片則需要用到比較復(fù)雜的函數(shù)，采取定義名稱的辦法 怎么批量打印圖片。具體步驟如下：

　　(1)定義名稱：執(zhí)行“插入→名稱→定義”命令，打開(kāi)如圖3所示“定義名稱”對(duì)話框，將名稱定義為“A”，在“引用位置”文本框中輸入公式 “=OFFSET(Sheet1!$A$1,0,0,COUNTA(Sheet1!$A:$A),1)”，按下〔確定〕按鈕返回怎么批量打印圖片。該公式建立了查詢數(shù)據(jù)的動(dòng)態(tài)地址。接著用同樣方法，再定義另一個(gè)名叫“X”的名稱，里面包括公式 “X=INDIRECT(ADDRESS(MATCH(Sheet2!$A$21,A,0),9,1,,"Sheet1"))”，該公式表示當(dāng)動(dòng)態(tài)地址欄為Sheet2表中A21單元格數(shù)值時(shí)，返回Sheet1表中第9列即照片所在列單元格內(nèi)容。

圖3

　　(2)導(dǎo)入圖片：選取sheet2工作表，執(zhí)行“視圖→工具欄→控件工具箱”命令，打開(kāi)“控制工具箱”窗口怎么批量打印圖片。點(diǎn)擊圖像框或文字框按鈕，在準(zhǔn)考證需要填充照片的位置畫(huà)出相同大小的圖片框或文字框。選取文字框(圖像框)后，將編輯欄中“=EMBED("Forms.TextBox.1",""”改成 “=X”，如圖4，這樣只要A21單元格數(shù)值變化時(shí)，照片框中相應(yīng)的照片就會(huì)發(fā)生變化。

圖4

　　3. 制作微調(diào)按鈕怎么批量打印圖片，編寫(xiě)宏代碼

　　為操作更加方便，可以制作微調(diào)按鈕調(diào)節(jié)序號(hào)值怎么批量打印圖片。執(zhí)行“視圖→工具欄→窗體”，打開(kāi)窗體對(duì)話框，點(diǎn)擊微調(diào)項(xiàng)標(biāo)志按鈕，建立微調(diào)按鈕，右擊按鈕，打開(kāi)“設(shè)置控件格式”對(duì)話框，并與B19單元格建立鏈接，按下〔確定〕按鈕。選中A21單元格，在編輯欄中輸入“= B19”，此時(shí)點(diǎn)擊微調(diào)按鈕，就可自動(dòng)調(diào)節(jié)B19和A21單元格序號(hào)值，對(duì)應(yīng)的數(shù)據(jù)就會(huì)在模板中自動(dòng)生成，效果如圖5。接下來(lái)就是打印了。

圖5

　　執(zhí)行“工具→宏→Visul Basic編輯器”命令怎么批量打印圖片，在Visul Basic編輯器中選擇“插入→添加模塊”，在代碼窗口輸入以下代碼：

　　Sub 打印()

　　ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

　　Call dy

　　End Sub

　　Sub dy()

　　Dim a%, b$, c$, abc$

　　a = Sheets("Sheet2").Cells(19, 2).Value

　　b = Sheets("Sheet2").Cells(19, 4).Value

　　(說(shuō)明：a即B19單元格，是圖5中打印第×頁(yè)至第×頁(yè)中的起始頁(yè)，b即D19單元格，是終止頁(yè)怎么批量打印圖片。)

　　If a < b Then

　　a = a + 1

　　Sheets("Sheet2").Cells(19, 2).Value = a

　　Call 打印

　　End If

　　End Sub

　　Private Sub CommandButton1_Click()

　　Call 打印

　　End Sub

　　輸入完成后，保存關(guān)閉VBA編輯窗口返回工作表狀態(tài)怎么批量打印圖片。同制作微調(diào)按鈕一樣，制作一個(gè)〔打印〕按鈕，并指定剛才建立的“打印”宏。將A1:F13所在的單元格區(qū)域設(shè)定為打印區(qū)域，設(shè)定打印起止頁(yè)，按下〔打印〕按鈕即可打印了，也可點(diǎn)擊微調(diào)按鈕，查詢到相應(yīng)的打印內(nèi)容，然后打印當(dāng)前頁(yè)。當(dāng)然其中的圖片及按鈕不會(huì)打印出來(lái)。