Excel制表的技巧 45 打印设置.docVIP

  • 4
  • 0
  • 约1.37万字
  • 约 22页
  • 2018-11-04 发布于福建
  • 举报
Excel制表的技巧 45 打印设置

Excel制表技巧 45 打印设置 Excel制表技巧(45)打印设置2010-11-23 12:31打印Excel中的单列表格 如果只打印Excel中的一个单列表格,相信有的朋友一定会为此而挠头,由于在Excel的页面设置中没有分栏这一功能,所以对于长长的一列在打印时就不太好办了,不过,利用Excel的同门师兄word,就可以将要这一列的内容横向排列、逐行显示,具体的做法如下: 打开表格,复制要打印的某一列,然后点击菜单中的文件→新建.→工作簿,然后将复制的某一列粘贴到该工作簿的第一列中,点击文件下的保存,在弹出的保存窗口中,将保存类型选择为文本文件(制表符分隔)(*.txt),然后点击保存,不要管弹出提示,点确定或是就把这个工作簿保存为book1.txt了。 下面打开word,点击菜单中的文件→打开.,在弹出的打开窗口中,将文件类型改为所有文件(*.*),然后选择打开刚才保存的book1.txt,同样book1.txt在word窗口内显示的也是长长的一列文字,如果你的word没有将视图下的显示段落标记前的对勾去掉,你就会发现,在每一行的后面都会有一个段落标记,只要将这个段落标记替换成几个空格,不就可以横向显示这些文字了!对,就是这个意思! 下面点击编辑下的替换,在弹出的查找和替换窗口中,点高级展开高级查找的菜单,点击其中的特殊字符,在弹出的菜单中选择段落标记,这样在查找内容项内显示的就是^p,当然也可以直接查找内容中输入^P,然后在替换为项内输入几个空格,具体数量视要打印的内容而定,最后点击全部替换,等出现替换完成提示后,再看word中的原本单列显示的文本,是不是已变成逐行显示了,下面只要再对这些文字进行一下调整、修饰,加上标题,就可以打印了。 Excel中单列表格的打印方法 《中国电脑教育报》2004年第23期E9版刊登了打印Excel中的单列表格一文,介绍利用Excel的文件另存与word的查找替换与排版实现Excel中的单列表格的打印方法。其实利用Excel自身的公式操作,也可轻松实现单列表格文本的合成打印。以横向排列,逐行显示的学生姓名列为例,具体操作方法如下: 1.先在当前表sheet1的适当位置选择一列作为数据合成列,如F列,并在其下第2个单元格F2中输入公式=F1B2,(公式表示在二个姓名之间空2格)则F2中产生第一个姓名,选择F2,利用向下拖动填充句柄的方法将F2中公式复制到以下单元格中,直到最后一行,则以下单元格的内容将会是当前行以前的所有行中的姓名合成。 2.选择sheet2表,在A1单元格中输入公式=TRIM(Sheet1!F49),F49为sheet1表中最后一人的姓名合成值,即将所有姓名组合复制到A1单元格中,然后将A1单元格的对齐格式设置为自动换行,水平方向左对齐,垂直方向上对齐,并适当调整A列的宽度。 3.将A1单元格设置为打印区域,通过打印预览与打印可实现单列文本打印效果的观察与输出。 利用这种方法操作的优点是两个单元格的内容间隔可根据需要任意设置。同时,通过操作Excel打印预览中的页边距线,可迅速任意调整页面上下左右边距,达到合理排版的功能,另外,对A1单元格的内容通过选择性粘贴的复制,也可将合成后的具体内容在word中加以排版输出。 用好Excel的双面打印 从节约的角度出发,公司的表格都要求双面打印。但Excel偏偏没有这一功能!怎么办?自己动手添加一个双面打印的按钮吧! 第一步:启动Excel 2003(其他版本请仿照操作),执行工具→宏→Visual Basic编辑器命令,进入Visual Basic编辑状态(如图1)。 第二步:在右侧的工程资源管理器区域中,选中VBAProject(PERNOSAL.XLS)选项,执行插入→模块命令,插入一个新模块(模块1)。 小提示 PERNOSAL.XLS叫做个人宏工作簿,第一次使用宏功能时,需要进入下述操作,添加个人宏工作簿:在Excel中,执行工具→宏→录制新宏命令,打开录制新宏对话框(如图2),输入一个名称,然后选择将其保存在个人宏工作簿中,确定返回,随便做一下编辑操作,然后按停止录制工具栏上的停止录制按钮,系统即可自动添加个人宏工作簿。 第三步:双击模块1进入代码输入区域,将下述代码输入其中: Sub dy() On Error Resume Next x=ExecuteExcel4Macro(Get.Document(50)) For i=1 To Int(x/2)+1 ActiveWindow.SelectedSheets.PrintOut From:=2*i-1,To:=2*i-1 Next i MsgBox请将打印出的纸张反向装入纸槽中,vbOKOnly,打印另一面 For j=1 To Int(x/2)+1 ActiveW

文档评论(0)

1亿VIP精品文档

相关文档