creating report to be print

gracias por tu ayuda, ayer estuve trabajando en access y logre hacer lo que
necesitaba, pero ahora tengo un pequeno problema tengo cuatro columnas una de
ellas es un check box (yes/no), cuando marco los registros que deseo imprimir
en los check boxes este genera un reporte de los registros seleccionados,
ahora el problema es que desearia hacer un boton para marcar todo o nada (es
decir que puedeo desmarcar la selecciones hechas o marcar todos les
registros).

ten en cuenta que no soy muy savy con VB, pero si me explicas seguro lo
podre hacer!!!!!!!!

ten en cuenta que estoy trabajando en access

gracias

"Héctor Miguel" wrote:

Mostrar la cita

hola, ?

> ... tengo un problema con la solucion que me estas planteando
> ... no voy a ser yo quien va a elegir los datos a imprimir, va a ser una persona cualquiera
> ... la idea es que esta vea la lista de los codigos y descripciones y con un click en un check box o algo asi
> ... ir eligiendo de la lista lo que necesite y genere un reporte de esos datos... para ser impresos...

el siguiente 'procedimiento' [seguramente] te parecera un pelin 'largo' :-((
[te aseguro que si lo ejecutas 'bien'... su 'operacion' sera lo suficientemente 'sencilla' y amigable para la otra persona] :D
[toma en cuenta que 'sigo adivinando' todo tipo de 'imponderables' que no han salido 'a la luz' en tus consultas] :))

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

1) copia los encabezados [supuestos] para codigo y descripcion... de 'A1:B1' a:-> 'D1:E1' y: -> 'G1:H1'

2) define los siguientes 'nombres' [menu: insertar / nombre / definir...] usando las formulas sugeridas:
[toma nota que mi sistema usa como separador de argumentos a la coma ',' NO al punto y coma ';'] :D
nombre: formula en el campo 'se refiere a:'
Listado =desref($a$1,,,contara($a:$a),2)
Lista =desref($a$1,1,,contara($a:$a)-1,2)
Filtro =desref($d$1,,,contara($d:$d),2)
Salida =$g$1:$h$1
Reporte =desref($g$1,,,contara($g:$g),2)

-> despues... defines una 'area de impresion' [cualquiera] desde [menu] archivo / area de impresion / establecer area de impresion
y... re/defines el rango asignado, cambiandolo por el nombre definido como: -> Reporte
[cuando vayas a realizar la impresion... sera el rango que contenga el extracto de los filtros avanzados] ;)

3) incrusta/inserta/... en 'esa' hoja, un control de lista de la coleccion Microsoft Forms 2.0 ListBox
-> muestra la barra de herramientas 'cuadro de controles' -> pulsa en el boton 'mas controles...'
lo encontraras en el listado por orden alfabetico

4) dale las dimensiones y ubicacion que mejor consideres adecuadas [p.e. entre las columnas 'D y E']
[luego terminar con el 'modo de die#o' pusando el boton apropiado de la barra de herramientas] ;)

5) copia/pega las siguientes lineas -> en el modulo de codigo de 'esa' hoja:
[puedes hacer un click-secundario sobre la etiqueta con el nombre de la hoja y seleccionas: -> ver codigo]

Private Sub ListBox1_GotFocus()
With Me.ListBox1
.ColumnCount = 2
.ColumnHeads = True
.ColumnWidths = "40;50"
.MultiSelect = fmMultiSelectMulti
.ListFillRange = "lista"
End With
Prepara
End Sub
Private Sub ListBox1_Change()
Prepara
Dim Codigo As Integer, Fila As Byte
With Me.ListBox1
For Codigo = 0 To .ListCount - 1
If .Selected(Codigo) Then
[d2].Offset(Fila) = .List(Codigo, 0)
[e2].Offset(Fila) = .List(Codigo, 1)
Fila = Fila + 1
End If
Next
End With
End Sub
Private Sub ListBox1_LostFocus()
[listado].AdvancedFilter xlFilterCopy, [filtro], [salida]
End Sub
Private Sub Prepara()
On Error Resume Next
[filtro].Offset(1).ClearContents
[reporte].Offset(1).ClearContents
End Sub

6) cierra el editor de vba {Alt}+{F4} regresas a excel y comienzas a probar/ajustar/adaptar/... :))