如何在excel打印表格时,直接输出为图片

宝石山人

各位大侠:
       我打印任意表格时, 需要把该表格作为图像输出, 当小文件时用下列程序可完成

    Sheets(1).Range("A1:" & strCol & iRow).CopyPicture
    With ActiveSheet.ChartObjects.Add(0, 0, w + 2, h + 2).Chart
        .Paste
        .Export "F:\掼蛋成绩公告\" & filName & ".png"
        .Parent.Delete
    End With

      如果是大文件时, 表格则为N页的输出, 如仍按上列操作, 则生成很大的图片, 非本意,
希望: 按每张打印页面来生成相关图片, 请教: 该如何实现?

谢谢赐教!

宝石山人

现在解决了, 办法有点笨:
采用VBA控制局部显示, 仅逐块输出为图片, 缺点在于少了总页码和单页码

Sheets(1).Range("A1:" & strCol & iRow).CopyPicture

利用上面的RANGE, 套上循环和逐图添加文件名

但仍需寻求如何实现 象DOS那样把文件打印输出为图片

请赐教, 谢谢.