打印excel中的单列表格

《打印excel中的单列表格》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、打印Excel中的单列表格        如果只打印Excel中的一个单列表格，相信有的朋友一定会为此而挠头，由于在Excel的页面设置中没有“分栏”这一功能，所以对于长长的一列在打印时就不太好办了，不过，利用Excel的同门师兄word，就可以将要这一列的内容横向排列、逐行显示，具体的做法如下：        打开表格，复制要打印的某一列，然后点击菜单中的“文件→新建...→工作簿”，然后将复制的某一列粘贴到该工作簿的第一列中，点击“文件”下的“保存”，在弹出的保存窗口中，将“保存类型”选择为“文本文件（制表符分隔）（*.txt）”，然后点击“保存”，不要管弹出提示，点“确定

2、”或“是”就把这个工作簿保存为“book1.txt”了。        下面打开word，点击菜单中的“文件→打开...”，在弹出的打开窗口中，将文件类型改为“所有文件(*.*)”，然后选择打开刚才保存的“book1.txt”，同样“book1.txt”在word窗口内显示的也是长长的一列文字，如果你的word没有将“视图”下的“显示段落标记”前的对勾去掉，你就会发现，在每一行的后面都会有一个段落标记，只要将这个段落标记替换成几个空格，不就可以横向显示这些文字了！对，就是这个意思！        下面点击“编辑”下的“替换”，在弹出的“查找和替换”窗口中，点“高级”展开高级查找

3、的菜单，点击其中的“特殊字符”，在弹出的菜单中选择“段落标记”，这样在“查找内容”项内显示的就是“^p”，当然也可以直接“查找内容”中输入“^P”，然后在“替换为”项内输入几个空格，具体数量视要打印的内容而定，最后点击“全部替换”，等出现替换完成提示后，再看word中的原本单列显示的文本，是不是已变成逐行显示了，下面只要再对这些文字进行一下调整、修饰，加上标题，就可以打印了。         Excel中单列表格的打印方法      《中国电脑教育报》2004年第23期E9版刊登了“打印Excel中的单列表格”一文，介绍利用Excel的文件另存与word的查找替换与排版实现Ex

4、cel中的单列表格的打印方法。其实利用Excel自身的公式操作，也可轻松实现单列表格文本的合成打印。以横向排列，逐行显示的“学生姓名”列为例，具体操作方法如下： 　　1. 先在当前表sheet1的适当位置选择一列作为数据合成列，如F列，并在其下第2个单元格F2中输入公式“=F1&&" "&&B2”，(公式表示在二个姓名之间空2格)则F2中产生第一个姓名，选择F2，利用向下拖动填充句柄的方法将F2中公式复制到以下单元格中，直到最后一行，则以下单元格的内容将会是当前行以前的所有行中的姓名合成。 　　2. 选择sheet2表，在A1单元格中输入公式“=TRIM(Sheet1!F49)

5、”，F49为sheet1表中最后一人的姓名合成值，即将所有姓名组合复制到A1单元格中，然后将A1单元格的对齐格式设置为自动换行，水平方向左对齐，垂直方向上对齐，并适当调整A列的宽度。 　　3. 将A1单元格设置为打印区域，通过打印预览与打印可实现单列文本打印效果的观察与输出。 　　利用这种方法操作的优点是两个单元格的内容间隔可根据需要任意设置。同时，通过操作Excel打印预览中的页边距线，可迅速任意调整页面上下左右边距，达到合理排版的功能，另外，对A1单元格的内容通过选择性粘贴的复制，也可将合成后的具体内容在word中加以排版输出。        用好Excel的双面打印   

6、    从节约的角度出发，公司的表格都要求双面打印。但Excel偏偏没有这一功能！怎么办？自己动手添加一个“双面打印”的按钮吧！编辑宏第一步:启动Excel 2003(其他版本请仿照操作)，执行“工具→宏→Visual Basic编辑器”命令，进入Visual Basic编辑状态(如图1)。         第二步:在右侧的“工程资源管理器”区域中，选中“VBAProject(PERNOSAL.XLS)”选项，执行“插入→模块”命令，插入一个新模块(模块1)。小提示“PERNOSAL.XLS”叫做“个人宏工作簿”，第一次使用宏功能时，需要进入下述操作，添加“个人宏工作簿”:在E

7、xcel中，执行“工具→宏→录制新宏”命令，打开“录制新宏”对话框(如图2)，输入一个名称，然后选择将其“保存在”“个人宏工作簿”中，确定返回，随便做一下编辑操作，然后按“停止录制”工具栏上的“停止录制”按钮，系统即可自动添加“个人宏工作簿”。      第三步:双击“模块1”进入代码输入区域，将下述代码输入其中:Sub dy()On Error Resume Nextx = ExecuteExcel4Macro("Get.Document(50)")For i = 1 To Int(x /