在Word中打印文檔時(shí)，經(jīng)常需要按照一定比例縮放或擴(kuò)大。而在Word自帶的縮放打印功能中，只能按照Word提供的幾種模式版面來縮放文檔(如在1張A4紙上打印2版、4版等，而要將文檔打印在A4紙的1/4版上則無法實(shí)現(xiàn))，卻不能按照任意比例縮放。下面咱們來動(dòng)動(dòng)手，讓W(xué)ord縮放打印給你更自由的天空。

　　一、設(shè)計(jì)打印窗體

　　1.插入窗體

　　啟動(dòng)Word，執(zhí)行“工具→宏→Visual Basic編輯器”命令，在彈出的代碼窗口中，激活左側(cè)的“工程資源管理器”窗口中的“Normal”對(duì)象，然后單擊代碼窗口菜單欄上的“插入”按鈕，在下拉菜單中選擇“用戶窗體”命令，此時(shí)，編輯器為工程自動(dòng)生成一個(gè)空白的窗體UserForm1，將該窗體的Captio性改為“縮放打印”(圖1)。

　　2.添加控件

 

　　要實(shí)現(xiàn)圖2的效果，需要添加2個(gè)標(biāo)簽控件、2個(gè)文字框和一個(gè)命令按鈕。具體步驟如下:執(zhí)行“視圖→工具箱”命令，打開“工具箱”對(duì)話框，單擊[標(biāo)簽]按鈕，在圖一所示的窗體編輯窗口上插入Label1控件，并將控件名稱改成“縮放比例(長)”，用同樣的方法，再依次插入Label2控件和1個(gè)命令按鈕，將名稱改為“縮放比例(高)”和“打印”。最后向窗體插入2個(gè)文字框，并且按圖2的版式進(jìn)行編排。

　　二、編寫代碼

　　在窗體編輯窗口中，雙擊新添加的“打印”按鈕，進(jìn)入“Visual Basic編輯器”，編輯該按鈕的單擊響應(yīng)代碼如下所示。

　　Private Sub CommandButton1_Click()

　　ActiveDocument.PrintOut _

　　printzoompaperwidth:= _

　　Val(TextBox1.Text) * (8.5 * 1440), _

　　printzoompaperheight:= _

　　Val(TextBox2.Text) * (11 * 1440)

　　UserForm1.Hide

　　End Sub

　　該代碼顯示了打印區(qū)域的大小變化。為了操作方便，我們還需編寫一段宏代碼來調(diào)用這個(gè)窗體。方法如下:在“Normal”對(duì)象下，插入模塊1，在代碼窗口中輸入以下代碼:

　　Sub show()

　　UserForm1.Show

　　End Sub

　　輸入完成后，關(guān)閉VBA窗口，返回到Word編輯窗口。

　　三、將程序添加到菜單中

　　由于每次打印文檔時(shí)，都要執(zhí)行“工具→宏→宏”命令，在宏對(duì)話框中運(yùn)行宏“show”，這樣不是很方便，所以還需要將它添加到菜單中。

　　在Word文檔編輯模式下，執(zhí)行“工具→自定義”命令，打開“自定義”對(duì)話框，在“類別”下拉列表中選擇“宏”(圖3)。同時(shí)在右邊的“命令”下拉列表中找到剛剛編寫的宏，選中并按住鼠標(biāo)左鍵，將它拖曳到菜單欄上。在添加的菜單命令上單擊鼠標(biāo)右鍵，在“命名”文本框中輸入新名稱“縮放打印”。最后關(guān)閉“自定義”對(duì)話框。

　　打印文檔時(shí)，單擊“縮放打印”按鈕，系統(tǒng)彈出圖2所示的窗體，輸入縮放比例，點(diǎn)擊“打印”按鈕，文檔就會(huì)按要求自動(dòng)打印出來了。

　　小提示:在本例中，讀者可以按照任意比例縮小并打印文檔。由于文檔允許擴(kuò)大的最大數(shù)字為32767，我們?cè)诖a中已將紙張?jiān)O(shè)置為:高11×1440、寬為8.5×1440，因此，將文檔擴(kuò)大打印時(shí)，會(huì)受一定比例限制。