Dim intNumArea As Integer
Dim rstEti As Recordset
Dim intCol As Integer
On Error Resume Next

Screen.MousePointer = vbHourglass

imprimirbarras
intCol = 1

Set rstEti = vgDb(0).OpenRecordSet("SELECT Etiquetas1.Referencia_do_produto, [Valor Venda] From Etiquetas1 Where (Etiquetas1.Imprimir = True) ORDER BY Etiquetas1.[Código do produto]")
If rstEti.RecordCount > 0 Then

intNumArea = FreeFile
Open Porta_argox For Output As #intNumArea
intCol = 1

'seta parâmetros da impressora
Print #intNumArea, "c0000"
Print #intNumArea, "KI503"
Print #intNumArea, "O0220"
Print #intNumArea, "f220"
Print #intNumArea, "KW0400"
Print #intNumArea, "KI7
"
Print #intNumArea, "V0"
Print #intNumArea, "L"
Print #intNumArea, "H13"
Print #intNumArea, "PC"
Print #intNumArea, "A2"
Print #intNumArea, "D11"


'exemplo fixo
'Print #intNumArea, "1E1102500200030B1234567891012345"
'Print #intNumArea, "1E1102500200160B1234567891012345"
'Print #intNumArea, "1E1102500200290B1234567891012345"
'Print #intNumArea, "101100000160058Infinity Joias"
'Print #intNumArea, "101100000160195Infinity Joias"
'Print #intNumArea, "101100000160331Infinity Joias"

Do While Not rstEti.EOF
Select Case intCol
'Argox Manual programacion impresoras Argox PPLA.pdf
'XFWH99988887777
'X = orientation, 1 represents for portrait
'F = font
'W = width multiplier
'H = height multiplier
'999 = bar code height is ignored in case of text
'8888 = y coord
'7777 = x coord
'Exemplo: 1E1102500200040B
Case 1
'etiqueta coluna 1
Print #intNumArea, Argox_config_codbarra_m1 & rstEti![Referencia_do_produto]
Print #intNumArea, Argox_config_empresa_m1 & Left(Configuracoes!Nome_fantasia, 15)
Print #intNumArea, Argox_config_vlrvenda_m1 & "Vlr Venda R$ " + CStr(Format(rstEti![Valor venda], "###,##0.00"))
intCol = 2

Case 2
'etiqueta coluna 2
Print #intNumArea, Argox_config_codbarra_m1e2 & rstEti![Referencia_do_produto]
Print #intNumArea, Argox_config_empresa_m1e2 & Left(Configuracoes!Nome_fantasia, 15)
Print #intNumArea, Argox_config_vlrvenda_m1e2 & "Vlr Venda R$ " + CStr(Format(rstEti![Valor venda], "###,##0.00"))
intCol = 3

Case 3
'etiqueta coluna 3
Print #intNumArea, Argox_config_codbarra_m1e3 & rstEti![Referencia_do_produto]
Print #intNumArea, Argox_config_empresa_m1e3 & Left(Configuracoes!Nome_fantasia, 15)
Print #intNumArea, Argox_config_vlrvenda_m1e3 & "Vlr Venda R$ " + CStr(Format(rstEti![Valor venda], "###,##0.00"))
intCol = 1
Print #intNumArea, "^07"
Print #intNumArea, "Q0001"
Print #intNumArea, "E"
Print #intNumArea, "L"
Print #intNumArea, "A2"
Print #intNumArea, "D11"

End Select
rstEti.MoveNext
Loop
Print #intNumArea, "^07"
Print #intNumArea, "Q0001"
Print #intNumArea, "E"
Close intNumArea
End If

subFinalizaRst rstEti
Screen.MousePointer = vbNormal