RUN TIME ERROR [ô]52[ô]: BAD FILE NAME OR NUMBER

PHLIMA 10/02/2017 14:45:05
#471539
Olá galera do VBMANIA!

Tenho um banco de dados no formato MDB que consiste em uma tabela com dois campos e com total de 200 registros que preciso para imprimir etiquetas com códigos de barras na impressora Zebra.

Quando executo o código abaixo a impressora imprime somente 10 etiquetas e para exibindo um erro [Ô]run time error [ô]52[ô]: Bad file name or number[Ô] parando na linha onde encontra o comando Open e preciso muito da ajuda de vocês quanto ao que pode estar errado neste código.

Private Sub Command1_Click()
itens = 0
With rst1
.Sort = [Ô]NUMLOT ASC[Ô]
.MoveFirst
For itens = 1 To .RecordCount
Label2.Caption = .AbsolutePosition
Open [Ô]LPT1[Ô] For Output As #1 [ô] <- linha onde após imprimir 10 etiquetas a msg [Ô]run time error [ô]52[ô]: Bad file name or number[Ô] é exibida
Print #1, [Ô]^XA[Ô]
Print #1, [Ô]^POI[Ô]
Print #1, [Ô]^FO150,470[Ô]
Print #1, [Ô]^A0B,50,35^FDLOTE^FS[Ô]
Print #1, [Ô]^FO200,200[Ô]
Print #1, [Ô]^BY4^BCB,130,350^FD[Ô] & .Fields([Ô]NUMLOT[Ô]) & [Ô]^FS[Ô]
Print #1, [Ô]^FO410,400[Ô]
Print #1, [Ô]^A0B,50,35^FDPESO LIQUIDO^FS[Ô]
Print #1, [Ô]^FO460,400[Ô]
Print #1, [Ô]^BY3^BCB,130,350^FD[Ô] & .Fields([Ô]PESOLIQ[Ô]) & [Ô]^FS[Ô]
Print #1, [Ô]^PQ1[Ô]
Print #1, [Ô]^XZ[Ô]
Close #1
.MoveNext
Next
End With
End Sub

Grato pela ajuda habitual de todos vocês e um abs!
MARCELO.TREZE 10/02/2017 15:14:32
#471542 Resposta escolhida
ANTES DE QUALQUER COISA TENTE 

  For itens = 1 To .RecordCount - 1
PHLIMA 10/02/2017 16:55:02
#471547
Citação:

:
ANTES DE QUALQUER COISA TENTE 

  For itens = 1 To .RecordCount - 1



Marcelo, obrigado pela atenção meu amigo!

Realizei a alteração mas o erro persiste, ou seja, após a 10 etiqueta impressa o erro é exibido!

Abs.
MARCELO.TREZE 10/02/2017 17:18:50
#471549
acho que ja sei
vamos tentar isso

Private Sub Command1_Click()
    itens = 0
    With rst1
         .Sort = [Ô]NUMLOT ASC[Ô]
         .MoveFirst
         Open [Ô]LPT1[Ô] For Output As #1 

         For itens = 1 To .RecordCount
             Label2.Caption = .AbsolutePosition
                  Print #1, [Ô]^XA[Ô]
                  Print #1, [Ô]^POI[Ô]
                  Print #1, [Ô]^FO150,470[Ô]
                  Print #1, [Ô]^A0B,50,35^FDLOTE^FS[Ô]
                  Print #1, [Ô]^FO200,200[Ô]
                  Print #1, [Ô]^BY4^BCB,130,350^FD[Ô] & .Fields([Ô]NUMLOT[Ô]) & [Ô]^FS[Ô]
                  Print #1, [Ô]^FO410,400[Ô]
                  Print #1, [Ô]^A0B,50,35^FDPESO LIQUIDO^FS[Ô]
                  Print #1, [Ô]^FO460,400[Ô]
                  Print #1, [Ô]^BY3^BCB,130,350^FD[Ô] & .Fields([Ô]PESOLIQ[Ô]) & [Ô]^FS[Ô]
                  Print #1, [Ô]^PQ1[Ô]
                  Print #1, [Ô]^XZ[Ô]
             .MoveNext
         Next
             Close #1

    End With
End Sub
PHLIMA 10/02/2017 20:42:39
#471562
Citação:

:
acho que ja sei
vamos tentar isso

Private Sub Command1_Click()
    itens = 0
    With rst1
         .Sort = [Ô]NUMLOT ASC[Ô]
         .MoveFirst
         Open [Ô]LPT1[Ô] For Output As #1 

         For itens = 1 To .RecordCount
             Label2.Caption = .AbsolutePosition
                  Print #1, [Ô]^XA[Ô]
                  Print #1, [Ô]^POI[Ô]
                  Print #1, [Ô]^FO150,470[Ô]
                  Print #1, [Ô]^A0B,50,35^FDLOTE^FS[Ô]
                  Print #1, [Ô]^FO200,200[Ô]
                  Print #1, [Ô]^BY4^BCB,130,350^FD[Ô] & .Fields([Ô]NUMLOT[Ô]) & [Ô]^FS[Ô]
                  Print #1, [Ô]^FO410,400[Ô]
                  Print #1, [Ô]^A0B,50,35^FDPESO LIQUIDO^FS[Ô]
                  Print #1, [Ô]^FO460,400[Ô]
                  Print #1, [Ô]^BY3^BCB,130,350^FD[Ô] & .Fields([Ô]PESOLIQ[Ô]) & [Ô]^FS[Ô]
                  Print #1, [Ô]^PQ1[Ô]
                  Print #1, [Ô]^XZ[Ô]
             .MoveNext
         Next
             Close #1

    End With
End Sub



Marcelo, boa noite!!

Amigão, na segunda-feira estarei realizando o teste do código modificado por você e retorno aqui no forum o resultado.

Independente do resultado eu quero te agradecer pelo seu empenho em ajudar-me blz?

Abs e um excelente final de semana parceiro!
PHLIMA 13/02/2017 15:47:08
#471613
Olá Marcelo, tudo bem contigo?

O código agora esta funcionando perfeitamente!!!!

Muito obrigado pela ajuda parceiro.

Abs.
Tópico encerrado , respostas não são mais permitidas
Voltar