Impresion de muchos datos solo de una vez

me resulto, pero no en todos los cursos hay 45 alumnos esto no discrimino e
imprimio todos los 45 por ejemplo en 1ro hay solamente 28 alumnos.

bueno gracias. y espero me ayudes.
saludos.
Pancho.

"Xdc" escribió:

ajajaja gracias AnSanVal, sabes me resulto era lo que queria, pero te cuento
algo la impresion empezo desde el momento que presione ejecutar y no queria
imprimirlos ahora (bueno no en ese momento) no hay manera de convertir esta
instruccion en un boton?? que al presionarlo se imprima todo que el caption
diga imprimir curso completo.

bueno yo estoy probando a ver que sale. jiji

saludos y muchas gracias.
Pancho.

Hola Pancho.

no hay manera de convertir esta instruccion en un boton??

Si coloca el botón en la hoja y asignale el código.

...no en todos los cursos hay 45 alumnos ...

Cambia el código por:

Sub Imprimir()
Dim num As Integer
Dim hasta As String
hasta = InputBox("¿Cuantos alumnos tiene el curso?", "Control de
impresión", 45)
If hasta = "" Then Exit Sub
For num = 1 To Val(hasta)
Cells(1, 1).Value = num
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next num
End Sub

Saludos desde Tenerife.

Gracias AnSanVal lo del botn ya me habia resultado nada mas que no sabia
como preguntar por la cantidad de alumnos, pero ya esta listo gracias a ti.

ahora esto fue lo que hice.

dentro de la hoja pegue 1 boton 1 combobox y 1 control de números, para
darle la posibilidad al usuario de imprimir nada + 1 alumno a eleccion sin
tener que modificar el numero sino que solo seleccionandolo( bueno ahi cai en
algo pero es minimo, debe estar abierto otro archivo ("listasXcurso") para
que el listfill del combobox se llene, no se como dejarlo para que se haga
automatico sin tener que abrir el otro archivo) pues bueno el boton que do
impecable y este es el codigo que deje modificado con el que tu me diste.:


Private Sub CommandButton1_Click()
Dim num As Integer
Dim hasta As String
hasta = InputBox("¿Cuantos alumnos tiene el curso?", "Control de impresión
", 45)
If hasta = "" Then Exit Sub
For num = 1 To Val(hasta)
Cells(12, 4).Value = num
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next num
End Sub

si ves la celda en cuestion es la D12 (ni veas cuanto me costo hayar cual
era jaja) que rusticamente antes habia de llenarse a manito jiji para ir
intercambiando entre 1 y 1 para imprimirlos todos. pues na me has ayudado
mucho muchas pero muchas gracias.

P.D.: a ver si sabes algo lo de que el archivo debe estar abierto, me
gustaria no tener que abrirlo para que el combobox se llenase solo.

saludos nuevamente.
Pancho.

P.D.: a ver si sabes algo lo de que el archivo debe estar abierto, me
gustaria no tener que abrirlo para que el combobox se llenase solo.

Hola Pancho.
En espera de que alguien te de una solución mejor, lo que yo he hecho es: en
una zona de la hoja que esté apartada para que no moleste visualmente (puede
estar oculta), hago referencia a las celdas de la lista del otro archivo,
con lo que obtengo, en la propia hoja, una copia de la lista. En el ComboBox
o ListBox, hago referencia a esta nueva lista y ya tengo el listado sin
abrir el otro archivo. Espero haberme explicado.

Saludos desde Tenerife.

si entendi rebien, mira que facil no se me habia ocurrido, pues nievamente
gracias, me has solucionado mucho.

hasta que salga otra solucion me quedo con esta, ya que oculte las columnas
y es como si no hubiese nada, no problem todo funciona =.

Saludos.
Pancho.