SoloCodigo

Código para que hagas cuantas pausas necesites de todos los milisegundos del mundo...

Saludos y suerte

Bueno, nada, nada es imposible. Este código sólo utiliza una API; pero más simple no puede ser.

Que te guste y te sirva.  Saludos

No conozco V.net, pero aunque sé que tiene importantes diferencias con las anteriores versiones, en este caso no sería lógico que cambiara...
En VB 6.0 dirías en el formulario Form2:

For n = 0 To Form1.List1.ListCount - 1
List1.AddItem Form1.List1.List(n)
next n

Ah; y te aconsejo que borres el otro mensaje, que este mismo repetido

Saludos y suerte

Hola, Clinforsat:

Hay cosas que, como diría un castizo, "no pueden ser y además son imposibles..." Un DataReport es un objeto derivado de la primitiva versión de Crystal Report, que se basa en la presentación gráfica (?) de un DataEnvironment.  No cabe prescindir de la base de ese objeto. Al menos eso pienso yo.

Otra cosa es que las propiedades del DataEnvironment las puedas definir por código, de forma que te permita actualizar los criterios en tiempo de diseño. Eso sí que es posible, y de hecho sé que tú lo estás haciendo así, a juzgar por esa otra consulta que has presentado simultáneamente a ésta, y que te está solucionando la Maestra de C.R., angelescj.

Saludos y suerte

Te incluyo "tal cual" todo el código que empleo yo para hacer eso mismo que tú solicitas.
No me "entretengo" en purgarle las variables que a tí van a sobrarte, ya las quitarás tú...
Supongo que no te resulte difícil adaptar el código a tu caso, y que cumpla los requisitos que necesitas.

Saludos y suerte

Te adjunto un código que funciona, a pesar de que sé que no es exactamente lo que tú solicitas. Pero ojalá resuelva tus dudas existenciales y compruebes que todavía estás vivo y muy vivo...

Saludos y suerte

No conozco ningún "control" específico que haga lo que tú pides; pero hay tienes un pequeño proyecto que te ofrece un truco con el que puedes simular esa función.

Saludos y suerte

A ver si te sirve este código:

' Ponemos, por ejemplo, 1 pulgada de márgenes
Const TOP_MARGIN = 1440   ' Margen superior
Const LEFT_MARGIN = 1440  ' Define aquí el margen izquierdo que desees

Dim bottom_margin As Single
   ' Define el margen inferior, con una pulgada también
    bottom_margin = Printer.ScaleTop + Printer.ScaleHeight - 1440
   
    ' Empieza la impresión
    Printer.CurrentY = TOP_MARGIN
    For I = 0 to 20
        Printer.CurrentX = LEFT_MARGIN
        Printer.Print Format$(I, "00")  ' Puedes poner formato para valores con decimales "##0.00"

        If Printer.CurrentY >= bottom_margin Then
            ' Harías un salto de página si el bucle no fuera de sólo 20 líneas
            Printer.NewPage
            Printer.CurrentY = TOP_MARGIN
        End If

    Next

    ' Termina la impresión
    Printer.EndDoc

Espero que también te vaya al peluche...

Un abrazo

Mira, este es el ejemplo que te viene en Visual Studio:

Sub TableDefX()
Dim dbsNeptuno As Database
Dim tdfNuevo As TableDef
Dim tdfBucle As TableDef
Dim prpBucle As Property

Set dbsNeptuno = OpenDatabase "Neptuno.mdb")

' Crea un objeto TableDef nuevo, anexa los objetos
' Field a la colección Fields y anexa el objeto
' TableDef a la colección TableDefs del objeto Database.
Set tdfNuevo = dbsNeptuno.CreateTableDef("NuevoTableDef")
tdfNuevo.Fields.Append tdfNuevo.CreateField("Fecha", dbDate)
dbsNeptuno.TableDefs.Append tdfNuevo

With dbsNeptuno
Debug.Print .TableDefs.Count & _
"TableDefs en " & .Name

' Enumera la colección TableDefs.
For Each tdfBucle In .TableDefs
Debug.Print " " & tdfBucle.Name
Next tdfBucle

With tdfNuevo
Debug.Print "Propiedades de " & .Name

' Enumera la colección Properties del objeto
' TableDef nuevo, sólo imprime las propiedades con valores no vacíos.
For Each prpBucle In .Properties
Debug.Print " " & prpBucle.Name & " - " & _
IIf(prpBucle = "", "[vacío]", prpBucle)
Next prpBucle

End With

' Elimina el TableDef nuevo ya que esto es un ejemplo.
.TableDefs.Delete tdfNuevo.Name
.Close
End With
End Sub

Como ves, te viene el código para crearla y luego para borrarla. Y esta segunda parte coincide, yo creo, con las indicaciones que te daba Angeles. De todos modos, ya ves que esta confusión se ha generado porque en lugar de responder en el primer mensaje, has creado un mensaje nuevo con el mismo tema...

Espero que te funcione.  Saludos

Por lo visto tu problema es que puedas quedarte sin información si sufres un corte inesperado de energía.

¿Por qué no mandas las líneas a un fichero, y cuando el número de líneas sea X (60 por ejemplo) haces un volcado a impresora y una inicialización del fichero?

Si te va la solución, no olvides el imprimir e inicializar el fichero también antes de salir de la aplicación...

Saludos y suerte

Yo creo que por consejo tuyo estuve haciendo unas pruebas con Setup Factory 6.0.  Me bajé la versión demo y probablemente por novato la encontré muy engorrosa (con lo fácil que es el PDCMDLN.EXE de vb)

¿Tendrías inconveniente en enviarme un e-mail al [email:2mzinp8d]jmovillac@hotmail.com[/email:2mzinp8d] iniciándome en el manejo de Setup Factory 6.0, y sobre todo convenciéndome de sus ventajas?  Porque estoy harto de depender de Windows'98 sólo para programar y empaquetar Vb.

Muchas gracias y un abrazo de este pucelano, de la calle Cantarranas!!! (la que bajaba de la Pza. de la Universidad al Teatro Calderón), aunque ya llevo 37 años en Burgos.

Eso es a lo que huele tu problema: me da la impresión de que tú compilas el aplicativo en Xp y luego lo ejecutas en '98.

Si lo hicieras al revés no te daría problema, al menos ésa ha sido la solución que yo he tomado para evitar conflictos de versiones. Sobre todo con el Mscomctl.ocx.  Yo ahora tengo un disco con Windows'98 en el que preparo las instalaciones. Pero no puedo editarlas con Xp, porque me incluye librerías que luego inhabilitan la instalación para '98.

Espero que alguien NOS dé otra solución más práctica, a pesar de que la mía es segura (pero un coñazo, lo reconozco)

Saludos y suerte