SoloCodigo

Hola MindEye.

Utiliza la propiedad ForeColor del objeto printer:
.
.
.
Printer.ForeColor = vbYellow
Printer.Print "Texto amarillo"
Printer.ForeColor = vbRed
Printer.Print "Texto rojo"
.
.
.
Abur.

Hola eli_moran.

Para mi, desde luego que utilizar recordsets es lo suyo...

Chao.

Hola rechy.

Usa algo de este estilo:


Abur.

Hola eli_moran.

Podrías utilizar un control DataGrid para modificar valores sobre la rejilla, o utilizar un FlexGrid, o incluso un ListView1 (vista lvwReport) para mostrar registros, editando/añadiendo los valores de los campos sobre textbox.

Abur.

Hola eli.

Lo principal para hacer una buena aplicación de este estilo es tener una base de datos bien diseñada. El motor que elijas ya es cosa tuya y de los medios de los que dispongas. Mediante ADO puedes tener acceso a datos en cualquier bd que suministre un proveedor de acceso a datos OleDb. SQL es para mi la herramienta más cómoda y funcional para atacar la bd.

Para crear la aplicación en vb, sin duda tendrás que usar controles textbox, labels, comandbutton, tal vez algún tipo de rejilla, picturebox, ... vamos, lo típico. La apariencia y distribución de los controles, ya es cosa del arte y gusto de cada uno... , poco tiene que ver con la programación en si y muchas veces puede ser lo que dé a tu aplicación un toque atractivo para el usuario, (en ocasiones y según que usuario más que la propia eficacia de la aplicación).

Para realizar mantenimientos de tablas  (altas, bajas, modis, consulta), suelo utilizar una misma vista de la ventana en la que hago que los controles para introducir datos cambien su estado a bloqueado o no bloqueado según el valor de algún indicador, que también valdrá para comprobar que acción hay que tomar  (INSERT, UPDATE, DELETE)  cuando los datos son confirmados/validados.
Lo que comentas de los tabs puede estar bien, pero claro está, utilizando los mismos controles para cualquier tab seleccionada y el valor de la clave como indicador de la acción.

En fin... un tema muy general para tratar en un post.

Suerte.

Hola nestor q

Efectivamente, como tú dices, Width devuelve o establece el tamaño del Ancho de papel actual para la impresora y ScaleWidth el ancho imprimible, de igual forma que ScaleWidth aplicada a un MdiForm, que devuelve el ancho no ocupado por controles PictureBox (o alineables, supongo) en el MdiForm.

La mayoría de las impresoras dejan un margen no imprimible (independientemente del margen que tú estés usando) a los lados del papel, si bien en algunas es posible definir un valor (edge to edge) que indica a la impresora que imprima desde un borde hasta otro del papel. En caso de que la impresora pintase 'edge to edge' los valores para Width y ScaleWidth coincidirían.

Otra causa de truncamiento, evidente, podría ser que el papel cargado en la impresora fuera de menor ancho que el configurado... pero está claro que este no es tu caso.

Suerte.

Otra forma que se me ocurre es utilizar sólo un formulario: algo así como juntar los dos formularios en uno con los controles de los dos, tal vez agrupados en frames, y según lo necesites, al cambiar alguna propiedad redimensionar, hacer visible o invisible, etc...

Tal vez en tú caso no merece la pena ponerse a hacer algo así, ya que diseñar un formulario de esta forma es un asunto algo engorroso aunque sencillo (aparte del coste en memoria que podría suponer tener un formulario excesivamente cargado de controles, y más si sólo se van a utilizar muy ocasionalmente).

También podrías pasar al segundo formulario el recordset que contiene los datos del primer combo...

Por lo pronto, ni conozco, ni se me ocurren otras formas de hacer lo que pretendes, a ver si alguién aporta más...

Suerte.

Hola.

Ten en cuenta que si en alguno de los controles contenidos en el formulario, tienes código para el mismo evento que en el formulario (me explico: en el mismo form tienes definido el evento KeyPress, por ejemplo, para el form y para otro control), siempre se desencadenará el evento del control antes que el del formulario a no ser que establezcas la propiedad del formulario KeyPreview=True.

Abur.

En este código no es necesario agregar referencia de ningún tipo.

Con Set dbW = GetObject(App.Path & "\Tiradentes2.mdb") obtenemos la referencia necesaria a la base de datos (si es que existe, claro) en el objeto dbW, si la base de datos no está abierta, se crea una nueva instancia de la aplicación. Las variables de objeto están declaradas como object.
El 'CreateObject' y el 'OpenCurrentDatabase' sobran...

El código original esta probado satisfactoriamente con access97, pero recuerdo que a Gerard no se le abría la vista previa del informe (no sé como
lo solucionó al final), usaba wXp.

El bucle que comprueba si en los informes abiertos de la bd ya existe uno con igual nombre del que deseamos abrir, es necesario para el correcto funcionamiento del filtro (El valor de dbW.Reports.Count no indica el número de informes en la bd, como pudiera parecer, sino que muestra el número de informes abiertos en ese momento).

Loco:
referente a que no te funcione el SQL que indicas, te diré que es lógico...
Prueba una sentencia como esta:
El uso que haces del carácter comodín % es incorrecto, en todo caso debería ser algo así como:

El funcionamiento de los parámetros que se hubieran definido en la consulta o en el filtro del informe también está comprobado con access97.

Abur.

Hola de nuevo nestor g.

Debes modificar el tamaño del PictureBox para ajustarlo al tamaño de la página que piensas imprimir (recuerda también establecer la propiedad AutoRedraw=True).

Como me resulta complicado de explicar, mejor te adjunto un ejemplo que acabo antes.

Abur.

Hola Liquid_Snake.

1 - Prueba algo de este estilo:
El código recorre la selección mostrando en un cuadro de diálogo el valor de las celdas seleccionadas.

2 - Usa la misma filosofia: utiliza la propiedad TextMatrix para obtener/asignar valores por fila y columna. Para almacenar los datos, valora tu mismo que es lo que te coviene (archivo de texto, tabla, etc...).

Suerte.

Hola rechy.

Declara la variable RHOT a nivel de módulo como una matriz a dimensionar dinámicamente:


De esta forma cada vez que llames a la función almacenas el valor que te interese en una nueva dimensión RHOT(intIndex) de forma que puedes tener disponibles todos los valores cuando te interese.

Suerte.