Sim eu percebi isso CSRocha, porem mudei a rotina e fiz uma lista com os codigos que sao selecionados pelo Like, ficou bom..... mas obrigado pela atencao....

 

PESSOAL COM RELACAO A ARGOX EU ESTOU TENDO UM PROBLEMA, TENHO ESSA ROTINA QUE BAIXEI DO SITE DO FABRICANTE (so pra teste de impressao mesmo):

 

Private Declare Function A_Bar2d_Maxi Lib "WINPPLA.DLL" (ByVal x As Long, ByVal y As Long, ByVal primary As Long, ByVal secondary As Long, ByVal country As Long, ByVal service As Long, ByVal mode As Byte, ByVal numeric As Long, ByVal data As String) As Long
Private Declare Function A_Bar2d_Maxi_Ori Lib "WINPPLA.DLL" (ByVal x As Long, ByVal y As Long, ByVal ori As Long, ByVal primary As Long, ByVal secondary As Long, ByVal country As Long, ByVal service As Long, ByVal mode As Byte, ByVal numeric As Long, ByVal data As String) As Long
Private Declare Function A_Bar2d_PDF417 Lib "WINPPLA.DLL" (ByVal x As Long, ByVal y As Long, ByVal narrow As Long, ByVal width As Long, ByVal normal As Byte, ByVal security As Long, ByVal aspect As Long, ByVal row As Long, ByVal column As Long, ByVal mode As Byte, ByVal numeric As Long, ByVal data As String) As Long
Private Declare Function A_Bar2d_PDF417_Ori Lib "WINPPLA.DLL" (ByVal x As Long, ByVal y As Long, ByVal ori As Long, ByVal narrow As Long, ByVal width As Long, ByVal normal As Byte, ByVal security As Long, ByVal aspect As Long, ByVal row As Long, ByVal column As Long, ByVal mode As Byte, ByVal numeric As Long, ByVal data As String) As Long
Private Declare Sub A_Clear_Memory Lib "WINPPLA.DLL" ()
Private Declare Function A_CreatePrn Lib "WINPPLA.DLL" (ByVal selection As Long, ByVal filename As String) As Long
Private Declare Sub A_ClosePrn Lib "WINPPLA.DLL" ()
Private Declare Function A_Del_Graphic Lib "WINPPLA.DLL" (ByVal mem_mode As Long, ByVal graphic As String) As Long
Private Declare Function A_Draw_Box Lib "WINPPLA.DLL" (ByVal mode As Byte, ByVal x As Long, ByVal y As Long, ByVal width As Long, ByVal height As Long, ByVal top As Long, ByVal side As Long) As Long
Private Declare Function A_Draw_Line Lib "WINPPLA.DLL" (ByVal mode As Byte, ByVal x As Long, ByVal y As Long, ByVal width As Long, ByVal height As Long) As Long
Private Declare Sub A_Feed_Label Lib "WINPPLA.DLL" ()
Private Declare Function A_Get_DLL_Version Lib "WINPPLA.DLL" (ByVal nShowMessage As Long) As String
Private Declare Function A_Get_DLL_VersionA Lib "WINPPLA.DLL" (ByVal nShowMessage As Long) As Long
Private Declare Function A_Get_Graphic Lib "WINPPLA.DLL" (ByVal x As Long, ByVal y As Long, ByVal mem_mode As Long, ByVal format As Byte, ByVal filename As String) As Long
Private Declare Function A_Get_Graphic_ColorBMP Lib "WINPPLA.DLL" (ByVal x As Long, ByVal y As Long, ByVal mem_mode As Long, ByVal format As Byte, ByVal filename As String) As Long
Private Declare Function A_Initial_Setting Lib "WINPPLA.DLL" (ByVal ttype As Long, ByVal Source As String) As Long
Private Declare Function A_Load_Graphic Lib "WINPPLA.DLL" (ByVal x As Long, ByVal y As Long, ByVal Graphic_name As String) As Long
Private Declare Function A_Open_ChineseFont Lib "WINPPLA.DLL" (ByVal path As String) As Long
Private Declare Function A_Print_Form Lib "WINPPLA.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_Print_Out Lib "WINPPLA.DLL" (ByVal width As Long, ByVal height As Long, ByVal copies As Long, ByVal amount As Long) As Long
Private Declare Function A_Prn_Barcode Lib "WINPPLA.DLL" (ByVal x As Long, ByVal y As Long, ByVal ori As Long, ByVal typee As Byte, ByVal narrow As Long, ByVal width As Long, ByVal height As Long, ByVal mode As Byte, ByVal numeric As Long, ByVal data As String) As Long
Private Declare Function A_Prn_Text Lib "WINPPLA.DLL" (ByVal x As Long, ByVal y As Long, ByVal ori As Long, ByVal font As Long, ByVal typee As Long, ByVal hor_factor As Long, ByVal ver_factor As Long, ByVal mode As Byte, ByVal numeric As Long, ByVal data As String) As Long
Private Declare Function A_Prn_Text_Chinese Lib "WINPPLA.DLL" (ByVal x As Long, ByVal y As Long, ByVal fonttype As Long, ByVal id_name As String, ByVal data As String, ByVal mem_mode As Long) As Long
Private Declare Function A_Prn_Text_TrueType Lib "WINPPLA.DLL" (ByVal x As Long, ByVal y As Long, ByVal FSize 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, ByVal mem_mode As Long) As Long
Private Declare Function A_Prn_Text_TrueType_W Lib "WINPPLA.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, ByVal mem_mode As Long) As Long
Private Declare Function A_Set_Backfeed Lib "WINPPLA.DLL" (ByVal back As Long) As Long
Private Declare Function A_Set_BMPSave Lib "WINPPLA.DLL" (ByVal nSave As Long, ByVal pstrBMPFName As String) As Long
Private Declare Function A_Set_Cutting Lib "WINPPLA.DLL" (ByVal cutting As Long) As Long
Private Declare Function A_Set_Darkness Lib "WINPPLA.DLL" (ByVal darkness As Long) As Long
Private Declare Function A_Set_DebugDialog Lib "WINPPLA.DLL" (ByVal nEnable As Long) As Long
Private Declare Function A_Set_Feed Lib "WINPPLA.DLL" (ByVal rate As Byte) As Long
Private Declare Function A_Set_Form Lib "WINPPLA.DLL" (ByVal formfile As String, ByVal form_name As String, ByVal mem_mode As Long) As Long
Private Declare Function A_Set_Margin Lib "WINPPLA.DLL" (ByVal position As Long, ByVal margin As Long) As Long
Private Declare Function A_Set_Prncomport Lib "WINPPLA.DLL" (ByVal baud As Long, ByVal parity As Long, ByVal data As Long, ByVal sstop As Long) As Long
Private Declare Function A_Set_Prncomport_PC Lib "WINPPLA.DLL" (ByVal nBaudRate As Long, ByVal nByteSize As Long, ByVal nParity As Long, ByVal nStopBits As Long, ByVal nDsr As Long, ByVal nCts As Long, ByVal nXonXoff As Long) As Long
Private Declare Function A_Set_Sensor_Mode Lib "WINPPLA.DLL" (ByVal ttype As Byte, ByVal continuous As Long) As Long
Private Declare Function A_Set_Speed Lib "WINPPLA.DLL" (ByVal speed As Byte) As Long
Private Declare Function A_Set_Syssetting Lib "WINPPLA.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 "WINPPLA.DLL" (ByVal unit As Byte) As Long

''''''WinPPLA.DLL Version 2.7AW'''''''''''

Private Sub Command1_Click()
Print A_CreatePrn(1, "outfile.prn")
Print A_Set_Darkness(10)
Print A_Get_Graphic(10, 50, 1, 66, "bb.bmp")
'Print A_Get_Graphic_ColorBMP(300, 10, 1, 66, "girl.bmp")
Print A_Prn_Barcode(100, 50, 1, 65, 0, 0, 20, 98, 1, "ABCD")
Print A_Prn_Text(200, 50, 1, 9, 0, 1, 1, 110, 2, "PPLA COMMAND")
Print A_Prn_Text_TrueType(100, 10, 40, "µØ±d°É«F¬y", 1, 400, 0, 0, 0, "A1", "¥ß¶H¬ì§ÞªÑ¥÷¦³­­¤½¥q", 1)
Print A_Prn_Text_TrueType(80, 100, 40, "Times New Roman", 1, 400, 0, 0, 0, "A2", "The VB links DLL successful.", 1)
Print A_Print_Out(1, 1, 2, 1)
Call A_ClosePrn
End Sub

 

 

POREM NA PARTE VERMELHA DA UM ERRO (The default printer DC is created failed) E ERRO DE RUN-TIME 11 (Division by Zero), ALGUEM PODE DAR UMA AJUDA???

a argox vc pode imprimir via DLL ou via codigo

 

eu fiz via codigo, gero um arquivo txt e mando para a porta lpt1, agora se for via usb ai é só via DLL

 

Roberto

Olá Roberto, eu consegui imprimir!!!!

SÓ UMA COISA:

Quando eu mando imprimir sai beleza, porem, tenho que apertar o botão FEED da argox pra ela EJETAR mais 1 etiqueta, só assim eu consigo destacar as que emiti.

ENTÃO PERGUNTO: COMO FAÇO PRA EJETAR (simular o botão FEED).  Desde ja agradeço

 

 

simples.... manda a mesma etiqueta que vc imprimiu antes... mas com os campos em branco.

 

Roberto

Sim, porem, vai ficar uma etique ta em branco, ou seja, dá proxima vez que for imprimir a PRIMEIRA etique fica em BRANCO (esperdiçando-a )

DAÍ TERIA QUE VOLTAR UMA ETIQUETA ANTES DE COMEÇAR A IMPRIMIR, nossa mae...