EXCEL中隐藏部分列后打印出的可见列部分最右边框残缺不全。

我在VB程序中往一个EXCEL表填写完数据后，想将无数据的多余列隐藏：
xlsheet.range(xlsheet.Columns(col_noview), xlsheet.Columns(256)).Hidden = True'--------隐藏EXCEL表中多余的列 xlsheet.