EXCEL用VBA实现当某单元格满足指定条件时，打印指定区域？

比如图中黄色的C4单元格为非空值时，打印B4:O23区域，如空值则不打印。并需要同时设置多个区块执行类似的要求。

第1个回答 2021-08-25

If Cells(4, 3) <> "" Then
ActiveSheet.PageSetup.PrintArea = "$B$4:$O$23"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End If追问

感谢，目前可以解决一个区域打印问题，但是如何实现多区域打印呢？也就是表格有多个区域要实现满足非空值则执行打印指定区域的要求？

追答

你直接复制粘贴一堆把单元格改一下不就好了(就加粗的地方有变动)

If [C4] <> "" Then
ActiveSheet.PageSetup.PrintArea = "$B$4:$O$23"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End If

If [R4] <> "" Then
ActiveSheet.PageSetup.PrintArea = "$Q$4:$AD$23"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End If

If [C25] <> "" Then
ActiveSheet.PageSetup.PrintArea = "$B$25:$O$44"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End If

If [R25] <> "" Then
ActiveSheet.PageSetup.PrintArea = "$Q$25:$AD$44"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
End If

本回答被提问者采纳

第2个回答 2021-08-26

Sub 打印()
If [C4] <> "" Then
Worksheets("Sheet1").PageSetup.PrintArea = "$B$4:$O$23"
Worksheets("Sheet1").PrintOut
End If
End Sub追问

感谢，目前可以解决一个区域打印问题，但是如何实现多区域打印呢？也就是表格有多个区域要实现满足非空值则执行打印指定区域的要求？

追答

多个区域，是依次打印？
就在END IF
前面继续写其他区域
Worksheets("Sheet1").PageSetup.PrintArea = "$F$4:$Z$23"
Worksheets("Sheet1").PrintOut

相似回答

excel怎么用vba实现条件打印,例如检测到A1单元个有内容则打印A1:D10...答：主要代码如下：（假设A1有内容为A）if range("A1")="A" then Range("$A$1:$D$10").PrintOut else Range("$A$15:$D$30").PrintOut end if

请教各位大师帮忙!!!EXCEL用VBA按选定有数据的单元格并按选择区域打印...答：0).Select Else flag = True Exit Do End IfLoopSelection.End(xlToLeft).Selectrow_last = ActiveCell.RowRange(Cells(1, 1), Cells(row_last, 1)).Select Selection.PrintOut Copies:=1End Sub

在excel中如何用VBA对指定单元格区域打印,求具体代码答：方法1：先用PrintArea 设置打印区域，然后再打印。这种设置将会保存到EXCEL文件中。比如：Worksheets("Sheet1").PageSetup.PrintArea = "$A$1:$C$5"Worksheets("Sheet1").PrintOut 方法2：直接打印指定区域，而不修改打印区域设置。比如 Worksheets("Sheet1").Range("$A$1:$C$5").PrintOut ...

Excel 怎样用VBA实现自动设定打印区域答：例如设置D8:E13为打印区域的VBA语句为：ActiveSheet.PageSetup.PrintArea = "$D$8:$E$13"

excel 表格vba自动输出符合条件的单元格所在的整行到新的工作表中_百度...答：sub xx()dim x as long x=sheets("newsheet").range("a65536").end(xlup).row()+1 for i 1 to sheet1.range("a65536").end(xlup).row()if 符合条件 then sheet1.rows(i),copy sheets("newsheet").rows(x).select selection.paste x=x+1 endif next i endsub ...

excel vba 如何依次输出某个符合条件的单元格,到另外一张表中:_百度知...答：………获得区域cArea、日期dDate、颜色nColor(通过nColor=ActivateCell.Interior.ColorIndex取值)Sheet2.Activate 定位行号nRow Cells(nRow,3).Activate ActiveCell.Value=cArea Cells(nRow,4).Activate ActiveCell.Value=dDate Cells(nRow,5).Activate ActiveCell.Interior.ColorIndex = nColor ...