请问：如何修改以下代码、有重复阻止打印、无重复进行打印

feiaoli

起了个早、O(∩_∩)O~ 请教大师、
以下代码是放在 ThisWorkbook 的代码、点击工具栏打印可以打印的同时保存数据到另一表格
如果是重复保存  点击工具栏打印可以阻止保存但是无法阻止打印、

请问：如何修改以下代码、只在 “支票表格”  内判断与  “打印记录” 表格内 有重复停止打印、无重复进行打印支票表格内数据？
                                         但是不阻止其他表格  （只有 “打印记录”  表格）的打印程序
不知道说的是不是明白？！

          或者 在 支票表格内 工具栏打印功能失效也行（其他表格不要失效打印）、我有打印的宏。


Private Sub Workbook_BeforePrint(Cancel As Boolean) '另加的打印事件
'-------------------------------------------------打印提醒-----------------------------------------------------
If Range("C21") = "" Then MsgBox "请确认-日 期 年": Exit Sub
If Range("C22") = "" Then MsgBox "请确认-日 期 月": Exit Sub
If Range("C23") = "" Then MsgBox "请确认-日 期 日": Exit Sub
If Range("C24") = "" Then MsgBox "请确认-金    额": Exit Sub
If Range("C25") = "" Then MsgBox "请确认-用    途": Exit Sub
If Range("C26") = "" Then MsgBox "请确认-密    码": Exit Sub
If Range("C28") = "" Then MsgBox "请确认-票据编号": Exit Sub
If Range("C27") = "" Then MsgBox "请确认-附加信息": Exit Sub
If Range("C19") = "" Then MsgBox "请确认-客户名称": Exit Sub
Set Rng = Sheets("打印记录").[B2:B65536].Find(Sheets("支票").[C28], , , xlWhole)
If Not Rng Is Nothing Then MsgBox "打印记录已经有相同【支票编号】的数据了！", , "重号提示": Exit Sub
'-------------------------------------------------打印提醒-----------------------------------------------------
If ActiveSheet.Name <> "支票" Then Exit Sub
If MsgBox("是否保存打印数据?", vbYesNo, "系统提示") = vbYes Then
With Sheets("打印记录")
i = .Range("B65536").End(3).Row + 1
.Range("B" & i) = Sheets("支票").[C28]                                                    '支票号码  "转" &
.Range("C" & i) = Sheets("支票").[C21] & "-" & Sheets("支票").[C22] & "-" & Sheets("支票").[C23] '付款日期
.Range("D" & i) = Sheets("支票").[C19]                                                           '收款单位
.Range("E" & i) = Sheets("支票").[C24]                                                           '金额
.Range("F" & i) = Sheets("支票").[C25]                                                           '用途
.Range("G" & i) = Sheets("支票").[C26]                                                           '支付密码
.Range("H" & i) = Sheets("支票").[C27]                                                           '存根附加信息
.Range("I" & i) = Sheets("支票").[D18]                                                           '出票账号        应该是C18、为了支票不打印账号改在D18
.Range("J" & i) = Sheets("支票").[D20]                                                           '付款行名称      应该是C20、为了支票不打印行名改在D20
End With
End If
End Sub

是不是提的问题幼稚了、还是老师不在家、、、、、、、、、、、、、、、、、、、、

feiaoli

木有老师给意见吗？

feiaoli

是不是提的问题太幼稚了、、、、、、、、、、、

还是老师不在家、、、、、、、、、、、、、、、、、、