word居中缩放打印

《word居中缩放打印》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、Word文档缩放并且居中打印方法左右和上下的文字在页面中比例随心变换！　　在Word中打印文档时，经常需要按照一定比例缩放或扩大。而在Word自带的缩放打印功能中，缩放后页面就缩放到页面的左上方了，不能实现居中并且缩放打印，或者只能按照Word提供的几种模式版面来缩放文档(如在1张A4纸上打印2版、4版等，而要将文档打印在A4纸的1/4版上则无法实现)，却不能按照任意比例缩放。下面咱们来动动手，让Word缩放打印给你更自由的天空。　　一、设计打印窗体　　1.插入窗体　　启动Word，执行“工具→宏→VisualBasic编辑器”命令，在弹出的代码窗口中，激活左侧的“工程资源管理器”窗口中

2、的“Normal”对象，然后单击代码窗口菜单栏上的“插入”按钮，在下拉菜单中选择“用户窗体”命令，此时，编辑器为工程自动生成一个空白的窗体UserForm1，将该窗体的Caption属性改为“缩放打印”(图1)。2.添加控件图2要实现图2的效果，需要添加2个标签控件、2个文字框和一个命令按钮。具体步骤如下:执行“视图→工具箱”命令，打开“工具箱”对话框，单击[标签]按钮，在图一所示的窗体编辑窗口上插入Label1控件，并将控件名称改成“缩放比例(长)”，用同样的方法，再依次插入Label2控件和1个命令按钮，将名称改为“缩放比例(高)”和“打印”。最后向窗体插入2个文字框，并且按图2的版

3、式进行编排。　　二、编写代码　　在窗体编辑窗口中，双击新添加的“打印”按钮，进入“VisualBasic编辑器”，编辑该按钮的单击响应代码如下所示。　　PrivateSubCommandButton1_Click()　　ActiveDocument.PrintOut_　　printzoompaperwidth:=_　　Val(TextBox1.Text)*(8.5*1440),_　　printzoompaperheight:=_　　Val(TextBox2.Text)*(11*1440)　　UserForm1.Hide　　EndSub　　该代码显示了打印区域的大小变化。为了操作方便，我们

4、还需编写一段宏代码来调用这个窗体。方法如下:在“Normal”对象下，插入模块1，在代码窗口中输入以下代码:　　Subshow()　　UserForm1.Show　　EndSub输入完成后，关闭VBA窗口，返回到Word编辑窗口。　　三、将程序添加到菜单中　　由于每次打印文档时，都要执行“工具→宏→宏”命令，在宏对话框中运行宏“show”，这样不是很方便，所以还需要将它添加到菜单中。　　在Word文档编辑模式下，执行“工具→自定义”命令，打开“自定义”对话框，在“类别”下拉列表中选择“宏”(图3)。同时在右边的“命令”下拉列表中找到刚刚编写的宏，选中并按住鼠标左键，将它拖曳到菜单栏上。在

5、添加的菜单命令上单击鼠标右键，在“命名”文本框中输入新名称“缩放打印”。最后关闭“自定义”对话框。打印文档时，单击“缩放打印”按钮，系统弹出图2所示的窗体，输入缩放比例(例如想缩放80%，就输入0.8)，点击“打印”按钮，文档就会按要求自动打印出来了。　　小提示:在本例中，读者可以按照任意比例缩小并打印文档。由于文档允许扩大的最大数字为32767，我们在代码中已将纸张设置为:高11×1440、宽为8.5×1440，因此，将文档扩大打印时，会受一定比例限制。