用VB.net采用WINPPLA.DLL开发条码打印程序

[思远周]

请问有人知道如何用VB.net采用WINPPLA.DLL来开发立象214TT机器的打印程序吗？如果有代码案例最好，在此谢谢大家了！

[ohd]

net采用WINPPLB.DLL


Private Declare Function A_Set_Syssetting Lib "WINPPLB.DLL" (ByVal transfer As Long, ByVal cut_peel As Long, ByVal length As Long, ByVal zero As Long, ByVal pause As Long) As Long
Private Declare Function A_Set_Unit Lib "WINPPLB.DLL" (ByVal unit As Byte) As Long
Private Declare Function A_Set_Logic Lib "WINPPLB.DLL" (ByVal Logic As Long) As Long
Private Declare Function A_Set_ProcessDlg Lib "WINPPLB.DLL" (ByVal nShow As Long) As Long
Private Declare Function A_Set_LabelVer Lib "WINPPLB.DLL" (ByVal centiInch As Long) As Long
Private Declare Sub A_Clear_Memory Lib "WINPPLB.DLL" ()
Private Declare Sub A_Feed_Label Lib "WINPPLB.DLL" ()
Private Declare Function A_Get_DLL_Version Lib "WINPPLB.DLL" (ByVal nShowMessage As Long) As String
Private Declare Function A_Get_DLL_VersionA Lib "WINPPLB.DLL" (ByVal nShowMessage As Long) As Long
Private Declare Function A_Initial_Setting Lib "WINPPLB.DLL" (ByVal ttype As Long, ByVal Source As String) As Long
Private Declare Function A_Print_Form Lib "WINPPLB.DLL" (ByVal width As Long, ByVal height As Long, ByVal copies As Long, ByVal amount As Long, ByVal form_name As String) As Long
Private Declare Function A_GetUSBBufferLen Lib "WINPPLB.DLL" () As Long
Private Declare Function A_EnumUSB Lib "WINPPLB.DLL" (ByVal buf As String) As Long
Private Declare Function A_CreateUSBPort Lib "WINPPLB.DLL" (ByVal nPort As Long) As Long
Private Declare Function A_CreatePort Lib "WINPPLB.DLL" (ByVal nPortType As Long, ByVal nPort As Long, ByVal filename As String) As Long


''''''WINPPLB.DLL Version 3.04AW'''''''''''

Private Sub Command1_Click()

Dim nUsbLen As Long
Dim buf As String

Call A_CreatePrn(0, "a22")

Call A_Set_Darkness(10)
Call A_Get_Graphic(10, 50, 1, 66, "bb.bmp") ' Save and print bb.bmp
Call A_Load_Graphic(10, 150, "bb") ' Print bb.bmp
Call A_Prn_Barcode(100, 50, 1, 69, 1, 2, 20, 98, 1, "ABCD")
Call A_Prn_Text(200, 0, 1, 3, 0, 1, 1, 110, 2, "PPLA COMMAND")
Call A_Prn_Text_TrueType(100, 10, 40, "Times New Roman", 1, 400, 0, 0, 0, "A1", "Argox Corp.", 1)
Call A_Prn_Text_TrueType_W(100, 50, 40, 40, "Arial", 1, 400, 0, 0, 0, "A3", "TrueType Font Test", 1)
Call A_Prn_Text_TrueType(80, 100, 40, "Times New Roman", 1, 400, 0, 0, 0, "A2", "The VB links DLL successful.", 1)
Call A_Print_Out(1, 1, 2, 1)
Call A_ClosePrn
End Sub

[思远周]

上面是VB中的代码吧，我在VB.net中调试，提示内存错误什么之类的信息！

[panhonglingp]

不知能用不能用