VBA打印难题

来源：百度知道 编辑：UC知道 时间：2024/06/07 17:05:03
我要打印第一个工作表到倒数第4个工作表,也就是最后面的3个工作表不用打印.
如何写一个打印代码,做到
1.先判断 1 to count -3 这些工作表的A1单元格是不是空值,不为空则打印这个工作表,为空值则不打印.
2.打印之前弹出打印确认对话框,可以选择取消打印.
空有想法,没法实现,好无奈!

Sub 根据内容选择性打印()
For i = 1 To Application.Worksheets.Count - 3
With Sheets(i)
If .[a1] <> "" Then
.Select
If MsgBox("是否打印工作表:" & .Name, vbYesNo) = vbYes Then
.PrintOut
End If
End If
End With
Next
End Sub