RESPONDER UNA PREGUNTA

Si para responder la pregunta, crees necesario enviar un archivo adjunto, puedes hacerlo a traves del correo [email protected]

    Pregunta:  5926 - PROBLEMA IMPRIMIR DIRECTAMENTE A LPT!
Autor:  Jordi Adell
Hola! Quiero imprimir etiquetas desde VB 6.0, para ello no quiero usar el objeto PRINTER. Los datos que quiero imprimir los recupero de un recordset.

Imprimo directamente a LPT1: con

DIM Nombre AS String
WITH datos.recordset
Nom = "NOMBRE : " & .fields("Nombre").value
OPEN "LPT1:" FOR OUTPUT AS #1
PRINT #1, Nom
CLOSE #1

Este proceso me falla, al llegar a CLOSE #1, se "cuelga" el programa. He probado con:

Nom = CStr("NOMBRE : " & .fields("Nombre").value)
Nom = "NOMBRE : " + .fields("Nombre").value

Y el resultado es igual, pero si asigno:

Nom = .fields("Nombre").value

funciona perfectamente.
Alguien tiene idea de porqué.
Gracias y un saludo a todos.


Nombre
Apellidos
Correo
Comentarios