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

妮是我心

你好！老师，我电脑上有两台打印机，出人库只用“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

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

妮是我心

zjdh 发表于 2020-12-17 11:58
在ThisWorkbook中添加宏
Private Sub Workbook_Open()
   Dim objNetwork As Object

老师 我复制改了，但是不对，我不知怎么做。
能否帮忙在excel中改好，谢谢！！
默认打印机为“Send To OneNote 2017”

妮是我心

zjdh 发表于 2020-12-17 11:58
在ThisWorkbook中添加宏
Private Sub Workbook_Open()
   Dim objNetwork As Object

求帮助

zjdh

妮是我心 发表于 2020-12-21 09:05
求帮助

我那是改变默认打印机的语句，若在你的系统中行不通，可在改为在打印宏中指定打印机:
ActiveSheet.PrintOut Copies:=1, ActivePrinter:="Send To OneNote 2016"

爱吃橙子

zjdh 发表于 2020-11-17 10:46
另若以重量为计量单位可直接将金额改为重量。

楼主，您好！我想把打印的字调稍微大一点点，在录入页面调了，电脑显示的是变大了，但打印的还是一样。请问在哪里调整？