[求助]分栏打印问题

雨笛

在word中我们可以把一个页面分成几栏，但在Excel中好象就没有这种功能。

我现在就想用这种功能，原因是我现在有一个表里有近万行数据，但每行只有序号和姓名两列，现在想把这些内容打印出来，能不能在一页上把数据分三栏打印出来（注意：请不要提出那种复制、粘贴的办法，我可弄不起）。

请高手帮下忙啊！！！！

Dghost

可用类似的代码：

   For mRow = 1 To n
        Worksheets(mWorkshop).Cells(mRow1, mCol1) = Worksheets(mWorkshop).Cells(mRow2, mCol2)

        ......
     Next mRow