Yo diria que antes de imprimir el código de barras no
has seleccionado el font correcto. Algo así como:

printer.font.name ="Code128"
printer.font.size=18
printer.print Codigo$
printer.font="Arial"
printer.font.size=10

Si lo haces con cristal, no puedo ayudarte.

Saludos
José A. Gracia

--- adelgadopino <adelgadopino@yahoo.es> escribió:

> amigos, estoy terminando un punto de venta y estoy
> en la parte de
> impresion de boleto, necesito que nº de ticket se
> imprima al final del
> boleto en barras, tengo la fuente "codebar_128" ,
> tengo el codigo para
> trasnformar el text en barras, en la pantalla lo
> muestra sin problemas
> pero al imprimirlo me sale por ejemplo el ticket 11
> muestra ^11!^s, he
> intentado tantas cosas y nada, por favor ayudenme,
> gracias
>
>

Todos mis correos llevan un saludo y mi nombre y apellido al pie. Desconfíe de cualquier correo que no lo lleve y de los adjuntos que pueda contener.
Visite mi página en: http://www.joseantoniogracia.com
en: http://usuarios.lycos.es/jagrane/
o en: http://personal.auna.com/jagrane/


______________________________________________
LLama Gratis a cualquier PC del Mundo.
Llamadas a fijos y móviles desde 1 céntimo por minuto.
http://es.voice.yahoo.com

----- Original Message -----

From: gustavo venini

To: DesarrolloVB@...

Sent: Wednesday, May 30, 2007 10:49 AM

Subject: [VB] Resize de imagen antes de grabar

Estoy haciendo una imprecion de imagen en tamaño carnet de conducir pero me pasa que la camara me da un tamaño que necesito cambiarlo o sea hacer un recize o dar otro tamaño antes de imprimir no se hay una clase que lo haga o si desde cristal report 8 lo puedo  hacer no encontre hasta ahora la manera de hacerlo. Desde cristal lo imprimo como un objeto OLE  que esta linkeado a una imagen.

 

Desde ya muchas gracias a todos

Gustavo

---

Preguntá. Respondé. Descubrí.
Todo lo que querías saber, y lo que ni imaginabas,
está en Yahoo! Respuestas (Beta).
¡Probalo ya!

Hola a todos:

 

Tengo un pequeño problemita, he desarrollado una pequeña aplicacion, la cual la empaquete sobre WINDOWS XP, no tengo ningun problema en las maquinas de mi empresa, todas tienen XP, pero en la recepción tengo un windows 98, en el cual lo instalo y tengo error en tiempo de ejecución. Mi prgunta es como le hago para empaquetar la aplicacion en XP, para que me soporte la aplicacion en windows 98.

 

Gracias saludos

Salvador Elvira

---

Do You Yahoo!? La mejor conexión a Internet y 2GB extra a tu correo por $100 al mes. http://net.yahoo.com.mx

JDI icq number 85093132

Contacto MSN: newtongeo@...

__________________________________________________
Correo Yahoo!
Espacio para todos tus mensajes, antivirus y antispam ¡gratis!
Regístrate ya - http://correo.espanol.yahoo.com/

----- Original Message -----

From: Salvador Elvira

To: DesarrolloVB@...

Sent: Wednesday, May 30, 2007 12:44 PM

Subject: [VB] EMPAQUETAR

Hola a todos:

 

Tengo un pequeño problemita, he desarrollado una pequeña aplicacion, la cual la empaquete sobre WINDOWS XP, no tengo ningun problema en las maquinas de mi empresa, todas tienen XP, pero en la recepción tengo un windows 98, en el cual lo instalo y tengo error en tiempo de ejecución. Mi prgunta es como le hago para empaquetar la aplicacion en XP, para que me soporte la aplicacion en windows 98.

 

Gracias saludos

Salvador Elvira

---

Do You Yahoo!? La mejor conexión a Internet y 2GB extra a tu correo por $100 al mes. http://net.yahoo.com.mx

Hola a todos:

 

Tengo un pequeño problemita, he desarrollado una pequeña aplicacion, la cual la empaquete sobre WINDOWS XP, no tengo ningun problema en las maquinas de mi empresa, todas tienen XP, pero en la recepción tengo un windows 98, en el cual lo instalo y tengo error en tiempo de ejecución. Mi prgunta es como le hago para empaquetar la aplicacion en XP, para que me soporte la aplicacion en windows 98.

 

Gracias saludos

Salvador Elvira

---

Do You Yahoo!? La mejor conexión a Internet y 2GB extra a tu correo por $100 al mes. http://net.yahoo.com.mx

__________________________________________________
Correo Yahoo!
Espacio para todos tus mensajes, antivirus y antispam ¡gratis!
Regístrate ya - http://correo.espanol.yahoo.com/

***********************
No virus was detected in the attachment no filename
***********-***********


Maestro, se le arreglo el programa pero se le estropeo el teclado.  :-)

c.x.

-----Mensaje original-----
De: Alfredo Kaleniuszka [SMTP:alfredo.kaleniuszka@...]
Enviado el: Miercoles, 30 de Mayo de 2007 14:01
Para: DesarrolloVB@...
Asunto: [VB] Re: ayuda!! Renombrar archivo

***********************
No virus was detected in the attachment no filename
No virus was detected in the attachment no filename
***********-***********


SIIIIIIIIIIIIIIIIIIIII!!!!!!!!!!!!!!!!!!!!!!!!!!!
ERA ESOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO!!!!!!!!!!!!!!!!!
GRACIAS!!!!!!!!!!! MUCHISIMAS GRACIAS!!!!!!!!!!!! ERAN LOS ":"
GUAAAAAAAAAAAAAAAAAAAAAAAAA GRACIAAAAAAAAAAAAAAAAAAAAS!!!!!!!!!!!!!!!!!!!!


  <<Archivo: ATT00022.htm>>

SIIIIIIIIIIIIIIIIIIIII!!!!!!!!!!!!!!!!!!!!!!!!!!!
ERA ESOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO!!!!!!!!!!!!!!!!!
GRACIAS!!!!!!!!!!! MUCHISIMAS GRACIAS!!!!!!!!!!!! ERAN LOS ":"
GUAAAAAAAAAAAAAAAAAAAAAAAAA GRACIAAAAAAAAAAAAAAAAAAAAS!!!!!!!!!!!!!!!!!!!!

1) asegurate de que el directorio PRUEBA y el archivo que querés
    renombrar existan
2) fijate que el archivo que querés renombrar no este abierto
3) fijate que en el nuevo nombre (nombfut) del archivo no haya
    caracteres no perimitidos ("*","'","\","/",":",etc)
    Cuando ponés la hora estás poniendo los ":".....

yo me inclino más por la ultima opcion, pero verificalas todas..
SALUDOS:.....


  Private Sub Form_Load()
  Dim var As Integer
  Dim nomact As String
  Dim nomfut As String
  Dim I As Integer
  Dim fecha As String
  Dim hora As String
  Dim ren As Long
  d.Drive = "c:\"
  Dir.Path = d.Drive & "\PRUEBA"
  f.Pattern = "*.TXT"
  f.Path = d.Drive & "\PRUEBA"
  var = f.ListCount - 1

  For I = 0 To var
      nomact = f.Path & "\" & f.List(I)
      fecha = Year(FileDateTime(f.Path & "\" & f.List(I))) & "-" &
Month(FileDateTime(f.Path & "\" & f.List(I))) & "-" & Day(FileDateTime
(f.Path & "\" & f.List(I)))
      hora = Hour(FileDateTime(f.Path & "\" & f.List(I))) & ":" &
Minute(FileDateTime(f.Path & "\" & f.List(I))) & ":" & Second
(FileDateTime(f.Path & "\" & f.List(I)))
      'On Error Resume Next
      nomfut = Mid(f.List(I), 1, Len(f.List(I)) - 4)
      nomfut = f.Path & "\" & nomfut & "_" & fecha & "_" & hora  ".txt"
      Name nomact As nomfut
      'ren = MoveFile(nomact, nomfut)
  Next I
  End Sub

Hola grupo como andan....
Este es mi problema: tengo un codigo en el cual quiero renombrar un
archivo en la misma ubicacion, cuando quiero ejecutar el "Name nombre
as nombrenuevo" me da un error en tiempo de ejecucion: Error '5' en
tiempo de ejecucion: Llamada a procedimiento o argumento no validos
Ya no se que hacer, necesito urgentemente que me ayuden con esto, aqui
les dejo el codigo que tengo.....

Private Sub Form_Load()
Dim var As Integer
Dim nomact As String
Dim nomfut As String
Dim I As Integer
Dim fecha As String
Dim hora As String
Dim ren As Long
d.Drive = "c:\"
Dir.Path = d.Drive & "\PRUEBA"
f.Pattern = "*.TXT"
f.Path = d.Drive & "\PRUEBA"
var = f.ListCount - 1

For I = 0 To var
     nomact = f.Path & "\" & f.List(I)
     fecha = Year(FileDateTime(f.Path & "\" & f.List(I))) & "-" &
Month(FileDateTime(f.Path & "\" & f.List(I))) & "-" &
Day(FileDateTime(f.Path & "\" & f.List(I)))
     hora = Hour(FileDateTime(f.Path & "\" & f.List(I))) & ":" &
Minute(FileDateTime(f.Path & "\" & f.List(I))) & ":" &
Second(FileDateTime(f.Path & "\" & f.List(I)))
     'On Error Resume Next
     nomfut = Mid(f.List(I), 1, Len(f.List(I)) - 4)
     nomfut = f.Path & "\" & nomfut & "_" & fecha & "_" & hora & ".txt"
     Name nomact As nomfut
     'ren = MoveFile(nomact, nomfut)
Next I
End Sub


Desde ya muchisimas gracias a todos!!!!!!!

Yo diria que antes de imprimir el código de barras no
has seleccionado el font correcto.  Algo así como:

     printer.font.name ="Code128"
     printer.font.size=18
     printer.print Codigo$
     printer.font="Arial"
     printer.font.size=10

Si lo haces con cristal, no puedo ayudarte.

Saludos
José A. Gracia



--- adelgadopino <adelgadopino@...> escribió:

> amigos, estoy terminando un punto de venta y estoy
> en la parte de
> impresion de boleto, necesito que nº de ticket se
> imprima al final del
> boleto en barras, tengo la fuente "codebar_128" ,
> tengo el codigo para
> trasnformar el text en barras, en la pantalla lo
> muestra sin problemas
> pero al imprimirlo me sale por ejemplo el ticket 11
> muestra ^11!^s, he
> intentado tantas cosas y nada, por favor ayudenme,
> gracias
>
>


Todos mis correos llevan un saludo y mi nombre y apellido al pie.  Desconfíe de
cualquier correo que no lo lleve y de los adjuntos que pueda contener.
Visite mi página en: http://www.joseantoniogracia.com
   en: http://usuarios.lycos.es/jagrane/
o en: http://personal.auna.com/jagrane/



______________________________________________
LLama Gratis a cualquier PC del Mundo.
Llamadas a fijos y móviles desde 1 céntimo por minuto.
http://es.voice.yahoo.com

__________________________________________________
Correo Yahoo!
Espacio para todos tus mensajes, antivirus y antispam ¡gratis!
Regístrate ya - http://correo.espanol.yahoo.com/

hola listeros, estoy mediante un procedimiento iniciando, parando
servicios de windwos, pero no se como reiniciar un servicio, yo estoy
usando esta linea:

El_Servicio.RefreshService

pero me sale un error. A continuacion detallo el codigo del proceso

Private Sub Accion_Service(Accion As E_Accion, Name_Servicio As
String)

Dim Obj_Wmi As Object
Dim Col_Servicios As Object
Dim El_Servicio As Object

Set Obj_Wmi = GetObject("winmgmts:{impersonationLevel=impersonate}!
\\.\root\cimv2")

Set Col_Servicios = Obj_Wmi.ExecQuery( _
             "Select * from Win32_Service Where Name ='" &
Name_Servicio & "'")

For Each El_Servicio In Col_Servicios

     If Accion = 0 Then
         'Detiene el servicio
         El_Servicio.StopService
         DoEvents
         MsgBox " Se detuvo el Name_Servicio : " & Name_Servicio,
vbInformation

     ElseIf Accion = 1 Then
         ' Inicia el servicio
         El_Servicio.StartService
         DoEvents
         MsgBox " Se inició el Name_Servicio : " & Name_Servicio,
vbInformation
     ElseIf Accion = 2 Then
         ' Reinicia el servicio
         El_Servicio.RefreshService
         DoEvents
         MsgBox " Se Reinició el Name_Servicio : " & Name_Servicio,
vbInformation
     End If
Next
End Sub

amigos, estoy terminando un punto de venta y estoy en la parte de
impresion de boleto, necesito que nº de ticket se imprima al final del
boleto en barras, tengo la fuente "codebar_128" , tengo el codigo para
trasnformar el text en barras, en la pantalla lo muestra sin problemas
pero al imprimirlo me sale por ejemplo el ticket 11 muestra ^11!^s, he
intentado tantas cosas y nada, por favor ayudenme, gracias

hola grupo, estoy haciendo una aplicación en la que necesito que el
tamaño de mis formularios (en general todas la pantallas) se ajusten a
la resolución de pantalla que tiene la máquina......
No se me permite ajustar a la resolución más conveniente, necesito
ajustar las pantallas de la aplicación.....

Si alguno tiene idea de como podría hacer, le agradecería mucho su
ayuda...

saludos....
Jorge

Hola tengo un problema, como puedo hacer para que en un control
datagrid no me muestre la fila que por defecto me aparece sin tener
ningun dato con enlace a un Adodc.

Saludos,
Eduardo.

Hola!

Si, conozco el Rijndael... En mi pedido original lo llamé AES (Advanced Encryption Standard) pero es el mismo que mencionas, el sucesor de DES.

Tiene más o menos la misma fuerza crpitográfica que TwoFish (Doble Blowfish) o que IDEA. (Son comparables)

Tengo por aquí (en papel) las definiciones matemáticas de todos esos algoritmos, aunque es un plomo tratar de pasarlos a código...

Pensé que sería más fácil de conseguir alguna versión ya implementada...

Algunos amigos me han pasado ya varias implementaciones, y estoy en la etapa de verificarlas y medir performance de ellas para elegir finalmente una...

(La verificacion la hago encriptando con el algoritmo, e intentando desencriptar con la misma clave y la Java Cryptographic Engine...) Es que el código de alguos lleva unas cuantas constantes hexa, y un solo digito mal haría que el cifrado no estuviera en norma, por lo tanto no me serviría...

Pero bueno, espero en esta semana tener resuelto el problema...

Desde ya muchas gracias por tu interés.

Saludos
Alberto

On 5/22/07, walterv <vaggi_walter@yahoo.com.ar> wrote:

Hola Alberto

Te comento que el mejor algoritmo criptográfico simétrico fuerte, es el "Algoritmo Rijndael" este es  block cipher que cifra bloques de 128, 192,  o 256 bits, y  usa  claves  simétricas  también de 128, 192 o 256 bits. Consiste en una ronda inicial , de un número "r" de rondas que es de 10,12 o 14 dependiendo de la longitud del bloque y de la clave. 

Este algoritmo de cifrado es el estandar que se implementó en los estados unidos y sustituye al agonizante DES (56 bits de clave, por lo que resulta inseguro actualmente.

Cuando encuentre algo de código te lo envío, por el momento yo no encuentro el código que poseía en mi máquina.

Saludos Walter

Hola, gracias por responder, como pensé y algunos
colisteros me dijeron, era problemas de
librerías, hice el paquete de instalación con el
instalador de VB coo me comentaron algunos
colisteros , lo instalé en cada máquina y resuelto el problema.
La consulta tabajaba bien en mi red, y tambien al
conectar mi notebook en la red del cliente, por
lo que era lógico pensar en librerias
MUCHAS GRACIAS A TODOS POR SU AYUDA:)



>www.dependencywalker.com/
>
>El día 18/05/07, suso <<mailto:jlcubas@...>jlcubas@... > escribió:
>
>Hola otra vez a todos, como puedo saber las dll y todos los
>componentes que necesita tanto el control datagrid como el adodc u
>otros controles ?
>
>He mirado las referencias en el proyecto->referencias, en
>proyecto->componentes y en el fichero vbp, abriendolo con el editor
>de texto, pero me faltan dll's y/o ocx's, ya que lo instalao en otro
>pc que no sea el de desarrollo, y no me funciona, no me da error,
>pero no me presenta datos ninguno, solo la pantalla de la rejilla, sin datos.
>
>He mirado en internet a ver si encontarba algo sobre eso..pero nada de nada.
>
>Uso installshield 2.4 y 3.5, pero sin resultado:(
>
>Alguna idea
>
>Muchas gracias por adelantado
>Saludos
>Suso
>
>
>

Saludos!!! creo que la mejor forma de hacerlo (al menos a mi me a
servido muchisimo es la siguiente:

Creen un archivo de texto con el block de notas y copien lo siguiente:

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\dllfile\Shell]
@="Register"

[HKEY_CLASSES_ROOT\dllfile\Shell\Register]

[HKEY_CLASSES_ROOT\dllfile\Shell\Register\Command]
@="C:\\WINDOWS\\system32\\regsvr32.exe \"%1\""

[HKEY_CLASSES_ROOT\dllfile\Shell\Unregister]

[HKEY_CLASSES_ROOT\dllfile\Shell\Unregister\Command]
@="C:\\WINDOWS\\system32\\regsvr32.exe \"%1\" /u"

[HKEY_CLASSES_ROOT\ocxfile\Shell]
@="Register"

[HKEY_CLASSES_ROOT\ocxfile\Shell\Register]

[HKEY_CLASSES_ROOT\ocxfile\Shell\Register\command]
@="C:\\WINDOWS\\system32\\regsvr32.exe \"%1\""

[HKEY_CLASSES_ROOT\ocxfile\Shell\Unregister]

[HKEY_CLASSES_ROOT\ocxfile\Shell\Unregister\command]
@="C:\\WINDOWS\\system32\\regsvr32.exe \"%1\" /u"

guarden el archivo como "Registro.Reg" y luego denle Doble Click

Con esto se guardarán el el registro las claves con las que tendran
en el menú emergente las opciones de "Register" y "Unregister" para
librerias 'dll' y para archivos 'ocx' dejando por default la opcion
de "Register".

Espero que les sirva

ISC. José Gustavo Montaño Morales
Biometrics Developer Team Leader
Identidad Digital Veracruz

--- En DesarrolloVB@..., "Briand Bernal"
<briand.bernal@...> escribió:
>
> Si pero a veces queres quitar una dll, y el trabajo de escribir es
engorroso estar abriendo el interfaz en el directorio correcto.
> Por eso fue que se me ocurrio, y fue por esa razon de "unregister
dll" que se me ocurrio hacerlo.
>
> Por la pregunta final, jaja, tienes razon. Se podrian ver los
iconos, pero no importa.
>
> Saludos,
> Briand
>
>   ----- Original Message -----
>   From: Alberto M. Vernieri
>   To: DesarrolloVB@...
>   Sent: Monday, May 21, 2007 4:48 PM
>   Subject: Re: [VB] RegSvr32GUI (Interfaz grafico para registrar
DLL)
>
>
>   Hola!
>
>   Yo lo que suelo hacer es: Una vez en la vida (de cada instalación
de Windows) voy al explorer, apunto a una dll, Shift click
derecho, "Abrir con..." (o bien "Open with..." según el idioma),
Botón Otros programas, navego hasta system32\regsvr32, y marco la
casilla "Usar siempre este programa"
>
>   Una vez hecho esto, cada vez que quiero registrar una DLL, la
busco en el explorador, le doy doble click y voilá...
>
>   Se puede hacer otro tanto con los OCX...
>
>   Total, qué otra actividad se te ocurre que podrías querer hacer
clickeando sobre una dll u ocx, que no sea registrarlos?
>
>   Saludos
>   Alberto
>
>
>
>   On 5/21/07, Briand Bernal <briand.bernal@...> wrote:
>
>     Buenos dias
>     Ayer en un momento de loco, que me volvia a encontrar con tener
que registrar DLL, otra vez tenia que recurrir a la linea de comandos.
>     Un poco engorrozo el tema, decidi hacer una interfaz grafica
para estas tareas.
>
>     Lo comparto con el grupo, espero que les sirva.
>     El link
>     http://www.seypro.com/utils/RegSvr32GUI.exe
>
>     Saludos,
>     Briand Bernal
>
>     _=
>

Hola

 

Pon el codigo en AfterColUpdate en vez de en AfterColEdit.

 

Atte,

Roly

 

----- Original Message -----

From: edwin_sipion

To: DesarrolloVB@gruposyahoo.com.ar

Sent: Thursday, May 17, 2007 8:48 PM

Subject: [VB] Problema con el true dbgrid

Uso la version 8 del true dbgrid, pero a veces no ejecuta el evento
aftercoledit, mi codigo es el siguiente al modificar una casilla del
grid, como les repito solo pasa a veces, pero me ocasiona a veces que
los calculos no sean los deseados

Private Sub dg_AfterColEdit(ByVal ColIndex As Integer)
Select Case ColIndex
Case C_CANTIDAD:
CalculoTotal
Case C_FRACCION:
CalculoTotal
Case C_PUNIT
CalculoDetalle
CalculoTotal
Case C_PRECIO 'precio
CalculoTotal
End Select
End Sub

----- Original Message -----

From: Alberto M. Vernieri

To: DesarrolloVB@...

Sent: Monday, May 21, 2007 4:48 PM

Subject: Re: [VB] RegSvr32GUI (Interfaz grafico para registrar DLL)

Hola!

Yo lo que suelo hacer es: Una vez en la vida (de cada instalación de Windows) voy al explorer, apunto a una dll, Shift click derecho, "Abrir con..." (o bien "Open with..." según el idioma), Botón Otros programas, navego hasta system32\regsvr32, y marco la casilla "Usar siempre este programa"

Una vez hecho esto, cada vez que quiero registrar una DLL, la busco en el explorador, le doy doble click y voilá...

Se puede hacer otro tanto con los OCX...

Total, qué otra actividad se te ocurre que podrías querer hacer clickeando sobre una dll u ocx, que no sea registrarlos?

Saludos
Alberto

On 5/21/07, Briand Bernal <briand.bernal@gmail.com> wrote:

Buenos dias

Ayer en un momento de loco, que me volvia a encontrar con tener que registrar DLL, otra vez tenia que recurrir a la linea de comandos.

Un poco engorrozo el tema, decidi hacer una interfaz grafica para estas tareas.

 

Lo comparto con el grupo, espero que les sirva.

El link

http://www.seypro.com/utils/RegSvr32GUI.exe

 

Saludos,

Briand Bernal

_=

Hola, el problema es que no me da mensajes de
error, solo que no me muestra los datos en la
rejilla, , cuando si me da mensajes de error, es
en la entrada de datos,"esa clase no esta registrada".
Saludos
Suso

>Tal vez no estes registrando las dll o ocx.
>
>Si podes ser mas especifico en los mensajes de error mejor.
>
>Saludos,
>Briand
>
>----- Original Message -----
>From: <mailto:jlcubas@...>suso
>To: <mailto:visualbasic-esp@yahoogroups.com>visualbasic-esp@yahoogroups.com
>Cc:
><mailto:DesarrolloVB@...>DesarrolloVB@...
>;
><mailto:canalvisualbasic@...>canalvisualbasic@...
>;
><mailto:desarrolladores-software@yahoogroups.com>desarrolladores-software@yahoo\
groups.com
>
>Sent: Friday, May 18, 2007 7:36 PM
>Subject: [VB] Averiguar librerias en un proyecto de vb6
>
>Hola otra vez a todos, como puedo saber las dll y todos los
>componentes que necesita tanto el control datagrid como el adodc u
>otros controles ?
>
>He mirado las referencias en el proyecto->referencias, en
>proyecto->componentes y en el fichero vbp, abriendolo con el editor
>de texto, pero me faltan dll's y/o ocx's, ya que lo instalao en otro
>pc que no sea el de desarrollo, y no me funciona, no me da error,
>pero no me presenta datos ninguno, solo la pantalla de la rejilla, sin datos.
>
>He mirado en internet a ver si encontarba algo sobre eso..pero nada de nada.
>
>Uso installshield 2.4 y 3.5, pero sin resultado:(
>
>Alguna idea
>
>Muchas gracias por adelantado
>Saludos
>Suso
>
>