GOLDEN EYE.- PROGRAMA ESPIA

Golden Eye es una herramienta imprescindible para todas aquellas personas que quieren controlar que es lo que se hace en su ordenador y recibir un informe detallado de lo ocurrido en su ausencia.

Informa de correos enviados (aunque se hayan borrado ya), conversaciones de chat, paginas visitadas, imágenes capturadas, etc. Su uso es totalmente invisible e imperceptible para el usuario que en ningún momento puede darse cuenta que está siendo espiado.

Funciona como si fuera una cámara de vigilancia enfocando directamente al PC y es capaz de controlar la información introducida por teclado, las aplicaciones que se usan, los cambios hechos en los archivos, las páginas web que se visitan, grabar las conversaciones de ICQ, MSN Messenger, AOL Instant Messenger y Yahoo! Messenger.

El programa se ejecuta en segundo plano de forma totalmente invisible para el usuario.

Crystal Report para Visual Basic .Net 2008

CRYSTAL REPORT VB.NET

Nunca os ha pasao que habeis llevado vuestro programa en .NET y una vez instalado en una máquina, os falla porque no tiene instalado el paquete Crystal Report para VB.Net en el S.O.? Bueno no os preocupeis que aqui lo podeis encontrar.

Os dejo el link de la descarga.

Descargar version 64 bits

Descargar Version 32 bits

ATAJOS DE TECLADO PARA WINDOWS 7

Abreviaturas

Win = Tecla Windows
Shift = Tecla mayusculas, distinta de bloqueo mayusculas (Bloq Mayus)
Alt = Tecla Alt(anternativa)
Tab = Tecla Tab(Tabulador)
Ctrl = Tecla Ctrl(Control)
Esc = Tecla Esc(Escape)
Espacio = Tecla Espacio(Barra espaciadora)

Atajos de Windows 7

Win = Abre el menu de inicio.
Win + B = Muestra los iconos ocultos de la bandeja del sistema.
Win + D = Muestra el escritorio, al pulsarlo de nuevo vuelve al estado anterior.
Win + E = Abre el explorador de Windows.
Win + F = Abre la ventana de busqueda.
Win + G = Muestra los gadgets de la barra lateral y nos permite movernos por ellos.
Win + L = Bloquea el equipo.
Win + M = Minimiza todas las ventanas.
Win + Shift + M = Restaura las ventanas a su estado anterior.
Win + P = Extiende la pantalla.
Win + R = Abre Ejecutar.
Win + T = Te lleva a la barra de inicio, y va pasando por los items de la barra.
Win + U = Abre el Centro de accesibilidad.
Win + X = Abre el Centro de movilidad(portatiles).
Win + (+/-) = Aumenta zoom / Disminuye zoom (Lupa).
Win + F1 = Ayuda y soporte técnico.
Win + Pausa = Información del sistema.
Win + Tab = Cambiar de ventanas en Flip 3D, donde nos moveremos entre las ventanas abiertas viendo una vista previa de cada una de ellas.
Win + numero (1-9) = El numero 1 indica que ejecutara el primer icono de nuestra barra de inicio, en caso de ya estar ejecutado nos cambia a ese programa.
Win + Shift + numero (1-9) = El numero 1 indica que ejecutara el primer icono de nuestra barra de inicio, en caso de ya estar ejecutado nos inicia una nueva instancia.
Win + Ctrl + numero (1-9) = Cambia entre las ventanas abiertas, donde cada numero indica a que icono de nuestra barra de inicio pertenece.
Win + Alt + numero (1-9) = Muestra la lista de saltos(Jump List) para la aplicacion elegida con el numero que le indiquemos.
Win + Espacio = Trasparenta todas las ventanas y deja ver el escritorio.
Win + Esc + flechas = Moverse por la barra.
Win + flecha izquierda = Mueve la ventana activa(izquierda, derecha y centro).
Win + flecha derecha = Mueve la ventana activa(izquierda, derecha y centro).
Win + flecha arriba = Maximiza la ventana.
Win + flecha abajo = Minimiza la ventana.
Win + Shif + flecha arriba = Ajusta la ventana verticalmente(maximiza).
Win + Shif + flecha abajo = Ajusta la ventana verticalmente(recupera el tamaño).

¿Quieres ganar dinero sin hacer nada?

Registrate y podras conseguir dinero solo por recibir emails, practicamente sin hacer nada, no te lo pienses
Pincha aqui para registrarte en CLICXTI

DESACTIVAR CONTROL CUENTAS USUARIO WINDOWS 7

Es un poco pesado el estar confirmando cada vez que nos pregunta:
¿Desea permitir que este programa realice cambios en el equipo?

Para quitar esta confirmacion tenemos que hacer lo siguiente, vamos a:

Inicio > Panel de control > Cuentas de usuario y proteccion infantil > Cuentas de usuario > Cambiar configuracion de Control de cuentas de usuario

Dentro de la ventana Configuracion de Control de cuentas de usuario, vemos cuatro niveles de configuracion, debemos elegir la ultima que es "No notificarme nunca cuando"

Pulsamos el boton aceptar y  reiniciemos el equipo para desactivar el Control de cuentas de usuario.

Ya no volverá a aparecernos el mensaje.

¿Quieres ganar dinero sin hacer nada?

Registrate y podras conseguir dinero solo por recibir emails, practicamente sin hacer nada, no te lo pienses
Pincha aqui para registrarte en CLICXTI

CREAR DISCO RECUPERACION EN WINDOWS 7

RECDISC .- Comando para crear un disco de recuperacion

Si hemos perdido nuestro disco de reparacion de Windows 7 o si compramos un equipo con Windows ya instalado y no tenemos este disco, con esta utilidad podemos crearlo.

Necesitamos un CD o DVD virgen, vamos a Inicio y en la caja de busqueda escribimos recdisc, a continuacion pulsamos enter y nos saldra la ventana de "Crear un disco de reparacion del sistema", con el CD/DVD en blanco le metemos en la unidad y pulsamos sobre el boton "Crear disco" y esperamos hasta que finalice.

¿Quieres ganar dinero sin hacer nada?

Registrate y podras conseguir dinero solo por recibir emails, practicamente sin hacer nada, no te lo pienses
Pincha aqui para registrarte en CLICXTI

HYPER V. Maquina virtual no reconoce la tarjeta de red del servidor fisico.

Si la maquina virtual que os habeis creado a traves de HYPER-V no os reconoce la tarjeta de red del servidor Fisico puede deberse a que no habeis escogido el tipo de Adaptador correcto para la máquina Virtual.
Os explico porque:

Hyper-V en Microsoft Server 2008 Standard Edition tiene dos tipos de adaptadores para una máquina Virtual:

1. Adaptador de Red (que viene por defecto). La cual solo es visible para el SO de la Maquina Virtual si estan instalados los Integration Components(el equivalente a la Virtual Machine Additions de Virtual Server) y si disponemos de controladores para el sistema operativo de la maquina virtual de esa tarjeta de RED

2. Adaptador de Red Heredado. Crea una Tarjeta de red virtual que es soportada por la mayoria de sistemas operativos por lo que no nos haria falta los controladores.

¿Quieres ganar dinero sin hacer nada?

Registrate y podras conseguir dinero solo por recibir emails, practicamente sin hacer nada, no te lo pienses
Pincha aqui para registrarte en CLICXTI

Pasar Microsoft SourSafe 6 a otro servidor

La tarea es muy facil. Lo unico que hay que hacer es copiar la carpeta SSafe del antiguo servidor al nuevo e instalar el Microsoft Soursafe en el Nuevo Servidor.

Para los ordenadores clientes lo unico que hay que comprobar es que tengan acceso al fichero "srcsafe.ini" en el nuevo servidor, cambiar la base de datos y ya está.

¿Quieres ganar dinero sin hacer nada?

Registrate y podras conseguir dinero solo por recibir emails, practicamente sin hacer nada, no te lo pienses
Pincha aqui para registrarte en CLICXTI

CYBER PRINTER. Gestiona las impresoras e impresiones de una red.

 

Cyberprinter Monitor es un gestor de impresoras e impresiones en una red de usuarios con una o más impresoras compartidas, usando un sistema servidor y clientes.
Ideal para empresas donde los usuarios tienen acceso a impresoras compartidas, crea completos y detallados registros de los accesos y los diferentes usos que se han hecho a las impresoras, detallando usuarios, horas, páginas y demás datos relevantes. Todos los datos pueden ser exportados a una hoja de cálculo.
Ofrece un contador más preciso y algunas opciones de impresión extra para controlar mejor las mismas. También incluye la posibilidad de añadir contraseñas para de esta manera asegurar la autenticidad de los datos.

¿Quieres ganar dinero sin hacer nada?

Registrate y podras conseguir dinero solo por recibir emails, practicamente sin hacer nada, no te lo pienses
Pincha aqui para registrarte en CLICXTI

COBIAN BACKUP. Programa para hacer copias de seguridad

Cobian Backup es un programa que te permitirá crear copias de seguridad de ficheros y carpetas, y guardarlas en tu disco duro local o alguna otra unidad de red.
Su interfaz es muy sencilla y de fácil manejo. Entre sus características está la posibilidad de comprimir las copias, protegerlas con contraseña, la posibilidad de programar la copia cuando tu quieras, variedad de tipos de copia (Nueva, Sobrescribir o incremental)

Ahora podrás tener todas tus copias de seguridad rápidamente y así estar preparado para cualquier "accidente" que puedas tener.

¿Quieres ganar dinero sin hacer nada?

Registrate y podrás conseguir dinero solo por recibir emails, practicamente sin hacer nada, no te lo pienses
Pincha aqui para registrarte en CLICXTI

CONVERTIR UNA IMAGEN .TIB (ACRONIS) EN .VHD (HYPER-V)

Para poder lanzar una maquina virtual en Hyper-V (Windows 2008 Server R2) a partir de una imagen de disco duro realizada con ACRONIS TRUE IMAGE HECHO SERVER hay que convertir la imagen de disco .Tib a formato .VHD (compatible con Hyper-V).

Los pasos son los siguientes:

1. Abrimos el Acronis True Image Hecho Enterprise Server

2. Pinchamos sobre "TOOLS" y despues sobre "Convert Backup to Virtual Disk".

3.  Nos sale la pantalla de bienvenida. Pulsamos sobre "NEXT"

4.  Buscamos nuestra imagen .TIB guardada y la seleccionamos.

5.  Si hubiera mas de una particion en la imagen no saldrá esta pantalla. Seleccionamos las particiones que queramos convertir.

6. Pulsamos sobre la opcion "Microsoft Virtual PC", (VHD)

7.  Escribimos la ruta donde vamos a guardar la nueva imagen asi como el nombre que va a tener.

8.  Pulsamos sobre "PROCEED".

 

 Una vez termine el programa de crear la copia, podremos usarla con el Hyper-V para crear una nueva maquina virtual en nuestro Windows 2008 Server R2.

¿Quieres ganar dinero sin hacer nada?

Registrate y podras conseguir dinero solo por recibir emails, practicamente sin hacer nada, no te lo pienses
Pincha aqui para registrarte en CLICXTI

FUNCIONES PARA VISUAL BASIC .NET

Aqui os dejo las funciones mas utlizadas para la programación en VB.NET, aunque tambien se pueden utilizar en Visual Basic 6.

Leer más...

Tutorial. Crear un cable RJ45 o cable de RED

Aquí os dejo como es el orden de los cables de colores para crear un cable RJ45.

Hay 3 formas de hacerlo, os enseño como:

CABLE DIRECTO

 

T-568A  Cable directo

CABLE DERECHO

T-568B Straight-Through Ethernet Cable

T-568B  Cable derecho

 

Esas configuraciones de colores son para cables derechos, se utlizan en conexiones:

*PC-HUB-PC
*PC-ROUTER-PC
*PC-SWITCH-PC
*etc...

CABLE CRUZADO

 RJ-45 Crossover Ethernet Cable

Cable Crossover (Cruzado)

Cables cruzados que permiten conectar PC-PC directamente
 

FUNCIONES SQL SERVER

Aqui os dejo las funciones mas utilizadas para aquellos que hagan consultas contra Bases de datos SQL.

Funciones de valores simples:

ABS(n)= Devuelve el valor absoluto de (n).
CEIL(n)=Obtiene el valor entero inmediatamente superior o igual a "n".
FLOOT(n) = Devuelve el valor entero inmediatamente inferior o igual a "n".
MOD (m, n)= Devuelve el resto resultante de dividir "m" entre "n".
NVL (valor, expresión)= Sustituye un valor nulo por otro valor.
POWER (m, exponente)= Calcula la potencia de un numero.
ROUND (numero [, m])= Redondea números con el numero de dígitos de precisión indicados.
SIGN (valor)= Indica el signo del "valor".
SQRT(n)= Devuelve la raíz cuadrada de "n".
TRUNC (numero, [m])= Trunca números para que tengan una cierta cantidad de dígitos de precisión.
VAIRANCE (valor)= Devuelve la varianza de un conjunto de valores.

Funciones de grupos de valores:

AVG(n)= Calcula el valor medio de "n" ignorando los valores nulos.
COUNT (* | Expresión)= Cuenta el numero de veces que la expresión evalúa algún dato con valor no nulo. La opción "*" cuenta todas las filas seleccionadas.
MAX (expresión)= Calcula el máximo.
MIN (expresión)= Calcula el mínimo.
SUM (expresión)= Obtiene la suma de los valores de la expresión.
GREATEST (valor1, valor2…)= Obtiene el mayor valor de la lista.
LEAST (valor1, valor2…)= Obtiene el menor valor de la lista.

Funciones que devuelven valores de caracteres:

CHR(n) = Devuelve el carácter cuyo valor en binario es equivalente a "n".
CONCAT (cad1, cad2)= Devuelve "cad1" concatenada con "cad2".
LOWER (cad)= Devuelve la cadena "cad" en minúsculas.
UPPER (cad)= Devuelve la cadena "cad" en mayúsculas.
INITCAP (cad)= Convierte la cadena "cad" a tipo titulo.
LPAD (cad1, n[,cad2])= Añade caracteres a la izquierda de la cadena hasta que tiene una cierta longitud.
RPAD (cad1, n[,cad2])= Añade caracteres a la derecha de la cadena hasta que tiene una cierta longitud.
LTRIM (cad [,set])= Suprime un conjunto de caracteres a la izquierda de la cadena.
RTRIM (cad [,set])= Suprime un conjunto de caracteres a la derecha de la cadena.
REPLACE (cad, cadena_busqueda [, cadena_sustitucion])= Sustituye un carácter o caracteres de una cadena con 0 o mas caracteres.
SUBSTR (cad, m [,n])= Obtiene parte de una cadena.
TRANSLATE (cad1, cad2, cad3)= Convierte caracteres de una cadena en caracteres diferentes, según un plan de sustitución marcado por el usuario.

Funciones que devuelven valores numéricos:

ASCII(cad)= Devuelve el valor ASCII de la primera letra de la cadena "cad".
INSTR (cad1, cad2 [, comienzo [,m]])= Permite una búsqueda de un conjunto de caracteres en una cadena pero no suprime ningún carácter después.
LENGTH (cad)= Devuelve el numero de caracteres de cad.

Funciones para el manejo de fechas:

SYSDATE= Devuelve la fecha del sistema.
ADD_MONTHS (fecha, n)= Devuelve la fecha "fecha" incrementada en "n" meses.
LASTDAY (fecha)= Devuelve la fecha del último día del mes que contiene "fecha".
MONTHS_BETWEEN (fecha1, fecha2)= Devuelve la diferencia en meses entre las fechas "fecha1" y "fecha2".
NEXT_DAY (fecha, cad)= Devuelve la fecha del primer día de la semana indicado por "cad" después de la fecha indicada por "fecha".

Funciones de conversión:

TO_CHAR= Transforma un tipo DATE ó NUMBER en una cadena de caracteres.
TO_DATE= Transforma un tipo NUMBER ó CHAR en DATE.
TO_NUMBER= Transforma una cadena de caracteres en NUMBER.

CONTROLADORES PARA HP DESKJET 9300 EN WINDOWS 7

Esta es la forma de poder instalar la impresora HP Deskjet 9300 en un PC con Windows 7.

Leer más...

DEEP-FREEZE - CONGELADOR DE DISCO DURO.

El Deep Freeze de Faronics es ampliamente considerado como el líder la industria del software del tipo "reinicie y restaure". El principal carácteristica de Deep Freeze es que el disco duro del PC estará "congelado" mientras este activado. Cualquier cambio que se le realice al PC "congelado" será revertido al reiniciar el PC, es decir , cualquier cambio que haya sufrido el disco duro se borrará.
Cuando un PC está "descongelado", cualquier cambio que se le realice se mantendrá.
Si el PC tiene varias particiones puedes congelar una (normalmente la que contiene el disco duro) y mantener descogelada las demas, y poder asi guardar archivos sin miedo a perderlos cuando reinicies el PC.
Un programa muy util para Técnicos Informaticos o Cibers.
DESCARGAR

¿Quieres ganar dinero sin hacer nada?

Registrate y podras conseguir dinero solo por recibir emails, practicamente sin hacer nada, no te lo pienses
Pincha aqui para registrarte en CLICXTI

Funcion para rellenar un comboBox a traves de un DataTable o List of(Object)

Aqui os dejo la forma de rellenar un combo a traves de un Datatable o un List of (Object). A la funcion hay que pasarle el Nombre del campo que actua como codigo (o valor) y el nombre del campo que se va a mostrar en el comboBox. En el caso de que le pasaramos el List of (Object) le pasariamos el nombre de los campos de la clase.

Shared Sub Cargar_Combos(ByRef cmbCombo As ComboBox,ByVal lista As List(Of Object), _                                         ByVal sCampoCodigo As String, _                             ByVal sCampoNombre As String)         Try             If lista.Count > 0 Then                 cmbCombo.DataSource = lista                 cmbCombo.DisplayMember = sCampoNombre                 cmbCombo.ValueMember = sCampoCodigo             Else                 cmbCombo.DataSource = Nothing             End If         Catch ex As Exception             MessageBox.Show(ex.Message)         End Try     End Sub

En el caso del Datatable sería igual, solo cambiando el parámetro de entrada.
Espero que os sirva de ayuda. Saludos.

¿Quieres ganar dinero sin hacer nada?

Registrate y podras conseguir dinero solo por recibir emails, practicamente sin hacer nada, no te lo pienses
Pincha aqui para registrarte en CLICXTI

Funcion para pasar un DataTable a Excel en Visual Basic .NET

Aqui os dejo una funcion que permite pasar los datos contenidos en un datatable y mostrarlos a Excel en Visual Basic .NET.

Shared Function ExportarDataTableAExcel(ByVal Titulo As String,
ByVal Tabla As DataTable) As Boolean
Try
'Creamos las variables
Dim exApp As New Microsoft.Office.Interop.Excel.Application
Dim exLibro As Microsoft.Office.Interop.Excel.Workbook
Dim exHoja As Microsoft.Office.Interop.Excel.Worksheet
Dim filaTabla As System.Data.DataRow

'Añadimos el Libro al programa, y la hoja al libro
exLibro = exApp.Workbooks.Add
exHoja = exLibro.Worksheets.Add()

' ¿Cuantas columnas y cuantas filas?
Dim NCol As Integer = Tabla.Columns.Count
Dim NRow As Integer = Tabla.Rows.Count

'Aqui recorremos todas las filas, y por cada fila todas las columnas y vamos escribiendo.
For i As Integer = 1 To NCol
exHoja.Cells.Item(3, i) = Tabla.Columns(i - 1).Caption
'exHoja.Cells.Item(1, i).HorizontalAlignment = 3
Next

For Fila As Integer = 0 To NRow - 1
filaTabla = Tabla.Rows(Fila)
For Col As Integer = 0 To NCol - 1
exHoja.Cells.Item(Fila + 4, Col + 1) = filaTabla(Col)
Next
Next

'Titulo en negrita, Alineado al centro y que el tamaño de la columna se ajuste al texto
exHoja.Rows.Item(3).Font.Bold = 1
exHoja.Rows.Item(3).HorizontalAlignment = 3
exHoja.Columns.AutoFit()

'Aplicación visible
exApp.Application.Visible = True

exHoja = Nothing
exLibro = Nothing
exApp = Nothing

ExportarDataTableAExcel = True
Catch ex As Exception
MessageBox.Show(" ERROR : " & ex.Message & " --UtilForm.ExportarDataTableAExcel", "Administrador", MessageBoxButtons.OK, MessageBoxIcon.Error)
ExportarDataTableAExcel = False
Finally
Tabla = Nothing
End Try
End Function

Espero que os sirva de ayuda. Saludos

Funcion para pasar los datos de un DataGridView a un Datatable en Visual Basic .NET

Aqui os dejo una funcion que permite pasar los datos de un DataGridView a un Datatable pasado por parametro.

Shared Sub ExportarDataGridViewADataTable(ByVal miDataGrid As DataGridView, ByRef Tabla As DataTable)
        Try
            Dim filaNueva As System.Data.DataRow
            Dim numCols As Integer

            numCols = miDataGrid.ColumnCount

            ' Rellenamos los valores del DataTable nuevo con los valores de las celdas del DataGridView
            For Each filaDatos As DataGridViewRow In miDataGrid.Rows
                filaNueva = Tabla.NewRow()
                For i As Integer = 0 To numCols - 1
                    filaNueva(i) = filaDatos.Cells(i).Value
                Next
                Tabla.Rows.Add(filaNueva)
            Next

        Catch ex As Exception
            Tabla = New DataTable
        Finally
            miDataGrid = Nothing
        End Try

    End Sub

Espero que os sirva de ayuda

Funcion para pasar los datos de un DataGridView a Excel en Visual Basic .NET

Aquí os dejo la forma de pasar los datos de un DataGridView a Excel en VISUAL BASIC .NET

Leer más...

Funcion para controlar los valores NULOS en VB.NET

Aquí os dejo una función muy util para controlar los campos de tabla o variables nulas de nuestro codigo fuente.

Shared Function NoNull(ByVal ArVar As Object, ByVal arTipo As String) As Object        Try             'para columnas vacias sin datos             If ArVar.Equals(System.DBNull.Value) Then                 Select Case arTipo                     Case "A"                         NoNull = ""                     Case "N"                         NoNull = 0                     Case "D"                         NoNull = 0                     Case "F"                         NoNull = CDate("00:00:0000")                     Case "DT"                         NoNull = New DateTime(1, 1, 1)                     Case Else                         NoNull = " "                 End Select                 Exit Function             End If             If Len(ArVar) > 0 Then                 Select Case arTipo                     Case "A"                         NoNull = ArVar                     Case "N"                         NoNull = Val(ArVar)                     Case "D"                         NoNull = CDec(ArVar)                     Case "F"                         If ArVar = "00/00/0000" Then                             NoNull = ""                         Else                             If InStr(ArVar, "/") > 0 Then                                 NoNull = ArVar                             Else                                 NoNull = Format(ArVar, "00/00/0000")                             End If                         End If                     Case Else                         NoNull = ArVar                 End Select             Else                 Select Case arTipo                     Case "A"                         NoNull = ""                     Case "N"                         NoNull = 0                     Case "D"                         NoNull = 0                     Case "F"                         NoNull = CDate("00:00:0000")                     Case Else                         NoNull = " "                 End Select             End If         Catch ex As Exception             Select Case arTipo                 Case "A"                     NoNull = ""                 Case "N"                     NoNull = 0                 Case "D"                     NoNull = 0                 Case "F"                     NoNull = CDate("00:00:0000")                 Case Else                     NoNull = " "             End Select         End Try     End Function

Donde "ArVar" es el campo o variable a chequear y "arTipo" es el tipo de dato de la variable.
Devuelve un object con el valor por defecto (si fuera Nulo) o el valor del campo o variable pasada.

Por ejemplo, si teneis una variable de tipo integer y fuera nula, con esta función devolveria 0.

Imprimir linea a linea en Visual Basic .NET

Bueno aquí os dejo una de las muchas formas que podemos imprimir en VB.NET. En este caso no utilizaremos Crystal Report pero si el objeto PrintDocument.

Creamos un formulario e insertamos un objeto de tipo printDocument, al que llamamos HojaImpresion.
Insertarmos tambien un control button al que llamaremos cmdImprimir.

Pulsamos doble_click sobre el control HojaImpresion para irnos directamente procedimiento:

Private Sub HojaImpresion_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles HojaImpresion.PrintPage         Try             ' La fuente a usar             Dim prFont As New Font("Arial", 15, FontStyle.Bold)             ' la posición superior             'imprimimos la fecha y hora             prFont = New Font("Arial", 10, FontStyle.Regular)             e.Graphics.DrawString(Date.Now.ToShortDateString.ToString & " " &  _                                 Date.Now.ToShortTimeString.ToString, prFont, Brushes.Black, 15, 385)             'imprimimos el nombre del cliente             prFont = New Font("Arial", 25, FontStyle.Bold)             e.Graphics.DrawString("Nombre del Cliente", prFont, Brushes.Black, 50, 250)             'imprimimos la referencia del pedido             e.Graphics.DrawString("Referencia", prFont, Brushes.Black, 50, 520)             prFont = New Font("Arial", 18, FontStyle.Bold)             e.Graphics.DrawString("Nombre de la Referencia", prFont, Brushes.Black, 50, 555)             'imprimimos Pedido Ondupack y Pedido del cliente             prFont = New Font("Arial", 22, FontStyle.Regular)             e.Graphics.DrawString("Pedido", prFont, Brushes.Black, 50, 660)             e.Graphics.DrawString("Palets", prFont, Brushes.Black, 250, 660)             prFont = New Font("Arial", 24, FontStyle.Regular)             e.Graphics.DrawString("19875", prFont, Brushes.Black, 50, 700)             e.Graphics.DrawString("44", prFont, Brushes.Black, 250, 700)             'imprimimos Cajas X Palet y Cajas x Paquete             prFont = New Font("Arial", 22, FontStyle.Regular)             e.Graphics.DrawString("Cajas x Palet", prFont, Brushes.Black, 50, 760)             e.Graphics.DrawString("Cajas x Paquete", prFont, Brushes.Black, 250, 760)             prFont = New Font("Arial", 24, FontStyle.Regular)             e.Graphics.DrawString("500", prFont, Brushes.Black, 50, 800)             e.Graphics.DrawString("32", prFont, Brushes.Black, 250, 800)             'imprimimos el numero del Palet             prFont = New Font("Arial", 24, FontStyle.Regular)             e.Graphics.DrawString("Número del Palet     45", prFont, Brushes.Black, 50, 880)             'indicamos que hemos llegado al final de la pagina             e.HasMorePages = False         Catch ex As Exception             MessageBox.Show("ERROR: " & ex.Message, "Administrador", _                               MessageBoxButtons.OK, MessageBoxIcon.Error)         End Try      End Sub

Despues pulsamos doble click sobre el boton cmdImprimir:

Private Sub cmdImprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdImprimir.Click         HojaImpresion.Print()     End Sub

De esta forma cuando ejecutemos nuestro programa, pulsaremos sobre el boton Imprimir del formulario y nos saldrá como resultado:

el evento e.Graphics tiene varias funciones para escribir distinto tipos. Por ejemplo si queremos imprimir una imagen:

e.Graphics.DrawImage(PictureBox1.Image, 380, 335, 75, 75)

Nota: Posible Error.

Si alguna vez ejecutáis el código y os aparece una excepción con Mensaje "Controlador No Valido" en referencia a la instancia del printDocument, se debe a un problema con la impresora que tengáis asociada como predenterminada en ese momento.
Por si os pasa a vosotros, que he perdido casi 1 hora buscando el problema.
Saludos.

RECUVA - PARA RECUPERAR ARCHIVOS BORRADOS ACCIDENTALMENTE

Buen programa para recuperar archivos borrados accidentalmente en nuestro ordenador. Es capaz de recuperar archivos incluso si el ordenador ha sido recién formateado.

Aquí os dejo el link de la descarga.

IPSCAN- Monitoriza las direcciones IP dentro de una red LAN.

Aquí os dejo una perla de programa. Introduce un rango de direcciones IP y si te comprueba cada dirección del rango comprobando si esta ocupado o no.
Muy útil para saber si alguien esta conectado a tu red.

Os dejo el link de la descarga.

MESSENGER INTERNO - IPMSG

Hoy os presento un programita muy bueno por su sencillez. Actua como messenger dentro de redes LAN.
Donde podreis mandar mensajes internos y permite el envio de datos entre los usuarios.

Os dejo el link de la descarga.