求一个宏命令

请高手帮忙修改一下宏命令不

重新修改的有条件打印预览宏代码： 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 Sh...全部

  重新修改的有条件打印预览宏代码： 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。收起