SoloCodigo

Usa el siguiente código para seleccionar la impresora

CrystalReport1.PrinterSelect

Esto te abre la ventana de configuración de impresora

Salu2

No es un ejemplo exáctamente, pero me ha parecido que te puede interesar

http://www.upt.edu.pe/EPIS/Taller1/Capi ... 0Basic.ppt

Salu2

Private Sub ucbOK_Click()
Dim AppOutlook As Object
Dim Itm As Object

  cAsunto = “Asunto del correo”
  cCuerpo = “Cuerpo del correo”
 
  Set AppOutlook = CreateObject ("Outlook.Application")

      'mandarlo por correo
      Set Itm = AppOutlook.createitem(0)

      With Itm
        '.DeleteAfterSubmit = True ‘(Con esto consigues que no guarde copia en enviados)
        .Subject = cAsunto
        .To = "Hola@Tio.com"
        .Body = cCuerpo
        .Attachments.Add “Ruta y Nombre del Fichero a Añadir”
        .Send
      End With

    AppExcel.Quit
    Set AppExcel = Nothing
 
End Sub

Hola a todos

Tengo el siguiemte problema:

En una pantalla con bastantes objetos textbox, combos y botones, tengo un TabControl con 5 tabs. Todo funciona perfectamente, pero me pasa el siguiente caso de expediente X.

Esta pantalla muestra la información de cada uno de los registros de una tabla. Con un navegador puedo ir pasando de un registro a otro, sin cerrar la ventana, de manera que la información se va mostrando en la pantalla registro a registro.

Uno de los combos se rellena dependiendo de otro combo, es decir, que si en el combo1 selecciono una opcion, el combo2 tiene unos datos diferentes que si selecciono la opción 2, la 3, etc...

El problema en sí radica en que cuando paso del primer al segundo registro, me desaparece el combo2, pero solo visualmente, puesto que si hago clic con el ratón en la zona donde se supone que está, aparece. Pero eso no es todo, si paso de este segundo registro al tercero, vuelve a aparecer.

Vosotros direis, ¡esto es un problema de refresco de pantalla y se soluciona con un .Refresh! Claro, lo mismo que yo he pensado y sí, en un principio parece que funciona. Le pongo el Refresh, me muevo por el navegador y el combo ya no desaparece, pero ahora, lo que me desaparece es la mitad de los otros controles, como si el ordenador fuera incapaz de refrescar tantos campos.

Resumiendo, Si pongo el Refresh veo el combo pero no el resto de la pantalla, pero si no lo pongo, veo el resto de la pantalla pero no el combo.

A que mola!!!

A ver, ideas???

Creo que automáticamente no es posible, per antes de presentar el formulario puedes dimensionarlo de la siguiente manera:

grdFlexGrid.ColWidth(1) = 2000
grdFlexGrid.ColWidth(2) = 320
.
.
.


Salu2

Hola hjom

He bajado el ejemplo para verlo y no puedo abrirlo. Puedes tu? o es mi descompresor ?

Salu2

Este nuevo registro lo tienes tu. Si alguien ejecuta otro addnew, creará otro registro. A la hora de guardar cada uno guardará el suyo.

Solo debes tener en cuenta el caso que tengas codigos para cada uno de los registros. Me explico:

Supongamos que tienes una tabla de poblaciones con dos campos codigo y descripcion (1- Barcelona; 2- Madrid ...)

Si tienes una pantalla de mantenimiento, es decir, donde puedas crear poblaciones nuevas,  siendo el código un campo que se calcule antes de insertar ¿Cómo puedes controlarías que dos usuarios no intentaran introducir el mismo código?

No se si te he liado o me has entendido.

Si no entiendes algo dímelo

Salu2

Deberías editar el código en una máquina con windows98, y registrar en el proyecto la OCX del sistema. Siempre te funcionará  una OCX o DLL de un lenguaje o sistema inferior en otro superior, pero al rebés no, puesto que se creará un conflicto de versiones y compatibilidades.

Salu2

Mírate esta página

http://guille.costasol.net/vb_crystal.htm

Salu2

Hola

Perdona, he ido tan deprisa que me he confundido de objeto.

Debes hacer el if con la propiedad Value

if optionButton1.Value= vbTrue then
label1.caption=val(label1.caption) + Val(OptionButton1.Tag)
end if

Miras si el valor es Verdadero o 1, ahora no me acuerdo. Si es verdadero quiere decir que lo has seleccionado, por lo tanto debes sumar.

Val() retorna el valor numérico al que corresponde un texto. de esta manera ya no te concatenará las cadenas, como te hacía hasta ahora.

Escribe tus dudas aquí en el foro, lo consulto muy amenudo. En el trabajo no puedo instalar aplicaciones, por lo que solo puedes contactar conmigo mediante el foro o los correos que aparecen en mis mensajes.

Esto no es muy complejo, así que tranquilo, entre los dos lo sacaremos

Salu2

Puedes asignar el valor que quieras a la propiedad .Tag del OptionButton.

Està para cosas como estas. Le asignas un número y luego puedes leerlo en tiempo de ejecución

Salu2

Hola Jose Antonio

Da la impresión que el objeto crystal que utilizas guarda la configuración que les has asignado al ejecutar el primer listado.

Prueba de reiniciarlo asignando los siguientes valores alos parametros que te comento. (o solo los que utilices)
Esto siempre debes hacerlo antes de lanzar un listado y asignarle los parámetros correctos, para asegurarte que no tiene valores extraños

    .ReportFileName = Empty
    .WindowTitle = Empty
    .GroupSelectionFormula = Empty
    .SelectionFormula = Empty
    .SQLQuery = Empty

Espero te sea útil

Salu2

PD: Por cierto, en Octubre estube por tu tierra. El viaje una paliza, pero mereció la pena.