problemas con listados

[David]

Iniciado por ENAT_123

Bueno el metodo es abrari la base de datos y con do until eof voy impro,miendo uno por uno , añado una variable que me sirve para numerarlos y quiero que cuqadno la variable llegue a 20 se detenga y espere a que pulse una tecla para continuar....

Creo que podrías hacer algo así:

Código:

 
Private OKPrint As Boolean
Private Sub Imprimir()
Dim ValCount As Integer
Do
        'Aquí el código de impresión
        ValCount = ValCount + 1
        If ValCount = 20 Then
                 ValCount = 0
                 Do
                         DoEvents
                 Loop While Not OKPrint
                 OKPrint = False
        End If
Loop
End Sub

Luego en el evento KeyDown del Form colocas a que OKPrint sea Verdadero. Espero que te funcione...