自动打印sheet1,然后删除sheet2第1行接着自动打印sheet1

myweikill

自动打印sheet1,然后删除sheet2第1行接着自动打印sheet1
各位大神，最近小弟遇到一个问题，就是sheet1的数据都要根据sheet2第一行的数据来填上去的，但是要打印出来，由于sheet2有1000多行基础数据，一行行删除再打sheet1 工作量太大了，请各位帮忙搞一个自动打印sheet1,然后删除sheet2第1行接着自动打印sheet1的编码可以吗，谢谢了！

风1234565

你可以将sheet1做成模板，在做个宏填模板打印，以前做过一个

gta

看不明白的是sheet1的打印范围是哪几个单元格

gta

按照我的理解，可以不用删除sheet2的数据就可以达到效果，抢参考代码
Private Sub CommandButton1_Click()
Dim Myr, Myprt, arr
    Myr = Sheet2.Cells(Sheet2.Rows.Count, 1).End(xlUp).Row
    MsgBox Myr
    Myprt = "发送至 OneNote 2013 在 nul:"  '更改为自己需要的打印机
    Application.ActivePrinter = Myprt
For i = 1 To Myr
      arr = Sheet2("A" & i & ":D" & i)
      Range("B1:B4") = Application.Transpose(arr)
      Range("B1:B4").PrintOut
Next i
End Sub

myweikill

风1234565 发表于 2018-2-3 20:06
你可以将sheet1做成模板，在做个宏填模板打印，以前做过一个

好的，我试试，谢谢