小小出入库管理系统(2012年12月又作了更新)

zjdh

4738楼附件已更新过

妮是我心

zjdh 发表于 2020-12-8 10:52
4738楼附件已更新过

谢谢老师，非常感谢，这个小小系统非常好用

tony_rico

优秀作品, 跟帖留下足迹, 感谢分享 !

妮是我心

zjdh 发表于 2020-12-7 20:46
管理员密码：9999

老师你好，现在是预览打印，我的电脑上有两台打印机，我的出入库只用针式打印机，别的文件全部用另一台卡打印，我所以我想出入库这个表格指定打印机“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
求帮改！！！

妮是我心

你好！老师，我电脑上有两台打印机，出人库只用“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
这是原代码，求帮改指定打印机打印。

妮是我心

老师，我想实现指定打印机打印，求帮改。
指定“Send To OneNote 2016”

妮是我心

我晕？电脑延迟发了这么多

kabudaa

收藏收藏收藏

zjdh

妮是我心 发表于 2020-12-16 09:23
老师，我想实现指定打印机打印，求帮改。
指定“Send To OneNote 2016”

在ThisWorkbook中添加宏
Private Sub Workbook_Open()
   Dim objNetwork As Object
   Set objNetwork = CreateObject("WScript.Network")
   objNetwork.SetDefaultPrinter "Send To OneNote 2016"   '指定打印机
   SetPrinter = True  
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim objNetwork As Object
Set objNetwork = CreateObject("WScript.Network")
objNetwork.SetDefaultPrinter "默认打印机"
SetPrinter = True
ThisWorkbook.Save
End Sub
注：默认打印机按你的默认打印机名称。

fjdk22

不错的出入管理系统，感谢分享