重新修改的有条件打印预览宏代码：
Sub 打印预览()
Sheets("Sheet4")。Select
If Sheets("Sheet1")。[B7] <> "" Then A = 1
If Sheets("Sheet2")。
[B7] <> "" Then B = 2
If Sheets("Sheet3")。[B7] <> "" Then C = 3
D = A + B + C
If D = 0 Then MsgBox "没有满足条件的打印预览"
If D = 6 Then
Sheets(Array("Sheet1", "Sheet2", "Sheet3"))。
Select
Sheets("Sheet1")。Activate
ActiveWindow。SelectedSheets。PrintPreview
End If
If D = 5 Then
Sheets(Array("Sheet2", "Sheet3"))。
Select
Sheets("Sheet2")。Activate
ActiveWindow。SelectedSheets。PrintPreview
End If
If D = 4 Then
Sheets(Array("Sheet1", "Sheet3"))。
Select
Sheets("Sheet1")。Activate
ActiveWindow。SelectedSheets。PrintPreview
End If
If D = 3 And A = 0 Then
Sheets(Array("Sheet3"))。
Select
Sheets("Sheet3")。Activate
ActiveWindow。SelectedSheets。PrintPreview
End If
If D = 3 And A <> 0 Then
Sheets(Array("Sheet1", "sheet2"))。
Select
Sheets("Sheet1")。Activate
ActiveWindow。SelectedSheets。PrintPreview
End If
If D = 2 Then
Sheets(Array("sheet2"))。
Select
Sheets("Sheet2")。Activate
ActiveWindow。SelectedSheets。PrintPreview
End If
If D = 1 Then
Sheets(Array("sheet1"))。
Select
Sheets("Sheet1")。Activate
ActiveWindow。SelectedSheets。PrintPreview
End If
Sheets("Sheet4")。Select
Range("D1")。
Select
End Sub。
如果我的理解没错的话，你的意思是说在“Sheet1:Sheet3”这三张表中， 1、如果任意一张表中的B7单元格为空值时，不预览自己而预览其他的表； 2、如果两张表中的B7单元格都为空时，则预览B7单元格不为空的那张表； 3、如果三张表中的B7单元格都为空时，则一张表也不预览。
如果是这样的话，将原代码中的“Sheets("sheet1")。Activate”去掉，再加上一个没有预览的提示就好了！ Sub Macro1() Dim i%, strTemp$, arrTemp For i = 1 To 3 If Sheets("sheet" & i)。
[B7] <> "" Then strTemp = strTemp & ",sheet" & i Next If strTemp = "" Then MsgBox "对不起，没有可预览的表！", vbCritical, "温馨提示：" Exit Sub End If arrTemp = Split(Right(strTemp, Len(strTemp) - 1), ",") Sheets(arrTemp)。
Select ActiveWindow。SelectedSheets。PrintPreview End Sub 效果如附件所示：。
答：早上好。我很高兴能够在这里为这次采访。 首先请允许我自我介绍。我的名字是yangwanzhen 。我已完成我的本科教育在甘肃农业大学，主修在资源环境与城市规划管...详情>>
问：怎样用Camtasia Studio v2.0.3来制作媒体
答：这个软件有使用向导的，你新建一个文件，然后照着他的说明一步一步的走下去，就知道怎么用了，这个软件太小了，网上跟本找不到教程的，如果你确实还是不会的话，找个懂电脑...详情>>
