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

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

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

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

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

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

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

表頭的設(shè)定

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

表尾的設(shè)置

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

按鈕只能點(diǎn)擊一次,否則消失打印頁(yè)面僅有頁(yè)尾的狀況

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

代碼:

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

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