0

我想知道是否有可能拥有一个填充页面并打印它然后从列中转到下一个的宏，依此类推。

数字将在 Sheet2、C2 和 C4 上命名。这是一个模板，因此它应该删除空白，然后从 sheet1 的列表中刷新下一个数字和名称。

唯一的问题是可以设置它以便我可以选择起始单元格还是必须一次打印所有行？假设我今天只想打印 20 个，然后明天再打印 50 个可以完成....

目前有很多手动输入，所以任何帮助都会很棒。

我在下面有一个示例（名称已更改），该列最多可以有 500 个名称，需要打印以放置在每个文件夹中。下面正确输入数字我只是无法弄清楚如何在 sheet1 中包含单元格 D2 中的名称

Sub PrintLoop()
    Dim c As Range, LR As Long
    Application.ScreenUpdating = False
    LR = Sheets("sheet1").Range("C" & Rows.Count).End(xlUp).Row
    For Each c In Sheets("sheet1").Range("C2:C" & LR)
        Sheets("sheet2").Range("C2").Value = c.Value
        Sheets("sheet2").PrintPreview
    Next c
    Application.ScreenUpdating = True
End Sub
4

1 回答 1

0

在运行之前只选择要打印的行...

Sub PrintLoop()

    Dim rw As Range

    Application.ScreenUpdating = False

    For Each rw In Selection.Rows
        With Sheets("sheet2")
            .Range("C2").Value = rw.EntireRow.Cells(3).Value
            .Range("C4").Value = rw.EntireRow.Cells(4).Value
            .PrintPreview
            '.PrintOut From:=1, To:=1, Copies:=1
        End With
    Next rw

    Application.ScreenUpdating = True

End Sub
于 2012-07-16T23:33:23.863 回答