今天我們用動畫的形式介紹在Excel中用按鈕調用“宏”的方法和技巧。

如果宏對所有工作簿文檔有效，建議大家在工具欄上添加一個命令按鈕，用來調用宏。

操作方法如下：

1、執行“工具→自定義”命令，打開“自定義”對話框。
2、切換到“命令”標簽下，在“類別”下面選中“宏”，然后將右邊“命令”區域中的“自定義按鈕”選項拖到工具欄合適位置上。
3、單擊“更改所選內容”按鈕，在隨后彈出的快捷菜單中，將“命名”右側方框中的字符修改為按鈕對應的字符（如“刪除”），并選中“總是用文字”選項。
4、右擊上述添加的按鈕，在隨后彈出的快捷菜單中，選擇“指定宏”選項，打開“指定宏”對話框，選中需要調用的宏，確定返回。
5、關閉“自定義”對話框，按一上工具欄上的按鈕測試一下

表頭的設定

一、表頭三行打印到每頁這樣操作：點“文件/頁面設置/工作表”，在出現界面，點打印標題之頂端標題行框內右邊小紅箭頭，將頂端三行選中，確定即可。

表尾的設置

默認最后一行為表尾,最后一行后不能有任何內容,點擊上邊的自定義的按鈕調用宏,給沒有頁面添加一個頁尾.

按鈕只能點擊一次,否則出現打印頁面僅有頁尾的情況

以下僅試用正規紙張的打印,不正規的稍加修改就可以實現批量打印的功能

代碼:

Dim long_all As Integer, width_all As Integer '紙張的大小    Dim zleftMargin As Integer, zrightMargin As Integer, zTopMargin As Integer   '頁邊距    Dim zBottomMargin As Integer, zHeaderMargin As Integer, zFooterMargin As Integer '頁眉頁腳    Dim z_sum As Integer, head_long As Integer, all_row As Integer '內容的長度表頭的長度總行數    Dim foot_long As Integer    Dim pagesize As Integer, Orientation As Integer '紙張類型打印橫向還是縱向    Dim title As String, start_head As Integer, end_head As Integer '表頭開始行表頭結束行    ‘這里添加自動調整行高的代碼(下邊有代碼)    title = ActiveSheet.PageSetup.PRintTitleRows    end_head = Mid(title, 5) '表頭結束位置從1開始的        all_row = ActiveSheet.UsedRange.Rows.Count '總的可用排數        Orientation = ActiveSheet.PageSetup.Orientation    pagesize = ActiveSheet.PageSetup.PaperSize........................如果出來的頁邊距過大,請調整好 頁眉(越小越好,不可以負數) 頁腳(越小越好,不可以負數) 上邊距 下邊距自行調整

反復測試時請刪除掉頁腳數據,然后單擊刪除分頁符號,excel將回復到原來的默認的打印樣式,再次可以測試分頁情況

注:縱向有單元格合并的不適用,稍加些改就可以了