|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
老师你好,现在是预览打印,我的电脑上有两台打印机,我的出入库只用针式打印机,别的文件全部用另一台卡打印,我所以我想出入库这个表格指定打印机“Send To OneNote 2016”打印。
这是原代码
Sub 打印并记录()
With Sheets("单据录入")
.Unprotect 123
.Range("A2:K15").Interior.ColorIndex = 2 '全部颜色改为白色
.Shapes("Text Box 580").Visible = False '矩形改变底色不会,就隐藏
.PrintPreview '浏览
.Range("A2:K15").Interior.ColorIndex = 34 '恢复底色(浅蓝色)
.Range("D3:F3,J3,C6:C11,F6:G11,J6:J11,D14,F14:G14,J14").Interior.ColorIndex = 15 '(淡黄色)
.Shapes("Text Box 580").Visible = True
.Protect 123
End With
baocun
End Sub
求帮改!!!
|
|