确保你有类似Microsoft Office Document Image Writer之类的文件打印机（即不是真实打印机，而是打印成图片之类的文件）。

先自己点菜单的文件，打印，选择打印机（如Microsoft Office Document Image Writer），打印第1页，会提示你选择文件路径并起文件名称（请注意文件的后缀名，如.tif，后面要用）。

然后，同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：

Sub xx()

Dim i As Integer

For i = 2 To (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1)

ActiveSheet.PrintOut i, i, , , , True, , ThisWorkbook.Name & Format(i, ＂000＂) & ＂.tif＂

Next i

End Sub

将粗体部分改为你刚才看的文件后缀名。在此界面下直接按F5运行此宏，开始打印了。