e ai galera será que alguem pode me ajudar?

Estou com um problema toda vez que mando imprimir na lpt1 o programa trava até acabar a impressão como faço para isso não acontecer?

é que tenho que fazer meu codigo dar uns loops em determinados momentos , mas quando isso ocorre trava e não consigo mais fazer o programa voltar.

 

Private Sub Command1_Click()
var = 1

Open "lpt1" For Output As #1

Do While var = 1
      
        Print #1, Tab(3); "v_letra"
        Print #1, Tab(3); "v_num"
       
        Call veri
       
Loop
Close #1
End Sub

Private Sub Command1_Click()
var = 1

Open "lpt1" For Output As #1

Do While var = 1
      
        Print #1, Tab(3); "v_letra"
        Print #1, Tab(3); "v_num"
       
        Call veri
        If NumAtualLoop / 25 = NumAtualLoop  25 then

           DoEvents ' Esse é um Ex. bem tosco... mas é pra vc ter uma idéia + ou - do que fazer pra evitar as pauleiras

        Endif
Loop
Close #1
End Sub

 

Bem qq coisa post daí. Abraços, Sidnei