用Excel打印信封

用Excel打印信封 用Excel打印信封 学校要给全校学生的家长发一封信‎‎，可以利用Excel中的学生花名册的 现有资料，设置批量打印信封，具体操作如下(这里只给出关键操作步‎‎ 骤，信封的格式美化等内容‎‎不涉及): 1、 打开学生花名册。图1是名册的局部，A2:I11是数据区域，工作名称 是Sheet1。 2、 打开Sheet2,设置好信封版面，输入固定词。图2是个简单例子，A2、E 3、D5是不变的文字，B2要显示家庭地址，C3要显示家长姓名。 3、 在C3单元格输入公式‎‎:=VLOOKUP(F1，Sheet1!A2:I11,7),B2单元格输 入: =VLOOKUP(F1，Sheet1!A2:I11,9)。上面两个公式只是后面的数字不同，这是要显示的内容在原始资料中的行的第几个‎‎。现在改变F1中编号，B2和C3中的内容跟着改变了。 4、 编辑一个宏，进行批量打印的设置。按下Alt+F11组合键，打开Visual Basic编辑器，在左边选择Sheet2,插入模块，在右边编辑区里输入如‎‎下 代码: Sub dy() On Error Resume Next x = InputBox("请输入打印开始序号:", "打印设置") y = InputBox("请输入打印结束序号:", "打印设置") For i = x To y Cells(1, 6) = i ActiveWindow.SelectedSh‎‎eets.PrintOut From:=1, To:=1, CopIEs:=1, Collate:=True Next i End Sub 代码中的Cells(1,6)=i表示F1在第一行的‎‎第6个单元格。