module1.bas

打印方面的程序

Attribute VB_Name = "Module1"
Public arr_bh() As String
Public arr_mc() As String
Public arr_gg() As String
Public arr_dw() As String
Public arr_sl() As String
Public arr_dj() As String
Public arr_je() As String
Public arr_bz() As String

Public weuzi_arr_zcbh() As String
Public wuzi_arr_mc() As String
Public wuzi_arr_ggxh() As String
Public wuzi_arr_dw() As String
Public wuzi_arr_syfx() As String
Public wuzi_arr_syzt() As String
Public wuzi_arr_flh() As String
Public wuzi_arr_bz() As String
Public wuzi_arr_zd() As String

Dim curpath As String     '找出当前的系统目录

Public newdan_flag As Boolean                    '标志是不是新的单据
Public wuzi_newdan_flag As Boolean


Public biaodan As Integer

Public form_obj As Form
Public chaxun_str As String

Public str_wpcx  As String

Public str_biaodan   '定义通用表单号
Public wuzi_str_biaodan
Public Function shuzi(wenbenkuang As TextBox, KeyAscii As Integer)
 
If KeyAscii = Asc(".") Or KeyAscii = Asc("1") Or KeyAscii = Asc("2") Or KeyAscii = Asc("3") Or KeyAscii = Asc("4") Or KeyAscii = Asc("5") Or KeyAscii = Asc("6") Or KeyAscii = Asc("7") Or KeyAscii = Asc("8") Or KeyAscii = Asc("9") Or KeyAscii = Asc("0") Or KeyAscii = 8 Then
Else
    KeyAscii = 0
End If

End Function