IMPRESSORA TERMICA

USUARIO.EXCLUIDOS 04/12/2006 09:11:46
#187726
gente eu to com um probleminha aqui, tenho uma impressora termica onde eu preciso imprimir o campo txtcodigo so que como codigo de barra, minha bubina usa 3 etiquetas uma do lado da outra, com 2 cm de largura e 3 de comprimento sera que alguem teria o codigo para imprimir em impressora termica.
RXGOMES 04/12/2006 10:52:34
#187768
Qual a marca da inpressora?
USUARIO.EXCLUIDOS 04/12/2006 11:50:54
#187783
dataregis
FLAVIOALBIERO 04/12/2006 15:44:57
#187888
A dataregis costuma mandar um arquivo texto de exemplo

FLAVIOALBIERO 04/12/2006 15:47:22
#187891
Paulo
essa eh a fun'c~ao que eu utilizo

Public Function Z_Fcn_Print_Branca(var_produto As String, var_nome As String, var_preco As Double, Var_Loja As String, Var_Dias_Validade As Double)
     '
     Dim Mdata1, Mdata2 As String
     '
     If Me.Check1.value = 1 Then
        Mdata1 = "Val:" & (Date + IIf(IsNull(Var_Dias_Validade), 0, Var_Dias_Validade))
        Mdata2 = "Fab:" & Date
     Else
        Mdata1 = ""
        Mdata2 = ""
     End If
     '
     If Var_Tipo_Impressora = 0 Then
        '
        Open "Lpt1:" For Output As #1
        Print #1, Chr(2) + "O0220"
        Print #1, Chr(2) + "M0300"
        Print #1, Chr(2) + "c0000"
        Print #1, Chr(2) + "f000"
        Print #1, Chr(2) + "e"
        Print #1, Chr(2) + "LC0000"
        Print #1, "H09"
        Print #1, "D11"
        Print #1, "SC"
        Print #1, "PC"
        Print #1, "R0000"
        Print #1, "z"
        Print #1, "W"
        Print #1, "^01"
        Print #1, "1F1204000350007" & Trim(var_produto)  ' barra
        Print #1, "121100000200007" & var_nome     ' descricao
        Print #1, "121100000000007" & Mdata1       ' validade
        Print #1, "1F1204000350150" & Trim(var_produto)  ' barra
        Print #1, "121100000200150" & var_nome     ' descricao
        Print #1, "121100000000150" & Mdata1       ' validade
        Print #1, "1F1204000350285" & Trim(var_produto)  ' barra
        Print #1, "121100000200295" & var_nome     ' descricao
        Print #1, "121100000000295" & Mdata1       ' validade
        Print #1, "Q" & Format(Text2.Text, "0000")
        Print #1, "E"
        '
        Close #1
        '
     Else

        'Direciona a impressora para a porta
        MSComm1.CommPort = Var_Porta_Impressora
            
        'Configura a porta serial
        MSComm1.Settings = "9600,n,8,1"
    
        'Controla o Fluxo de Dados
        MSComm1.Handshaking = comRTSXOnXOff
    
        'Abre a porta serial
        MSComm1.PortOpen = True
    
        'Define um avanço no papel após a impressão.
        MSComm1.Output = "~f256" & Chr$(13)
       
        'Define o Off set de coluna
        MSComm1.Output = "~" & strOffSetColuna & Chr$(13)
    
        MSComm1.Output = Chr(2) + "O0220" & Chr$(13)
        MSComm1.Output = Chr(2) + "M0300" & Chr$(13)
        MSComm1.Output = Chr(2) + "c0000" & Chr$(13)
        MSComm1.Output = Chr(2) + "f000" & Chr$(13)
        MSComm1.Output = Chr(2) + "e" & Chr$(13)
        MSComm1.Output = Chr(2) + "LC0000" & Chr$(13)
        MSComm1.Output = "H09" & Chr$(13)
        MSComm1.Output = "D11" & Chr$(13)
        MSComm1.Output = "SC" & Chr$(13)
        MSComm1.Output = "PC" & Chr$(13)
        MSComm1.Output = "R0000" & Chr$(13)
        MSComm1.Output = "z" & Chr$(13)
        MSComm1.Output = "W" & Chr$(13)
        MSComm1.Output = "^01" & Chr$(13)
        '
        If Check2.value = 1 Then
            var_nome = Text3.Text
        End If
        MSComm1.Output = "1F1204000370007" & var_produto & Chr$(13) ' barra
        MSComm1.Output = "121100000270007" & var_nome & Chr$(13) ' descricao
        MSComm1.Output = "121100000160007" & Mdata2 & Chr$(13) ' Fabricacao
        MSComm1.Output = "121100000050007" & Mdata1 & Chr$(13) ' validade
        MSComm1.Output = "1F1204000370150" & var_produto & Chr$(13) ' barra
        MSComm1.Output = "121100000270150" & var_nome & Chr$(13) ' descricao
        MSComm1.Output = "121100000160150" & Mdata2 & Chr$(13) ' Fabricacao
        MSComm1.Output = "121100000050150" & Mdata1 & Chr$(13) ' validade
        MSComm1.Output = "1F1204000370285" & var_produto & Chr$(13) ' barra
        MSComm1.Output = "121100000270295" & var_nome & Chr$(13) ' descricao
        MSComm1.Output = "121100000160295" & Mdata2 & Chr$(13) ' Fabricacao
        MSComm1.Output = "121100000050295" & Mdata1 & Chr$(13) ' validade
        MSComm1.Output = "Q" & Format(Text2.Text, "0000")
        MSComm1.Output = "E"
        MSComm1.PortOpen = False
        '
     End If
End Function
USUARIO.EXCLUIDOS 05/12/2006 08:39:19
#187998
Bom dia Amigo essa funçao que voce me passou voe usa para impressora termica dataregis. esta ÂÂÂ'ÂÂÂ'e a funcao mas a programacao do botao como fica
FLAVIOALBIERO 05/12/2006 12:25:01
#188054
Bom no meu caso para chamar a função acima 

private sub Command1_click()
    call Z_Fcn_Print_Branca( var_produto, var_nome, var_preco, Var_Loja,  _
                             Var_Dias_Validade)
end Sub


no caso da minha função ele recebe como parametros

var_produto - codigo do seu produto
var_nome - a descricao do produto
var_preco - 1,99
var_loja - Nome da Loja ou Codigo da loja
var_dias_validade - a validade de dias do produto

abçs
t+
Tópico encerrado , respostas não são mais permitidas
Voltar