Call dy End Sub Sub dy() Dim a%, b$, c$, abc$

a = Sheets(\b = Sheets(\

（说明：a即B19单元格，是图5中打印第×页至第×页中的起始页，

b即D19单元格，是终止页。）

If a < b Then a = a + 1

Sheets(\

Call 打印 End If End Sub

Private Sub CommandButton1_Click()

Call 打印 End Sub

输入完成后，保存关闭VBA编辑窗口返回工作表状态。同制作微调按钮一样，制作一个〔打印〕按钮，并指定刚才建立的“打印”宏。将A1:F13所在的单元格区域设定为打印区域，设定打印起止页，按下〔打印〕按钮即可打印了，也可点击微调按钮，查询到相应的打印内容，然后打印当前页。当然其中的图片及按钮不会打印出来。

用公式实现数据分栏打印

成绩公布了，办公室小王又开始忙上了，主任要求她尽快根据表1所示的考试合格人员名单，制作出表2所示的合格人员证书领取花名册。接到任务后，小王经过认真思索，用公式很好地解决了问题。不到十分钟，一份精致的花名册就送到了主任的桌上。下面我们来看

看小王是怎么完成的。

本例实际上是将表1的每1列转换为3列，即将表1表格分成3栏。这样打印时既节约纸张，又美观大方。由于数据量较大，用剪切

复制的办法很显然是行不通的。

图1

从表2可以看到，A2、F2、K2单元格分别引用表1中的A2、A3、A4单元格内容，其他类推。因此，我们可以考虑用单元格引用

函数OFFSET，只要计算出表1中A、B、C列数据单元格参照A2、

B2、C2的偏移量就可以了。

图2

据此分析，在Sheet2表（表2）A2单元格中输入公式“=OFFSET(Sheet1!$A$2,(ROW(A1)-1)*3+MOD(COLUMN(A1)-1,3),0)”， 该公式中“(ROW(A1)-1)*3+MOD(COLUMN(A1)-1,3)”表示参照Sheet1表（表1）B1单元格向下偏移的行数，“3”表示要转换的栏数，

“0”表示列偏移量。同样，在B2和C2单元格分别输入公式“=OFFSET(Sheet1!$B$2,(ROW(A1)-1)*3+MOD(COLUMN(A1)-1,3)

,0)”和

“=OFFSET(Sheet1!$C$2,(ROW(A1)-1)*3+MOD(COLUMN(A1)-1,3

),0)”。

小提示：1. 正确理解公式中单元格相对引用、绝对引用和混合引用的概念，千万不能混淆。2. 公式中的“3”表示要转换的栏数，如

果将数据分成N栏，则只要将数字3改为N就可以了。

公式输入完成后，选中A2:C2数据区域，分别将公式复制到

F2:H2及K2:M2区域，最后选中A2:M2并向下拖动复制到相应区域。在A1:N1数据区域输入字段名称就可以了，数据格式与表2略有区别，我们只要选中并复制数据区域，执行“编辑→选择性粘贴”命令，在弹出的“选择性粘贴”对话框中选定“数字”选项，删除公式后，再作

适当操作就可以了。 用Excel也能打印海报

平常办公中偶尔会需要打印一些标语、海报等A3、A2甚至更大幅面的文件，这靠我们办公室常用的A4打印机显然无法直接打印。该怎么办呢？对此笔者平常都是采用Excel进行打印的。使用Excel可以将A3、A2等大张的图形分割成多页打印，待后再进行拼接粘贴成图，虽说多了一些接缝不过用来应应急也还可以，下面大家

就和笔者一起动作操作吧。

首先启动Excel选中A1单元格，选择“插入/图片/来自文件”，插入我们处理好的图形文件。如果是用word设计的海报，则应选择“插入/对象…/从文件创建”（如图1），点击“浏览”按钮打开保存海报的word文件，确定后将word文件插入工作表中，右击插入的word文件选择剪切，再点击菜单栏的“编辑/选择性粘贴”，选定一种图形格式，如：图片（JPEG），即可把它转换成JPG格式的图形。