打印word选中的区域，用vba写出来

Sub PrintSelectedArea() '获取选中区域 Dim selectedRange As Range Set selectedRange = Selection.Range '判断是否有选中区域 If selectedRange Is Nothing Then MsgBox "请先选择要打印的区域！", vbExclamation, "提示" Exit Sub End If '设置打印区域 ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Pages:=selectedRange End Sub 注意：这段代码只能打印选中的文本，如果选中的是表格或图片等其他对象，则无法打印。