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

妮是我心 · 发表于 2020-12-18 15:03

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

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

妮是我心 · 发表于 2020-12-21 09:05

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

求帮助

zjdh · 发表于 2020-12-21 11:31

本帖最后由 zjdh 于 2020-12-21 11:32 编辑

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

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

爱吃橙子 · 发表于 2020-12-22 17:45

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

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

江苏鑫玥无间 · 发表于 2020-12-23 09:11

谢谢
一直在找合适的

zjdh · 发表于 2020-12-24 12:59

爱吃橙子发表于 2020-12-22 17:45
楼主，您好！我想把打印的字调稍微大一点点，在录入页面调了，电脑显示的是变大了，但打印的还是一样。请 ...

就在打印页面直接调整，打印页面保护密码：123

jyyyj · 发表于 2020-12-25 08:49

本帖最后由 jyyyj 于 2020-12-25 08:50 编辑

楼主：
如果已在电脑桌面打开一个excel文件，然后再打开本管理系统，登陆，就会显示下标越界，关闭越界提示，所有excel文件都消失不见。再打开原excel文件，该文件和本系统又出现，但系统无法使用。必须保证桌面无打开的excel文件时，本系统才能正常使用。先打开本系统，再打开其他文件是可以正常使用的。（windows10系统，excel2013）
不知是否遇到过此问题，能否解决？

15831790807 · 发表于 2020-12-25 09:44

新人学习中，感谢平台，感谢大佬无私提供的资料

yangrui3008 · 发表于 2020-12-25 09:56

大神能增加仓库名称吗？比如说多个分公司，各分公司仓库单独命名，总部操控入库单，需要入在各分公司的账上

zjdh · 发表于 2020-12-26 10:15

jyyyj 发表于 2020-12-25 08:49
楼主：
如果已在电脑桌面打开一个excel文件，然后再打开本管理系统，登陆，就会显示下标越界，关闭越界提 ...

1. 所有excel文件都消失不见，是因为本系统有意隐藏应用程序界面。
2. 你说的“下标越界”情况我这没出现过，可能是你的系统所致。
你可以修改宏，出现越界提示时，点击调试，看哪一句出了问题，
将该句中所有Sheets（***）语句改为：Thisworkbook.Sheets（***）

		自动登录	找回密码
密码			免费注册

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