SoloCodigo

Hola:

Quiero emitir un listado sabiendo el puerto a imprimir y buscando la impresora que está en ese puerto.

Se como averiguar y setear esa impresora como predeterminada.
El problema que tengo es que tengo instalado el Symantec Fax que está en ese puerto como una impresora (¿?).
Entonces en vez de darme mi impresora me da el Fax.
Cómo puedo descartar (obviamente que no sea preguntando ese nombre porque pueden ser otros) ?

ahi va la rutina que hago

private Sub modificopuerto(puerto As Byte)
anterior = Printer.DeviceName
If puerto = 0 Then Exit Sub
Dim laimpre As Printer
For Each laimpre In Printers
If laimpre.Port = "LPT" & puerto & ":" Then
CUALi = laimpre.DeviceName
Set Printer = laimpre
Exit For
End If
Next laimpre
End Sub

Gracias, cualquier ayuda es bienvenida.
Néstor G

La propiedad width de printer es el tamaño del ancho físico del papel o es el área imprimible ?

Si fuera el físico, cómo averiguo el área imprimbible.

Otra similar:

Si hago Printer.textwidth de un string me da que es menor al printer.width sin embargo se trunca por qué ??

Néstor G

Hola: estoy haciendo como un vista preliminar de lo que imprimo.

Probé con Picture y print "un texto".
Encontré como agregarle VyHScroll (gracias a quien me respondió el mensaje mio anterior).

Trabajo en Vb 6.0
El problema que tengo y pregunto si existirá alguna solución es que cuando imprimo en un picture que es más pequeño de lo que mando con el print, el texto me lo trunca (aunque ponga autosize) y no se me ocurre como o recuperar lo truncado para poder por ejemplo scrollearlo

Alguien tiene alguna idea ? Si tuvieran que hacer el Vista Preliminar del Word por ejemplo qué control usarían ?

Con el Richtext el problema que me encontré es que trabaja por texto y no puedo ubicar coordenadas (por ejemplo richtext.currentx, etc).

Toda idea es bienvenida !
Gracias

Quizás quieras algo más sofisticado pero porqué no hacés:

N = err.number y guardás el N en una tabla ?

Néstor G

Como hago un enter en un texbox y que no me salga un
>símbolo |

Tanto si pongo la constante VbCrLf como el ascii 13 y 10 me pasa lo mismo :

>Si hago t.txt = "AA" + CHR (13) + CHR (10) + "BB"
>Sale AA||BB   en vez de
>AA
>BB
>
>Alguien sabe porqué ?
>Gracias

Como introducir un enter en un textbox :
Si hago t.txt = "AA" + chr (13) + chr (10) + "BB"
Me sale AA||BB en vez de
AA
BB

Alguien sabe porqué ?
Gracias
NG