如何将圈释无效数据打印出来

楼主 zm0115	问题很简单，我们知道，圈释无效数据的那些“圈圈”在清除、保存会自动消失。或打印时无法打印出来。现在的问题是如何将圈释无效数据打印出来。要确保可以通过打印机打印到纸上的。问题很简单，就借用《千寻千解技巧136 如何把不符合要求的数据找出来》的附件。（如果不合适，请版主告知我）方法不限，暂定开贴日12月底。打印圈释无效的数据.rar 开贴：题目很简单，快点开贴。：）。就是复制，选择性粘贴为图片，或者复制-复制为图片。即可打印。注：利用照相机功能是不可以打印出圈圈的，至少我在2010上没有试验成功，看到荣版给出的答案是照相机，不知道2003是否可行。
2楼 gouweicao78	1、数据有效性→圈释无效数据 2、选择单元格区域→复制→在原处粘贴为图片 3、设置图片填充色为白色，不透明。即可打印。
3楼 biaotiger1	不知道这样行不行？取消勾选“网格线”→选取比数据区域多一行多一列的区域→复制→选择性粘贴→图片。
4楼 nothingwmm	请看附件。 Sub 宏1() ' ' 宏1 宏 ' ' Range("A1:F10").Select Range("F10").Activate ActiveSheet.CircleInvalid Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture ActiveSheet.PasteSpecial Format:="图片(增强型图元文件)", Link:=False, DisplayAsIcon _ :=False Selection.ShapeRange.IncrementTop 162 Selection.ClearContents ActiveSheet.Shapes.Range(Array("Picture 11")).Select End Sub 成功.gif
5楼 biaotiger1	不多选一行一列的话，红圈复制不完整。
6楼 Zaezhong	我的答案比较普通，是将带圈的数据复制为图片后打印，有了与原来的数据断开链接后的图片后就可以按照对象的打印方式打印图片，也就有了圈圈，如果要求将原始区域的数据打印，可以将最后完成的图片覆盖在数据区域12.gif 疑难 136.rar
7楼 JLxiangwei	1、单击菜单栏上的“工具”按钮→勾选“公式审核“，调出“公式审核”工具栏。 2、单击“圈释无效数据”按钮。 3、选择表格→按住Shift键不放单击菜单栏上的“编辑”按钮→选择“复制图片”→确定。 4、单击菜单栏上的“编辑”按钮→选择粘贴图片→把原数据表删除→调整一下复制的数据表的位置就行了。
8楼水星钓鱼	单位只有03的用03的做下：步骤1：选择B3:F10单元格区域，调出“公式审核”工具栏，圈释无效数据步骤2：选择B3:F10单元格区域，Ctrl+C两次调出剪贴板，粘贴剪贴板的内容到B3:F10单元格区域，“圈圈”变成了对象步骤3：F5定位所有对象，设置所有对象的属性为“打印对象”，即可打印所有的圈圈。
9楼 mn860429
10楼 raulerini	用复制图片的方法不知道行不行。 Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim rng As Range Set rng = Sheets(1).UsedRange Sheet1.CircleInvalid rng.CopyPicture Appearance:=xlScreen, Format:=xlPicture Sheet1.ClearCircles With Sheets.Add(before:=Sheets(1)) .Paste .PrintOut End With Sheets(1).Delete Set rng = Nothing End Sub
11楼 rongjun	利用照相机功能，拍照然后打印。
12楼涅磐86970	条件格式 =not(ABS(B3-5)<=0.08) 我是不是想的太简单了- -
13楼 xpm130	调出"照相机"工具,选中相应区域,卡嚓一下,拖到原数据区域,便可打印了. 不懂得如何设置仅作者与楼主可见,^_^
14楼 su11wei18	选择测试表—数据—数据工具—数据有效性—圈释无效数据开始—剪贴板—复制为图片—粘贴设置图片格式—属性—打印对象
15楼 rongjun	照相机和复制粘贴为图片应该是一样的效果，两种不同的方式将数据转为图片而已。