打印前加上代码
Tables("表名").SetHeaderRowHeight(0)
打印后,写
Tables("表名").SetHeaderRowHeight(20)
http://www.foxtable.com/webhelp/scr/1548.htm