excel 设置表头表尾

Excel按钮调用宏

今天我们用动画的形式介绍在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将回复到原来的默认的打印样式,再次可以测试分页情况

注:纵向有单元格合并的不适用,稍加些改就可以了