Cuadro combinado e impresión de datos

Héctor Miguel:

Me permites que te envié copia del modelo a tu correo?

Gracias,

Saludos.

hola, Manuel !

... copia del modelo a tu correo?

ya sabes que hacer... solo quita de la direccion el 'NO...SPAM...PLS' ;)

saludos,
hector.

hola, Manuel ! [para no dejar al grupo -que no recibio el archivo- 'fuera de la jugada'] :D

1) existe una hoja ['base de datos'] que contiene un rango nombrado ['base'] de varias columnas
2) en la hoja 'formato de recibo' existe un combobox ['nom'] de la barra de herramientas 'cuadro de controles'
3) el combo 'muestra' la primer columna del rango 'base' [obviamente se refiere al nombre]
y esta vinculado a la celda 'I4' donde deposita la segunda columna del rango 'base' [importe base del recibo]
4) existe ademas una 'ultima' fila [vacia] en el rango nombrado ['base'] supongo para ir agregando datos nuevos -?-
[y asumo que esta ultima fila debiera quedar fuera del 'bucle de impresion'] -?-
5) el 'chiste' es ir actulizando la 'seleccion' en el combobox y que automaticamente se deposite el importe en 'I4'
la lista/cuenta en objetos ActiveX inicia de 0 hasta n_elementos {-} 1 y requiere de un 'DoEvents' [para su refresco]

[finalmente] las correcciones 'menores' al codigo de la propuesta original son por el rango nombrado, el combo y el doevents :))

saludos,
hector.

Sub Impreson_controlada()
Dim Fila As Integer
With Worksheets("base de datos").Range("base")
For Fila = 1 To .Rows.Count - 1
ActiveSheet.OLEObjects("nom").Object.ListIndex = Fila - 1
DoEvents
ActiveSheet.PrintOut
If Fila Mod 25 = 0 Then
CreateObject("WScript.Shell").Popup _
"La impresora se esta tomando un descanso..." & vbCr & _
"Favor de NO cancelar este aviso !!!" & vbCr & _
"Este aviso desaparecera en 15 segundos...", 15, "Mensaje temporal"
End If
Next
End With
End Sub

Hola Héctor Miguel:

Eso era exactamente lo que se necesitaba; funciona de maravilla.

Te quedo altamente agradecido.

Cordial saludo,

Manuel

pd: Lo que no sabía como explicarte, era justamente el "chiste" [o sea
tu numeral 5)] ¡gracias!



Héctor Miguel ha escrito:

hola, Manuel ! [para no dejar al grupo -que no recibio el archivo- 'fuera de la jugada'] :D

1) existe una hoja ['base de datos'] que contiene un rango nombrado ['base'] de varias columnas
2) en la hoja 'formato de recibo' existe un combobox ['nom'] de la barra de herramientas 'cuadro de controles'
3) el combo 'muestra' la primer columna del rango 'base' [obviamente se refiere al nombre]
y esta vinculado a la celda 'I4' donde deposita la segunda columna del rango 'base' [importe base del recibo]
4) existe ademas una 'ultima' fila [vacia] en el rango nombrado ['base'] supongo para ir agregando datos nuevos -?-
[y asumo que esta ultima fila debiera quedar fuera del 'bucle de impresion'] -?-
5) el 'chiste' es ir actulizando la 'seleccion' en el combobox y que automaticamente se deposite el importe en 'I4'
la lista/cuenta en objetos ActiveX inicia de 0 hasta n_elementos {-} 1 y requiere de un 'DoEvents' [para su refresco]

[finalmente] las correcciones 'menores' al codigo de la propuesta original son por el rango nombrado, el combo y el doevents :))

saludos,
hector.

Sub Impreson_controlada()
Dim Fila As Integer
With Worksheets("base de datos").Range("base")
For Fila = 1 To .Rows.Count - 1
ActiveSheet.OLEObjects("nom").Object.ListIndex = Fila - 1
DoEvents
ActiveSheet.PrintOut
If Fila Mod 25 = 0 Then
CreateObject("WScript.Shell").Popup _
"La impresora se esta tomando un descanso..." & vbCr & _
"Favor de NO cancelar este aviso !!!" & vbCr & _
"Este aviso desaparecera en 15 segundos...", 15, "Mensaje temporal"
End If
Next
End With
End Sub