problemas con listados

[ENAT_123]

Estoy haciendo un programa en el cual hago un listado de alumnos por pantalla, pero no se como hacer para que cuando se llene una pantalla, espere a que pulse una tecla para limpiar la pantalla y continuar. Alguien me puede ayudar?, basicamente lo que pretendo es que se pare el listado y que continue cuando pulse una tecla.
gracias

[David]

Iniciado por ENAT_123

Estoy haciendo un programa en el cual hago un listado de alumnos por pantalla, pero no se como hacer para que cuando se llene una pantalla, espere a que pulse una tecla para limpiar la pantalla y continuar. Alguien me puede ayudar?, basicamente lo que pretendo es que se pare el listado y que continue cuando pulse una tecla.
gracias

Depende del método que estás usando para mostrar el listado...

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

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

[ENAT_123]

GRACIAS POR EL CODIGO. funciona perfectamente. muchas gracias

[ENAT_123]

lo siento David, me funcionó dos o tres veces pero ahora se queda parado y no responde al presionar una tecla, no se que puede ser, se te ocurre por que ya no funciona?

[David]

Iniciado por ENAT_123

lo siento David, me funcionó dos o tres veces pero ahora se queda parado y no responde al presionar una tecla, no se que puede ser, se te ocurre por que ya no funciona?

Tal vez tengas otro control dentro del Form, la cual recibe el enfoque de modo que el Form en sí no recibe el evento KeyDown. Se puede solucionar modificando la propiedad KeyPreview (Creo que así se llama) del Form a True...

[ENAT_123]

Gracias David Ese Era El Problema.......... Eres Un Artista. Gracias