MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Erro Objeto é Obrigatorio

    Compartilhe

    Leolobo
    Novato
    Novato

    Respeito às Regras 100%

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

    Erro Objeto é Obrigatorio

    Mensagem  Leolobo em Qua 10 Dez 2014, 10:00 pm

    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
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: Erro Objeto é Obrigatorio

    Mensagem  JPaulo em Qui 11 Dez 2014, 12:10 pm

    Ola seja bem vindo ao forum.

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


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

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]

    Leolobo
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: Erro Objeto é Obrigatorio

    Mensagem  Leolobo em Qui 11 Dez 2014, 12:29 pm

    Access 2013

    Leolobo
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: Erro Objeto é Obrigatorio

    Mensagem  Leolobo em Qui 11 Dez 2014, 9:11 pm

    Olá o access que usamos é o 2013

      Data/hora atual: Sex 23 Jun 2017, 2:12 pm