Question

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

这个数字会出现在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

Answer 1

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

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

从同一页面打印两个单元格

1 个答案: