求大虾写一个批量打印成绩单的宏

xyc67012

要求见附件，不胜感谢。

grf1973

请看附件。

xyc67012

grf1973 发表于 2016-6-16 09:05
请看附件。

昨晚没表达清楚吧。我在网上找了一个编码，复制到我这份表上来了，但宏运行不了，你能帮我改一下吗？谢谢高手了。

xyc67012

Dim i%, ii%, a%
    i = Application.InputBox(Prompt:="第几班开始打印?", Default:=196, Type:=1)
    ii = Application.InputBox(Prompt:="到第几班为止?", Default:=219, Type:=1)
    For a = i To ii
        Sheets("打印").Range("R1") = Application.Text(a, "nmb1") （可能这里有问题）
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
                IgnorePrintAreas:=False

xyc67012

Dim i%, ii%, a%
    i = Application.InputBox(Prompt:="第几班开始打印?", Default:=196, Type:=1)
    ii = Application.InputBox(Prompt:="到第几班为止?", Default:=219, Type:=1)
    For a = i To ii
        Sheets("打印").Range("R1") = Application.Text(a, "nmb1") 可能是这里有问题，帮我看下，谢谢呐。
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
                IgnorePrintAreas:=False

grf1973

你试过2楼代码没有？

grf1973

估计你是这样的意思。实际打印中把代码中的printpreview 改成printout