Question

我有一个模板，用户填写该模板以自动填充到需要打印的法律文档中。一旦打印出第一个“单元”文档，用户就会删除该行，显示下一个单元以自动填充必要的表单，依此类推。基本上我试图消除打印和删除行的手动步骤，所以我想知道如何创建一个宏来打印表单，一旦打印删除行并移动到下一个单位循环，直到没有更多的单位。任何方向都会有所帮助！

Answer 1

这是一些模糊的方向......
最好先录制宏并查看VBA编辑器中写入模块的内容（ Alt + F11 ）。不会有很多额外的绒毛，并且不会出现任何形式的循环。你应该能够修剪它并添加一个循环来做你想要的。它可能看起来像这样：

Sub PrintAllOfMyStuff()

    ThisWorkbook.Sheets("MySheetOfRows").Range("A1").Select

    Do While ActiveCell.Value <> ""
        ThisWorkbook.Sheets("MySheetToPrint").PrintOut
        ActiveCell.EntireRow.Delete (xlUp)
    Loop

End Sub

VBA打印工作表并删除所选行

1 个答案: