SoloCodigo

Necesito alguna funcion que me permita ver mis formularios al estilo XP en windows 98

Necesito controlar las impresiones que se hagan de cualquier ordenador de mi red, no me interesa contarlas, lo que me interesa es identificar de que PC proviene la impresion, pero ni idea de como hacerlo

Necesito imprimir reportes en mi aplicacion pero que sean reportes especificos, lo he intentado con el Crystal pero no puedo imprimir el contenido de un grid.
He bajado un control OCX llamado roboprint pero al imprimir los reportes sale una etiqueta que dice: la version del OCX, Fecha de creacion, etc.

Necesito saber como puedo hacer para modificar este OCX y borrar estas etiquetas
GRACIAS  

Puedes probar digitando en un textbox el dato a consultar y con un command, aunque si lo deseas evitas el command y agregas el codigo al evento keypressed del texbox, el codigo seria mas o menos asi:

Private Sub CmdBuscar_Click()
'Declaro las variables
Dim moRecordset As New ADODB.Recordset
Dim msSql As String
Dim mbEncontro As Boolean
' Creo el SQL

mbEncontro = False

If Trim(Txtcedula) <> "" Then
   
    mbEncontro = True
    msSql = " Select *"
    msSql = msSql + " from tabla"
    msSql = msSql + " Where campo = '" + Trim(Txtcedula) + "'"

End If

'Ejecuto la sentencia en SQL
If Trim(msSql) = "" Then Exit Sub
If mbEncontro = False Then Exit Sub

moRecordset.Open msSql, goDatabase, adOpenStatic, adLockOptimistic

'limpio el grid para que no entre basura
MSFlexGrid.Clear
MSFlexGrid.Rows = 1


'Indico el ancho del grid
MSFlexGrid.ColWidth(0) = 1000
MSFlexGrid.ColAlignment(0) = 1
MSFlexGrid.ColWidth(1) = 1350

    With MSFlexGrid
        'Titulo de la columna personalizado
        .Row = 0
        .Col = 0
        .Text = "Nombre 1"
        .CellFontBold = True
       
        .Row = 0
        .Col = 1
        .Text = "Nombre 2"
        .CellFontBold = True
'Asi hasta obtener el total de columnas del flexgrid                
 End With

If Not moRecordset.EOF And Not moRecordset.BOF Then

Do While Not moRecordset.EOF

MSFlexGrid.AddItem moRecordset.Fields(1).Value + Chr$(9) + moRecordset.Fields(2).Value
Txtcedula.Text = Trim(moRecordset.Fields(0).Value)
    moRecordset.MoveNext
       
   Loop
   
    moRecordset.Close
Else
   MsgBox "Datos que Busca no existen  !!!", vbCritical, "Atención"
    Txtcedula.SetFocus
   
    End If
Exit Sub

Txtcedula.SetFocus

End Sub

Como hago para imprimir un reporte sacando solo datos por campo llave.

Es decir que si en la consulta hecha en el form selecciono el cliente jorge, en la cual se despliega todas las transacciones hechas por este cliente, lo que quiero es imprimir sola las transaciones de jorge y no todo el contenido de la tabla a traves de un reporte de Crystal report, pero no se como hacerlo.

Gracias de antemano

supongamos que tenemos 3 textbox, dos para valores y uno para total

Private Sub Text2_lostfocus()
Dim a As Integer
a = Val(Txt1.Text)
Txt3.Text = a + Val(Txt2.Text)
End Sub

Necesito con urgencia ejemplos de visual basic con crystal report, es decir la forma de llamarlos despues de creados, realizar reportes especificos segun consultas