PREGUNTAS CONTESTADAS - Visual Basic

Hay un total de 3030 Preguntas.

<< >>

Pregunta:	51581 - DIRECCIONAR REPORTE DESDE VB 6.0 A IMPRESORA REMOTA
Autor:	Aldo Ghione
Saludos. Necesito saber si alguien sabe como direccionar un reporte desde vb6.0. El reporte esta hecho en crystal report 8.5 pero el comando printer name= nombre de la impresara no me lo respeta siempre me manda el reporte a la impresora default. No quiero utilizar la seleccion manual de la impresora. La salida debe ser automática. Gracias

Respuesta:	Roberto Morales
Buenos días aldo La solución de tu problema es la siguiente: En la forma en que esta el CRViewer tienes que crear un boton (command) y escribir esta sentencia - report.PrinterSetup (Me.hwnd) para que puedas seleccionar la impresora en la quieres imprimir. saludos,

Respuesta:	Saul Garay
Buenos dias Aldo.- Verifica los parametros de la red, ej: que esten bajo el mismo grupo de trabajo, que la impresora a la que estas enviando el documento este compartida, si es una impresora de red, mas efectivo es que la llames por la direccion IP. Saludos Saul Garay

Contestar

Pregunta:	51602 - EXTRAER CLAVE REGISTRO WIN
Autor:	ANTONIO FERNANDEZ PEREZ
buenas, soy novatillo en esto de la programacion. Mi pregunta es que estoy intentando hacer un programilla para extraer la configuracion del outlook a traves de una clave del registro de windows, pues bien, me funciona todo hasta que me llega a un trozo de la clave donde hay un epsacio. queria saber si alguien sabe como hacer para que me lea toda la clave del registro que quiero poner.El codigo que utilixo es el siguiente: Dim rama As String rama = "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook" Shell "regedit /e c:\backup.reg " & rama Si pongo rama = "HKEY_CURRENT_USER\Software\Microsoft me funciona, pero a la que le pongo el windows NT ya no me extrae la clave. Alguna idea?? Gracias!

Respuesta:	eider mauricio aristizabal erazo
Prueba Concatenando comillas simples en las que el codigo ascii es el 34 asi: Dim rama As String rama = Chr(34) + "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\Outlook\" + Chr(34) Shell "regedit /e c:\backup.reg " & rama

Contestar

Pregunta:	51606 - COMO CARGAR VARIOS ARCHIVOS EN EL PORTA PAPELES DE WINDOWS
Autor:	carlos rondón
me gustaria que por favor me dieran un codigo donde varios archivos de un listViewer se pudieran copiar (agregarlos al porta papeles de windows) y pegarlos en cualquier lado

Respuesta:

Saul Garay

Buenos dias carlos, con este codigo podrias guiarte, este lo tengo funcionando en un modulo de proveedores en la que lleva la identificacion del mismo al portapapeles y posteriormente accede a un portal WEB para identificar la veracidad de los datos.

_________________________________________________________
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
Dim res As Long
direccion = Data1.Recordset("link")
MsgBox ("A continuacion ingresara al Portal del Seniat, asegurece de que tenga conexion a Internet; la informacion del RIF del proveedor se encuentra almacenada en el portapapeles por lo que puede hacer uso con las teclas SHIFT+INS o el boton contrario del Mouse y posteriormente usar la Opcion PEGAR")
res = ShellExecute(Me.hwnd, "Open", direccion, "", "", 1)
Clipboard.Clear
Clipboard.SetText (Text1)
link_seniat.Hide
End Sub
Private Sub Form_load()
Text1 = proveedores.rif
End Sub
_________________________________________________________

Exito

SAUL GARAY

Contestar

Pregunta:	51607 - COMO SABER SI UNA BASE DE DATOS ES DE ACEES 97 O ACCESS 200?
Autor:	Javier Fernandez Rodriguez
Mi pregunta se refiere, habiendo varias bases de datos en una carpeta, que un programita de visual me diga estas son de acces97, estas de access 2000.... etc

Respuesta:	Pablo Hernandez
hay una funcion dentro de office que indica la version x ende tienes q bajar un manual de access en programacion avanzada aqui existe una funcion q t indica la version y dentro de esta tienes q hacer un if en donde la condicion extrae si el año es del ej: 2007 = version 2002 de office y si es mayor despues esto te puede ayudar a solucionar el problema

Contestar

Pregunta:	51619 - CONSULTA CON LIKE
Autor:	Carlos Solano
Hola amigos, quiero hacer una busqueda la cual me seleccione de una tabla los registros que comiensen con la letra a y b. tengo este codigo: SELECT Agency.Company FROM Agency WHERE (((Agency.Company) Like '[A-B]*')) ORDER BY Agency.Company; pero me funciona solo si lo hago desde access pero en el codigo de visual con ado no me funciona

Respuesta:	Eider Mauricio Aristizabal Erazo
SELECT Company FROM Agency WHERE (Company Like 'A' OR Company Like 'B') ORDER BY Company;

Contestar

Pregunta:	51656 - EJECUTAR MACRO DESDE VISUAL BASIC
Autor:	Arlet Padilla
Necesito desde Visual Basic ejecutar una macro, el codigo que estoy utilizando es este: Set loexcel = CreateObject("Excel.Application") Set libro = loexcel.Workbooks.Open("C:\automa\datos\CIFRAS.XLS" loexcel.Visible = True loexcel.Application.Run "c:\automa\macro\MACRO.XLA" pero me marca el error 1004 y dice que la macro no existe (estoy segura de que existe) Agradezco de antemano la ayuda que puedan brindarme.

Respuesta:

eider mauricio aristizabal erazo

te falta colocar el nombre de la macro y luego sus argumentos por ejemplo para ejecutar la macro obetner nombreedad que que requier un argumento cadena y uno numerico, seria asi:
Application.Run "c:\automa\macro\MACRO.XLA!obtener_nombreEdad", "Minombre", 10

espero te sirva de algo:
Remarks
You cannot use named arguments with this method. Arguments must be passed by position.

The Run method returns whatever the called macro returns. Objects passed as arguments to the macro are converted to values (by applying the Value property to the object). This means that you cannot pass objects to macros by using the Run method.

Example
This example shows how to call the function macro My_Func_Sum, which is defined on the macro sheet Mycustom.xlm (the macro sheet must be open). The function takes two numeric arguments (1 and 5, in this example).

mySum = Application.Run("MYCUSTOM.XLM!My_Func_Sum", 1, 5)
MsgBox "Macro result: " & mySum

The information above was taken from microsoft excel help

Bye

Contestar

Pregunta:	51711 - SUBTOTALES EN PIE DE PAGINA EN CRYSTAL REPORT
Autor:	val baez
hola amigos.... queria saber si en Crystal report 8 se puede agregar un subtotal al pie de pagimna que sumarice lo de esa pagina y lo de las anteriores. muchas gracias

Respuesta:

Carlos Salazar Cruz

Hola:

Es totalmente posible.

Para crearte subtotales has de definir secciones y meter campos de resumen en cada una de ellas (pueden ser sumatorios o lo que quieras... Usa "Insert Summary"). Recuerda que tienes que meter estos campos en los encabezados o pies de página de la sección. Si los metes en el pie de report te hará el sumatorio de todo.

Por otro lado, si quieres que te coincida un cambio de sección con un cambio de página, solo tienes que marcar la casilla "New page after" o "New page before" en las propiedades de la sección (juega un poco con el Section Expert").

Si tienes algún problema no dudes en preguntar.

Saludos!!!

Contestar

Pregunta:	51776 - LEER PUERTO PARALELO EN WINDOWS XP
Autor:	Cesar Arevalo layza
Primeramente saludar a este foro de preguntas y respuestas.A continuación formulo mi pregunta. tengo un programa en pascal para leer datos de entrada de un puerto paralelo y lo lee bien, pero cuando trato de trabajar con el windows xp atraves del visual basic los datos salen distorcionados ,Por favor me gustaria que me ayudaran en la elaboración de un programa para que la lectura del puerto paralelo de entrada sea correcta en windows Xp atraves del visual basic.

Respuesta:

Leonardo Q

Holas
Primero mencionar que la plataforma del sistema operativo que estas utilizando para hacer correr tu programa(en este caso XP) no te aceptará el acceso directo a hardware del PC, por lo tanto habras notado un ligero retraso en la respuesta del dispositivo que seguramente tienes conectado.
Ahora tienes 2 soluciones: puedes migrar a vb6 o .net segun tu preferencia, y convertir todo el codigo, luego de ello tendras que importar la libreria inpout32.dll para XP (puedes buscar en google).
Otra solucion, si no requieres XP como entorno grafico, es arrancar en modo DOS tu maquina y hacer correr el programilla, no tendras ningun problema.
Espero que haya sido de ayuda.

Contestar

Pregunta:	51813 - FUNCION QUE ME INDIQUE EL ULTIMO DIA DEL MES
Autor:	gerson alberto
Queria saber el nombre de alguna función o procedimiento que me indique el ultimo dia de cada mes, es decir que me diga que enero tiene 31 diasy que febrero tiene 28 o 29 muchas gracias.

Respuesta:	miguel juarez
Hola, eso es facil, puede haber otras pero te recomeindo que tomes el primer dia del mes siguiente. Por ejemplo si quiere saber el ultimo dia de diciembre entonces por ejemplo tomas 01/01/2007 y le restas uno, y te devuelve los datos que necesitas

Respuesta:	Leugim
Private Sub Command1_Click() Dim Primero As String Dim Ultimo As String Primero = DateSerial(Year(Now), Month(Now) + 0, 1) Ultimo = DateSerial(Year(Now), Month(Now) + 1, 0) MsgBox "El primer día del mes es: " & Primero & vbCrLf & "El " & "último es: " & Ultimo End Sub

Contestar

Pregunta:	51901 - CONTAR IMPRESIONES
Autor:	Luciano Gili
Hola, necesito saber porque tengo un ciber cuantas copias se hicieron realmente en la imrpesora. Porque el cartucho disminuye y nadie me anota las imrpesiones cobradas. Alguien sabe coimo hacerlo desde visual basic con algun programita??? Gracias

Respuesta:	JA IME
Primero que todo si la impresora es laser tiene su propio contador de hojas. No lo he hecho, pero si conoces un poco de programacion, puedes hacerlo por un bucle que permanentemente este leyendo la funcion prnjobs -l >> archivo de control envias el numero de paginas a un contador y las totalizas.

Contestar

|< << 274 275 276 277 278 279 280 281 282 283 284 >> >|