herley

Private Sub Text1_LostFocus() If Not IsNull(Text1.Text) Then Text1.Text = UCase(Text1.Text) End If End Sub

Lo que describes me paso a mi también la solución que tuve fue la siguiente: Al empaquetar con visual basic no incluir el crpe32.dll (porque sino no enpaqueta). Instalar la aplicación en el cliente y instalar también un reporte como .exe pra hacerlo...

No logre entenderte, por favor explicame mejor lo que quieres hacer, y que es lo que deseas. Aguardo tu pregunta El Águila

En la consulta: RecTabla. Close strSQL="SELECT * ..... ORDER BY CAMPO1, CAMPO2" RecTabla. Open strSQL, dbCon, adOpenStatic, adLockOptimistic Al abrir nuevamente el recorset se te reordena automáticamente el dbgrid. El Águila

Crea tu impresión con el crystal usando las tablas de tu base (tienes que enlazar) lo mejor es con el REPORT EXPERT. Después que tengas todo funcionando desde el código de VB: CrystalReport1.SelectionFormula = "{Caixa.Data}=Date('" & Text1.Text &...

En el Crystal Click en el campo, Format filed, en la oreja:date/time escoges un formato que te convenga de hora, como: "2:01 pm" o "14:01:06" ¿Echo? El Águila

Private Sub Text1_LostFocus() Text1.Text = UCase(Text1.Text) End Sub Cualquier duda me lo preguntas El Águila

En el componente CrystalReport en el formulario del VB pulsas el botón derecho, propiedades y escoges dentro de general TO PRINT y cuando lo uses sale en la impresora directamente. También puedes hacer desde código: 'impresora...

Te voy a pasar los principios pero esto es algo extenso, si necesitas un sistema de protección de alto nivel, me mandas tu e-mail y te envío algo más. En resumen lo que necesitas es criar un archivo en el disco en un lugar escondido (me refiero no...

Te elabore un código para que puedas entenderlo bien, abre un form, pega dos botones y un combo. Private Sub Command1_Click() Dim intIndice As Integer intIndice = Combo1.ListIndex Set Printer = Printers(intIndice) End Sub Private Sub Command2_Click()...