OFFICE輔導(dǎo)：Excel按鈕調(diào)用宏

OFFICE輔導(dǎo)：Excel按鈕調(diào)用宏操作方法如下：

1、執(zhí)行“工具→自定義”命令，翻開“自定義”對話框。

2、切換到“命令”標簽下，在“類別”下面選中“宏”，然后將右邊“命令”區(qū)域中的“自定義按鈕”選項拖到工具欄適宜位置上。

3、單擊“更改所選內(nèi)容”按鈕，在隨后彈出的快捷菜單中，將“命名”右側(cè)方框中的字符修改為按鈕對應(yīng)的字符（如“刪除”），并選中“總是用文字”選項。

4、右擊上述添加的按鈕，在隨后彈出的快捷菜單中，選擇“指定宏”選項，翻開“指定宏”對話框，選中需要調(diào)用的宏，確定返回。

5、關(guān)閉“自定義”對話框，按一上工具欄上的按鈕測試一下

表頭的設(shè)定

表頭三行打印到每頁這樣操作：點“文件/頁面設(shè)置/工作表”，在消失界面，點打印標題之頂端標題行框內(nèi)右邊小紅箭頭，將頂端三行選中，確定即可。

表尾的設(shè)置

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

按鈕只能點擊一次,否則消失打印頁面僅有頁尾的狀況

以下僅試用正規(guī)紙張的打印,不正規(guī)的稍加修改就可以實現(xiàn)批量打印的功能

代碼:

Dimlong_allAsInteger,width_allAsInteger’紙張的大小DimzleftMarginAsInteger,zrightMarginAsInteger,zTopMarginAsInteger’頁邊距DimzBottomMarginAsInteger,zHeaderMarginAsInteger,zFooterMarginAsInteger’頁眉頁腳Dimz_sumAsInteger,head_longAsInteger,all_rowAsInteger’內(nèi)容的長度表頭的長度總行數(shù)Dimfoot_longAsIntegerDimpagesizeAsInteger,OrientationAsInteger’紙張類型打印橫向還是縱向DimtitleAsString,start_headAsInteger,end_headAsInteger’表頭開頭行表頭完畢行‘這里添加自動調(diào)整行高的代碼(下邊有代碼)title=ActiveSheet.PageSetup.PrintTitleRows

end_head=Mid(title,5)’表頭完畢位置從1開頭的all_row=ActiveSheet.UsedRange.Rows.Count’總的可用排數(shù)Orientation=ctiveSheet.PageSetup.Orientationpagesize=ActiveSheet.PageSetup.PaperSize假如出來的頁邊距過大,請調(diào)整好頁眉(越小越好,不行以負數(shù))頁腳(越小越好,不行以負數(shù))上邊距下邊距自行調(diào)整反復(fù)測試時請刪除掉頁腳數(shù)