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

恒信人才 · 发表于 2020-12-26 15:54

zjdh，下载1583楼的。我的电脑是2019版本的OFFICE,查询时这样的提示，麻烦帮我看下什么原因。

zjdh · 发表于 2020-12-27 13:22

1583楼没有附件，你这好像是4738楼的，应该没问题的，是否由于你的系统控件问题。
到一楼找答案。

恒信人才 · 发表于 2020-12-28 10:20

zjdh 发表于 2020-12-27 13:22
1583楼没有附件，你这好像是4738楼的，应该没问题的，是否由于你的系统控件问题。
到一楼找答案。

一楼中没有答案呀。麻烦楼主再指点一下

jyyyj · 发表于 2020-12-31 10:17

zjdh 发表于 2020-12-26 10:15
1. 所有excel文件都消失不见，是因为本系统有意隐藏应用程序界面。
2. 你说的“下标越界”情况我这没出 ...

谢谢楼主，按楼主提供方法，语句更改为【Thisworkbook.Sheets】后解决了问题。

qmlyc1 · 发表于 2021-1-1 21:10

妮是我心发表于 2020-12-18 15:03
老师我复制改了，但是不对，我不知怎么做。
能否帮忙在excel中改好，谢谢！！
默认打印机为“Send To ...

我没有你这种打印机，未进行测试，你自行测试

qmlyc1 · 发表于 2021-1-1 21:13

妮是我心发表于 2020-12-16 09:03
老师你好，现在是预览打印，我的电脑上有两台打印机，我的出入库只用针式打印机，别的文件全部用另一台卡 ...

自行测试！！！！！！！！！！！！！！

polocx · 发表于 2021-1-6 09:09

下载下来学习一下,谢谢楼主分享。

zjdh · 发表于 2021-1-7 09:52

恒信人才发表于 2020-12-28 10:20
一楼中没有答案呀。麻烦楼主再指点一下

1楼有链接！
http://club.excelhome.net/forum. ... 886&pid=7689161

cuiweiliuliyue · 发表于 2021-1-8 16:00

很好,留个记号,慢慢研究

妮是我心 · 发表于 2021-1-16 15:35

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

老师我不会修改，请老师帮我修改！
电脑上有两台打印机，出人库只用“Send To OneNote 2016”这台打印机。
电脑默认打印机为Send To OneNote 2017
出人库用“Send To OneNote 2016”这台打印机，这样就不用每次打印都要设置打印机了。
请老师帮我实现

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

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