作者:乔山办公网日期:
返回目录:excel表格制作
Sub 自动抄筛百选度打问印答()
Dim d As Object
Set d = CreateObject("scripting.Dictionary")
Dim c As Range, key
i = 2
Do
i = i + 1
Set c = Cells(i, 6)
d(c.Value) = ""
Loop Until c = ""
key = d.Keys
For x = 0 To d.Count
ActiveSheet.UsedRange.AutoFilter Field:=6, Criteria1:=key(x)
ActiveSheet.PrintOut
Next
End Sub
你的打印格式应该都是一样的,你录制一个设置打印格式的宏,然后放到这里就行:
'你录制的宏
[a1].PasteSpecial Paste:=xlPasteColumnWidths '列宽
Next i
1、以excel2010版本为例,如下图打开要打印的文档后,点击页面左上角的“文件”,在弹出框里点击“打印”;
2、在右边的打印设置里,点击“打印活动工作表”右边的倒zhidao三角图标;
3、在弹出框里选择“打印整个工作簿”,则可以实现多个工作表连续打印了。
4、然后在里面点击(打印)选项,如图所示。
5、然后在打印内内容窗口,在打印范围中勾选(整个工作簿),如图所示。
6、然后选择打印份数、预览容后,点击(确定)按钮,如图所示。
7、最后Excel就开始连续打印多个工作表,如图所示。
可以。
1、如图所示是一张考勤表,想将zhidao100%出勤的课所在隐藏,然后对剩余的行进行打印。
2、为了选中百分之百出出勤行,然后隐藏。可以版先选中红框所示区域,然后点击菜单栏数据,筛选 ,自动筛选。
3、在自定义中设置将不等于1的单元格筛选出来,点击确定权。
4、点击确定之后 观察刚才筛选的结果已经将百分之百的数据所在行隐藏了起来,这样就可以打印了。