Question

如何通过EXCEL宏功能实现打印选定内容

我想在“名册”里录入需要变动的人员信息，然后选上录入好的一行或多行，点“打印选定个人审批表”，就会自动套用“审批表”打印出来，我以前有别的格式的表格是有这个功能，只知道是用宏功能做的。因为不会做，所以求助高手帮忙。





Answer 1

通过EXCEL宏功能实现打印选定内容的具体步骤如下：

1、首先打开需要编辑的Excel表格，进入到编辑页面中，打开开发工具中的“插入”，选择第一个图标。

2、然后框选出一个按钮，右键单击该按钮选择打开“指定宏”。

3、然后在弹出来的窗口中点击打开“编辑”选项。

4、然后在弹出来的窗口中点击输入代码如下： 

Sub 按钮8_Click()  

For i = Range('I1') To Range('I2')  

Range('H1') = i  

ActiveSheet.PrintOut  

Next  

End Sub  输完后，单击按钮即可。

Answer 2

通过EXCEL宏功能实现打印选定内容的步骤如下：

1、首先我们先在桌面找到Excel这个软件并打开。

2、然后我们再进入页面布局这个选项卡。

3、我们可以看到有一个选项叫做打印区域。

4、之后我们点击设置打印区域这个选项。

5、然后我们可以选择需要打印的区域。

6、然后我们再点击打印这个选项，可以看到打印选项。

7、把打印选定工作表改为选定区域，然后预览一下是不是自己刚才选择的需要打印的区域就可以打印了。

Answer 3

这是个比较复杂的过程，思路如下:
1）审批表中，将名册中待打印行的行号放在A1单元格，通过offset函数将各项需打印的数据显示到标准表的格式中。比如C5要填姓名，则=offset(名册!$A$1,A1-1,1), G5要填职务，则=offset(名册!$A$1,A1-1,2)
2）通过代码更改审批表!A1的值，打印名册中的对应单行或连续行的数据。

具体步骤：
1）在审批表中设置打印区域
2）录制一个宏，打印审批表页，保存下来，起个名比如叫PrintForm，以便在以下代码中调用
3）设置审批表中的公式：A1输入个测试值9；按上面提到的方法用offset函数设置每个单元格的公式，“=offset(名册!$A$1,A1-1,”这部分都是一样的，只有第3个参数（偏移列数）不同。在名册中对应第n列，这参数就填n-1的值。比如姓名在第2列，则填1；职务在第3列，则填2。
4）编一个宏，如下：
Sub PrintAll()
Dim rng As Range, R As Integer, I As Integer, C As Integer
Set rng = Selection
R = rng.Row
C = rng.Rows.Count
For I = 1 To C
Sheets("审批表").Range("A1").Value = R + I - 1
Calculate
PrintForm
Next
End Sub
5）新建个按钮，把上面的宏指定给这个按钮。
OK，现在，选上待打印区域（连续选择，不能隔行选择），按按钮就可以打印了

追问

我企鹅陆陆伍零叁肆叁柒，我想把表格给你传过去，然后你帮我做一下好吗？麻烦你了，谢谢

追答

发我邮箱吧，1_jason@sohu.com
我没企鹅
另外，你用的是2003版还是2007以上版的excel？

追问

已经发过去了，谢谢了。

追答

已发回，请查收

请问收到了么？