Problemas al Imprimir en Visual Basic - VB-MUNDO

nag1967 · #1 (**permalink**) 30-09-2003, 01:00:00

Problemas al Imprimir en Visual Basic

Tengo que imprimir tres comprob. en una hoja, 1ro. debe imprimir 1 posicionar la hoja para poder cortarla, luego al imprimir otro comprob. debe volver el cabezal de la impresora al inicio de la hoja, imprimir el otro comprob y así sucesivamente.
Estoy probando con una API de windows winspool.drv, pero no se como manejar el tamaño de papel, ya que el mismo es uno definido por el usuario...

Gracias.</TR>

imported_chiaravel · #2 (**permalink**) 30-09-2003, 01:00:00

RE: Problemas al Imprimir en Visual Basic

Hola,

Asumo que tu impresora es Matricial.

Tienes la funcion TEAR OFF habilitada ?

Fijate en el seteo de tu impresora, ya que al avanzar para cortar el formulario, e iniciar un nuevo formulario teoricamente la impresión deberia retroceder hasta el comienzo de la nueva hoja.

No creo que sea un problema de APIs sino de seteo de impresora.

Gracias

nag1967 · #3 (**permalink**) 30-09-2003, 01:00:00

RE: Problemas al Imprimir en Visual Basic

Si la impresora es matricial, y si le envio los comando directamente al puerto esto funciona de primera. Y tb. desde una aplicación DOS Tb. funciona muy bien. Yo lo estoy usando enviando directamente al Puerto LPT1, pero mi otro ploblema es que en las estaciones tengo XP y no puedo capturar los puerto, si no que uso el cliente de NOvell para capturar el puerto. Todas las Pc tienen Xp y estan en red, desde un PC puedo imprimir el comprobante a otra que tiene la mpresora..</TR>

J.M.Movilla · #4 (**permalink**) 30-09-2003, 01:00:00

RE: Problemas al Imprimir en Visual Basic

Hola nag

Estoy viendo tu problema y no me resulta fácil entender qué es exactamente lo que te pasa; me da la impresión de que los datos no llegan a imprimirse porque no defines adecuadamente el puerto de salida...

Hablas de que antes iba bien con una red LAN (Novell) y que te falla con la red de Windows... y sospecho que se trata de que lo lanzas por el puerto LPT1 y no le tienes adecuadamente capturado.

Te agradecería que ampliaras más detalles del fallo, a ver si entre todos podemos dar salida a tu escollo.

Saludos y suerte</TR>

nag1967 · #5 (**permalink**) 30-09-2003, 01:00:00

RE: Problemas al Imprimir en Visual Basic

Quiero imprimir con windows xp en una matriz de punto LX-300, pero no puedo definir el tamaño de hoja personalizada. Tb. Probe con una generica y no funciono.
</TR>

Tena36 · #6 (**permalink**) 30-09-2003, 01:00:00

RE: Problemas al Imprimir en Visual Basic

Hola nag1967 !!

Cuando tengo que imprimir informes en una impresora matricial utilizo esta rutina casera. Se que parece rebuscado, pero me ha dado buenos resultados.

Veamos si te puede servir este ejemplo:

Private Sub Imprimir()
dim i as Integer
dim iFilas as Integer
dim iFilasxHoja as Integer
dim iHoja as Integer
dim iFilasToPrint as Integer

iFilasxHoja = 72 Cantidad de filas que contiene una hoja
iFilasToPrint = 66 Cantidad de filas a imprimir por hoja
iFilas = 0 Cantidad de filas impresas
iHojas = 0 Cantidad de hojas impresas

rsRecordset.MoveFirst
Open App.Path & "informe.txt" For Output As #1 Abre un archivo para operaciones de salida.

Do While .not. rsRecordset.EOF

If iFilas > iFilastoPrint Then
If iHoja = 0 Then Primer hoja
iHoja = iHoja + 1
Else
Avanzo filas segun como he configurado la cantidad de filas impresas por hoja
For i = iFilasToPrint to iFilasxHoja
Print #1,
Next i
iFilas = 0
Endif
Endif

If iFilas = 0 Then Principio de la hoja
Print #1, "Titulo 1"
Print #1, "Titulo 2"
Print #1,
Print #1, "Encabezado de cada Columna"
iFilas = 4
Else
Imprimo una fila de datos
Print #1, rsRecordset(0) & " " & rsRecordset(1) & " " & rsRecordset(2)
iFilas = iFilas + 1
rsRecordset.MoveNext
Endif

Loop

Close #1 Cierro el archivo de texto

--------------------------------------------------------------------------
Ahora te doy dos opciones para imprimir el archivo:

1) En este ejemplo se pierden las propiedades como negrita, doble ancho, etc.

Open App.Path "informe.txt" For Binary As #1
NLen = LOF(1)
Open "LPT1" For Output As #2
For I = 1 To NLen
Get #1, I, Caracter
Print #2, Chr(Caracter);
Next
Close #1
Close #2

2) Usando el comando Shell

Shell "command.com /C type " & App.Path & "informe.txt > prn"

--------------------------------------------------------------------------

Espero que te sea útil
Un abrazo
Tena36

</TR>

Tena36 · #7 (**permalink**) 17-09-2004, 01:00:00

RE: Problemas al Imprimir en Visual Basic

Pido disculpas. Al mismo tiempo que escribía el post anterior, estaba modificando un programa en clipper, por ese cometí el error de escribir lo siguiente:

Do While .not. rsRecordset.EOF

donde .not. no corresponde, sino solamente NOT (sin puntos).

Nuevamente perdón....

Tenaza

</TR>