少妇高潮呻吟求饶视频网站,亚洲国产精品成人av,激情在线视频一区二区三区,日韩一区二区中文字幕,东京道一本热码加勒比小泽,午夜精品一区二区三区av免费,玖玖资源网站最新网站,亚洲国产精品成人一区,邻居少妇张开腿让我爽视频,东京热东京道日韩av

VB下POSTEK條形碼打印機編程函數(shù)示例

Option Explicit
Private Declare Function PTK_Getinfo Lib "CDFPSK.DLL" () As Integer
Private Declare Function PTK_SetPrintSpeed Lib "CDFPSK.DLL" (ByVal speed As Integer) As Long
Private Declare Function PTK_SetDarkness Lib "CDFPSK.DLL" (ByVal darkness As Integer) As Long
Private Declare Function PTK_DrawBarcode Lib "CDFPSK.DLL" (ByVal px As Long, ByVal py As Long, ByVal pdirec As Long, ByVal typee As String, ByVal NarrowWidth As Long, ByVal pHorizontal As Long, ByVal pVertical As Long, ByVal ptext As Byte, ByVal pstr As String) As Long
Private Declare Function OpenPort Lib "CDFPSK.DLL" (ByVal OP As Long) As Long
Private Declare Sub ClosePort Lib "CDFPSK.DLL" ()
Private Declare Function PTK_DrawTextTrueTypeW Lib "CDFPSK.DLL" (ByVal x As Long, ByVal y As Long, ByVal FHeight As Long, ByVal FWidth As Long, ByVal FType As String, ByVal Fspin As Long, ByVal FWeight As Long, ByVal FItalic As Long, ByVal FUnline As Long, ByVal FStrikeOut As Long, ByVal id_name As String, ByVal data As String) As Long
Private Declare Function PTK_PcxGraphicsDel Lib "CDFPSK.DLL" (ByVal pid As String) As Long
Private Declare Function PTK_PcxGraphicsDownload Lib "CDFPSK.DLL" (ByVal pcxname As String, ByVal pcxpath As String) As Long
Private Declare Function PTK_PrintLabel Lib "CDFPSK.DLL" (ByVal number As Integer, ByVal cpnumber As Integer) As Long
Private Declare Function PTK_PrintPCX Lib "CDFPSK.DLL" (ByVal px As Integer, ByVal py As Integer, ByVal filename As String) As Long
Private Declare Function PTK_DrawPcxGraphics Lib "CDFPSK.DLL" (ByVal x As Long, ByVal y As Long, ByVal gname As String) As Long
Private Declare Function PTK_DrawLineOr Lib "CDFPSK.DLL" (ByVal px As Integer, ByVal py As Integer, ByVal plength As Integer, ByVal pH As Integer) As Long
Private Declare Function GetErrState Lib "CDFPSK.DLL" () As Integer
Private Declare Function PTK_SetLabelHeight Lib "CDFPSK.DLL" (ByVal lheight As Integer, ByVal gapH As Integer) As Integer
Private Declare Function PTK_SetLabelWidth Lib "CDFPSK.DLL" (ByVal lwidth As Integer) As Integer
Private Declare Function SetPCComPort Lib "CDFPSK.DLL" (ByVal BaudRate As Integer, ByVal HandShake As Boolean) As Integer
Private Declare Function PTK_DrawText Lib "CDFPSK.DLL" (ByVal px As Integer, ByVal py As Integer, ByVal pdirec As Integer, ByVal pFont As Integer, ByVal pHorizontal As Integer, ByVal pVertical As Integer, ByVal ptext As Byte, ByVal pstr As String) As Long
Private Sub Command1_Click()
OpenPort 1
'SetPCComPort 38400, True
PTK_SetDarkness 10
PTK_SetPrintSpeed 4

'PTK_Getinfo (void)
PTK_DrawBarcode 115, 120, 0, "9", 3, 2, 60, 66, "5451T-11-M"
'PTK_DrawBarcode 115, 150, 0, "3C", 2, 4, 60, 66, "236666456"
PTK_PcxGraphicsDel "*"
PTK_PcxGraphicsDownload "aab", "F:\DLL FOR POSTEK\VB TEST\PHONE.PCX" '請更改為PHONE.PCX文件的當前路徑
PTK_DrawPcxGraphics 400, 210, "aab"
'PTK_DrawLineOr 50, 180, 2, 100
PTK_DrawTextTrueTypeW 80, 50, 40, 0, "Arial", 1, 400, 0, 0, 0, "AB", "PosteK Printer"
'PTK_DrawText 100, 100, 0, 2, 1, 1, 78, "7777"
'Text1.Text = GetErrState()
PTK_PrintLabel 1, 1
ClosePort
End Sub