返回目录：excel表格制作
1虚拟打印机
doPDF是一个免费的PDF转换器,可同时运用于商业和个人,doPDF把自己安装为一个打印机驱动,允许从任意一个有打印输出的Windows程序中打印,还包含缩放,质量定义和页面大小定义
注意事项：doPDF下载安装前请确认系统的打印服务“Print Spooler”不是禁用状态！某些优化软件会禁用打印服务而导致安装失败！
2缩放页面打印
平常打印Excel是常常用到打印预览，以及打印预览中的页面缩放如下图，但是采用此方法虽然能满足打印设置需求，但使用还不够直观；
更直观的设置方法如下，首先将Excel预览方式切换到分页预览，然后在页面布局>调整为合适大小的选项下进行调整打印页面，在下面阅览框中会清晰显示页面分布（若想还原缩放将比例调整为100即可还原）；
3选定区域打印
若只打印excel表中某一部分，则可以选择excel中某部分单元格，然后选择页面布局>打印区域>设置打印区域；
此时在打印预览中即会显示仅设置打印后的区域；
4每页打印标题
在Excel中新建好标题行，然后选择页面布局>打印标题，在打开的页面设置对话框，在顶端标题行后面单击设置按钮，选择标题行即可；
此时在打印预览中即可看到每页都会自动打印标题；
5不打印图形
一般黑白打印机打印图像效果并不理想，所以有时候并不需要打印excel文件中的图像，除了在打印前手动去除所有图像方法外可以通过简单设置快速实现不输出图像；
6双面打印
Sub aTry()
Dim i%, Ps%
Ps = ExecuteExcel4Macro("GET.DOCUMENT(50)") '总页数
MsgBox "现在打印奇数页,按确定开始."
For i = 1 To Ps Step 2
activesheet.PrintOut from:=i, To:=i
Next i
MsgBox "现在打印偶数页,按确定开始."
For i = 2 To Ps Step 2
activesheet.PrintOut from:=i, To:=i
Next i
End Sub
7固定行数打印
Sub 分页()
Dim i, k As Integer
k = Range("a65536").End(xlUp).Row
For i = 4 To k
If i Mod 20 = 0 Then '当20行 分页
Cells(i + 1, 1).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
End If
Next
End Sub