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

zjdh

vickywu520 发表于 2017-3-7 09:10
你好，还是打印不了，弹出窗口要要求调试，要怎么搞啊？
Sub 打印()
    UserForm2.Show 0

就是丢失控件了。
一般解决办法：
1. 重新下载附件，不要启用宏打开文件，Alt+F11打开VB编辑器，菜单：工具----引用，发现有丢失的控件就重新引用一下，保存----退出。
2. 启用宏，打开文件。

chenletong

谢谢分享，下载来慢慢学习

zhouws

zjdh 发表于 2017-3-8 12:47
就是丢失控件了。
一般解决办法：
1. 重新下载附件，不要启用宏打开文件，Alt+F11打开VB编辑器，菜单： ...

你好，打开就显示这个如何解决谢谢。

zjdh

zhouws 发表于 2017-3-17 09:41
你好，打开就显示这个如何解决谢谢。

按3802楼处理

sdhc

老师您好：单据录入界面无法打印，按照您3802楼的解决方法，也不能解决，我是纯菜鸟，对VB编辑器一窍不通，老师能否方便帮我远程解决一下，谢谢！

sdhc

老师您好，这是我在单据录入界面点打印后出现的提示，敬请老师抽时间帮我远程解决一下，可以吗？

sdhc

老师帮忙看看，我这里有没有丢失的控件，单据录入无法打印，按照您的方法查看有没有丢失的控件，我看不懂，谢谢

zjdh

sdhc 发表于 2017-3-18 10:41
老师帮忙看看，我这里有没有丢失的控件，单据录入无法打印，按照您的方法查看有没有丢失的控件，我看不懂， ...

1. 你那最后一个控件重新引用一下试试。

Microsoft Windows Common Controls 6.0(SP6)  

在C:\WINDOWS\SYSTEM32\MSCOMCTL.OCX

初次使用若已引用仍发生错误时需要重新引用一次

2. 另外
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
'点列排序
    On Error GoTo myerr
    ListView1.SortKey = ColumnHeader.Index - 1
    If ListView1.SortOrder = lvwDescending Then
        ListView1.SortOrder = lvwAscending   '升序
    Else
        ListView1.SortOrder = lvwDescending  '降序
    End If
    ListView1.Sorted = True
myerr:
    Exit Sub
End Sub
可以删除掉，仅缺少列表排序功能，一般人也不去用它。

sdhc

老师您好谢谢您的解答，我现在按照您的方法操作，我在V6.4.7--6行录入版本中已经能够实现打印功能了，但是在V6.4.7--12行录入版本中调试了很多次，无论如何也不能实现打印功能，
提示
Sub 打印()
     UserForm2.Show 0”（此显示为黄色）
我不会调试，请问老师如何操作？谢谢！我平时使用的是12行录入版本（因为可以占满一张凭证纸）

另外我下载最新的哪个版本？

zjdh

sdhc 发表于 2017-3-18 14:23
老师您好谢谢您的解答，我现在按照您的方法操作，我在V6.4.7--6行录入版本中已经能够实现打印功能了，但是 ...

http://club.excelhome.net/forum. ... 886&pid=8988485
以上为最新版