MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    Erro Objeto é Obrigatorio

    avatar
    Leolobo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 08/07/2014

    Erro Objeto é Obrigatorio Empty Erro Objeto é Obrigatorio

    Mensagem  Leolobo 11/12/2014, 00:00

    Estou com um problema quando faco um CALL da função abaixo abre uma caixa de mensagem dizendo Objeto é Obrigatorio. Como estou em busca de aprendizado e não consegui sair do problema , agradeço se Alguem pudesse ajudar !!
    Private Sub ImprimeTeste()
    Dim intPorta As Integer
    Dim strTexto As String
    On Error GoTo Tratamento
    MSComm.CommPort = "9" 'com9'
    'Configura a porta serial'
    MSComm.Settings = "9600,n,8,2"
    'Controla o Fluxo de Dados'
    MSComm.Handshaking = comRTSXOnXOff
    'Abre a porta serial'
    MSComm.PortOpen = True
    'Define um avanço no papel após a impressão'
    MSComm.Output = f256 & Chr$(13)
    'Define o Off set de coluna'
    MSComm.Output = LC0005 & Chr$(13)
    'Define o Off set de linha'
    MSComm.Output = R0000 & Chr$(13)
    'Define o tamanho do Pixel'
    MSComm.Output = D11 & Chr$(13)
    'Seleciona o zero não cortado'
    MSComm.Output = z & Chr$(13)
    'Define o calor de impressão'
    MSComm.Output = H09 & Chr$(13)
    'CAMPOS DA ETIQUETA:'
    MSComm.Output = "102200100650025" & _
    "SOFTWARE" & Chr$(13) 'Categoria'
    MSComm.Output = "102200100550015" & _
    "VISUAL BASIC" & Chr$(13)
    MSComm.Output = "102200100550095" & _
    "MICROSOFT" & Chr$(13) 'Marca'
    MSComm.Output = "102200100450015" & _
    "STANDARD" & Chr$(13) 'Tipo'
    MSComm.Output = "102200100450105" & _
    "2003" & Chr$(13) 'Versão'
    MSComm.Output = "102200100350015" & _
    ".NET" & Chr$(13) 'Família'
    MSComm.Output = "102200100350095" & _
    "65955690" & Chr$(13) 'Código'
    MSComm.Output = "102200100250015" & _
    "FERRAMENTA DESENV" & Chr$(13) 'Descrição'
    'Código de barras (segunda letra minúscula)'
    MSComm.Output = "1e1202500000015" & _
    "65955690" & Chr$(13) 'letra e: padrão 128'
    MSComm.Output = "121100100150145" & _
    "R$" & Chr$(13) 'Preço (cifrão)'
    MSComm.Output = "121100100050145" & _
    "500" & Chr$(13) 'Preço'
    MSComm.Output = "Q" & Format(1, "0000") & _
    Chr$(13) 'Quantidade de cópias da etiqueta'
    'Termina a transmissão e inicia a impressão'
    MSComm.Output = "E" & Chr$(13)
    Do Until MSComm.OutBufferCount = 0
    Loop
    MSComm.PortOpen = False 'Fecha a porta'
    Exit Sub
    Tratamento:
    If Err = 8002 Then
    MsgBox "Porta serial inválida."""
    Exit Sub
    End If
    MsgBox Err.Description
    End Sub
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    Erro Objeto é Obrigatorio Empty Re: Erro Objeto é Obrigatorio

    Mensagem  JPaulo 11/12/2014, 14:10

    Ola seja bem vindo ao forum.

    Se está a utilizar Ms Access, qual a versão ?


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Erro Objeto é Obrigatorio Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Erro Objeto é Obrigatorio Folder_announce_new 102 Códigos VBA Gratuitos...
    Erro Objeto é Obrigatorio Folder_announce_new Instruções SQL como utilizar...
    avatar
    Leolobo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 08/07/2014

    Erro Objeto é Obrigatorio Empty Re: Erro Objeto é Obrigatorio

    Mensagem  Leolobo 11/12/2014, 14:29

    Access 2013
    avatar
    Leolobo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 08/07/2014

    Erro Objeto é Obrigatorio Empty Re: Erro Objeto é Obrigatorio

    Mensagem  Leolobo 11/12/2014, 23:11

    Olá o access que usamos é o 2013

    Conteúdo patrocinado


    Erro Objeto é Obrigatorio Empty Re: Erro Objeto é Obrigatorio

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 20:54