como imprimir todos los registros

[william_085]

hola, quisier que me ayudaran con una duda que tengo.

tengo un programa que al darle clic a un boton me guarda unos datos y los manda a imprimir por fecha, me imprime bien y todo, pero el ultimo dato que meti no me lo imprime, solo el ultimo dato no me lo imprime.

les pongo el codigo:

On Local Error Resume Next
Dim i As Integer
If Metida = True Then
Exit Sub
End If
Dim actual As Date

Dim J As Integer

i = 1

Call total
res = MsgBox("¿ESTA USTED SEGURO QUE EL PEDIDO ESTA CORRECTO?", vbYesNo, "IMPRESION/GUARDADO")


If res = vbYes Then



Do While i < MSHFlexGrid1.Rows



If Me.MSHFlexGrid1.TextMatrix(i, 3) = "" And Me.MSHFlexGrid1.TextMatrix(i, 4) = "" And Me.MSHFlexGrid1.TextMatrix(i, 5) = "" Then


Else

Dim db As New ADODB.Connection
Dim adoPrimaryRS As New ADODB.Recordset
Set db = New ADODB.Connection
Set adoPrimaryRS = New ADODB.Recordset
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & "C:\WINDOWS\sucursal\sucursal.mdb" ' base path es direccionamiento a la base de datos
adoPrimaryRS.Open "Select clave,sucursal,pedido,existencia,vuelta1,vuelta2,v uelta3,fecha,total from pedidos", db, adOpenStatic, adLockOptimistic
adoPrimaryRS.AddNew

adoPrimaryRS!clave = "NoVent"
adoPrimaryRS!sucursal = Label1
adoPrimaryRS!pedido = Me.MSHFlexGrid1.TextMatrix(i, 1)
adoPrimaryRS!existencia = Val(Me.MSHFlexGrid1.TextMatrix(i, 2))
adoPrimaryRS!vuelta1 = Val(Me.MSHFlexGrid1.TextMatrix(i, 3))
adoPrimaryRS!vuelta2 = Val(Me.MSHFlexGrid1.TextMatrix(i, 4))
adoPrimaryRS!vuelta3 = Val(Me.MSHFlexGrid1.TextMatrix(i, 5))
adoPrimaryRS!total = Val(Me.MSHFlexGrid1.TextMatrix(i, 2)) + Val(Me.MSHFlexGrid1.TextMatrix(i, 3)) + Val(Me.MSHFlexGrid1.TextMatrix(i, 4)) + Val(Me.MSHFlexGrid1.TextMatrix(i, 5))
adoPrimaryRS!fecha = Date
'adoPrimaryRS!hora = Time
'adoPrimaryRS!cantidad = Val(Me.MSHFlexGrid1.TextMatrix(i, 4))
'adoPrimaryRS!Total = Val(Me.MSHFlexGrid1.TextMatrix(i, 5))
adoPrimaryRS.Update





MSHFlexGrid1.TextMatrix(i, 3) = ""
MSHFlexGrid1.TextMatrix(i, 4) = ""
MSHFlexGrid1.TextMatrix(i, 5) = ""
MSHFlexGrid1.TextMatrix(i, 6) = ""


End If


i = i + 1
Loop
Else


End If



Dim db2 As New ADODB.Connection

db2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "C:\WINDOWS\Pollo Feliz\sucursal.mdb" & ";Persist Security Info=False"

actual = Date

rss.Open "select clave,pedido,vuelta1,vuelta2,vuelta3 from pedidos where clave like 'NoVent' and fecha = #" & Format(actual, "mm/dd/yyyy") & "# ", db2, adOpenStatic, adLockOptimistic


Open "\\SERVER\EPSONTM-" For Output As #1

Print #1, Tab(0); "PEDIDO DEL DIA";
Print #1, Tab(0); Date
Print #1, Tab(0); Time
Print #1, " "
Print #1, Tab(0); "Producto"; Tab(24); "V1"; Tab(31); "V2"; Tab(38); "V3 ";
Print #1, "________________________________________"
rss.MoveFirst
Do While Not rss.EOF
Print #1, Tab(0); rss!pedido; Tab(23); rss!vuelta1; Tab(30); rss!vuelta2; Tab(37); rss!vuelta3;
rss.MoveNext
Loop
db2.Close
Print #1, Chr$(&H1B); Chr$(&H64); Chr$(&H5);
Print #1, Chr$(29) + Chr$(86) + "0"
Print #1, Tab(6); "______________________________"
Print #1, Tab(6); "FIRMA DE LA CAJERA O ENCARGADO"
Print #1, Chr$(&H1B); Chr$(&H64); Chr$(&H5);
Print #1, Chr$(29) + Chr$(86) + "0"
Close #1

no se que este pasando, si me guarda bien todos los datos en la tabla, pero no me imprime solo el ultimo dato que se guardo en la tabla, si guardo solo 1 fila del grid me manda a imprimir un dato vacio

[Avellaneda]

Hola, fíjate en esta instrucción:

Do While i < MSHFlexGrid1.Rows
Si el Grid tiene 20 filas imprimirá sólo hasta la 19, ya que la 20 no es menor al número de filas sino igual. Cámbiala por esta otra:

Do While i <= MSHFlexGrid1.Rows

[william_085]

gracias avellaneda.

lo que me di cuenta es que agrege un msgbox despues del guardado de los datos y solamente asi si me imprime los datos completos

[David]

Iniciado por william_085

gracias avellaneda.

lo que me di cuenta es que agrege un msgbox despues del guardado de los datos y solamente asi si me imprime los datos completos

Veamos, ¿por qué no utilizas la primera conexión para abrir el recordset e imprimir los datos?

P.S.: ¿Has intentado quitar el On Error Resume Next para saber si no está tirando error en algún lado?

[william_085]

hola david, te refieres a la conexion a la base de datos? uso la misma que tengo arriba??

aparte del msgbox que otra cosa puedo hacer para ganar ese par de segundos que me permitan imprimir todos los registros?



gracias

[David]

Iniciado por william_085

hola david, te refieres a la conexion a la base de datos? uso la misma que tengo arriba??

aparte del msgbox que otra cosa puedo hacer para ganar ese par de segundos que me permitan imprimir todos los registros?



gracias

Sí, puedes usar la misma conexión que tienes arriba. Para lo segundo puedes usar la API (Sleep, si no mal lo recuerdo)...

[william_085]

gracias david, use esto asi.

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)



y donde puse el msgbox para que me diera tiempo, le puse asi

sleep 5000

y manda a imprimir, no se si a esto te referias david.

gracias

[David]

Exactamente, a eso me refería ¿te ha funcionado?

[william_085]

me funciono exelente.

muchas gracias