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
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