Imprimir en papal continuo

Hola Ariel,

Creo que la mejor opción es la impresión directa a la impresora, es decir,
controlando los saltos de página cada 60 líneas y dibujando algunas líneas
mediante DOS.

Porque utilizar esto?, tendrás una mejor velocidad de impresión que si lo
haces directamente con los métodos del Print del Visual Basic, independiente
que si cambias el font a Courier New de tamaño 10, la primera página lo
tomará bién, pero las siguientes se desconfigurarán... (al menos sucedía con
el vb 6.0 ... mmm... pero no recuerdo con qué SP).

Como?.

Ejemplo:

Dim intFile As Integer
intFile = FreeFile

Dim Archivo As String
'Aqui va la direccion donde está la impresora matricial... puedes colocar
LPT1 si está conectada a este puerto.
Archivo = " \\SERVIDOR\IMPRESORAMATRIZDEPUNTO "

Open Archivo For OutPut As #intFile

Print #intFile, " TITULO DE LA IMPRESION"
Print #intFile, " "
Print #intFile, "Datos: " & "Esto es una Prueba"
Print #intFile, Chr(12) 'SALTO DE PAGINA

Print #intFile, " AHORA ESTAMOS EN LA OTRA PAGINA"
Print #intFile, " "
Print #intFile, "Datos: " & "Esto es una Prueba"
Print #intFile, Chr(12) 'SALTO DE PAGINA

Close #intFile

También tienes otras secuencias de escape que te permiten achicar y agrandar
la letra... si quieres hacer esto, solo basta colocar al comienzo de cada
palabra que envíes a la impresora lo siguiente:

'Para Agrandar:
Print #intFile, Chr(27) & Chr(14) & "LETRA GRANDE"
Print #intFile, Chr(27) & Chr(15) & "LETRA CHICA"
Print #intFile, Chr(27) & Chr(18) & "LETRA NORMAL"

Espero se entienda.


Saludos,
Jhonny Vargas P.
Santiago de Chile
http://msmvps.com/jvargas



"Ariel Cacho Mendoza" <acachom@[SPAM]hotmail.com> escribió en el mensaje
news:e3M8h$

Hola foro,

Tengo que imprimir unos reportes, pero lo problemático es que lo tengo que
imprimir en una impresora que tiene papel continuo.

Alguien tiene alguna idea de como lo puedo hacer?

Gracias de antemano

Saludos cordiales,
Ariel

Ups... me equivoque (donde vi el mismo mensaje en el foro de VB 6.0)

De todas formas cambia el modo de crear el archivo por el de .NET, pero la
idea es la misma.. también te funcionará.


"Jhonny Vargas P. [MVP]" escribió en el
mensaje news:eGBc$

Hola Ariel,

Creo que la mejor opción es la impresión directa a la impresora, es decir,
controlando los saltos de página cada 60 líneas y dibujando algunas líneas
mediante DOS.

Porque utilizar esto?, tendrás una mejor velocidad de impresión que si lo
haces directamente con los métodos del Print del Visual Basic,
independiente que si cambias el font a Courier New de tamaño 10, la
primera página lo tomará bién, pero las siguientes se desconfigurarán...
(al menos sucedía con el vb 6.0 ... mmm... pero no recuerdo con qué SP).

Como?.

Ejemplo:

Dim intFile As Integer
intFile = FreeFile

Dim Archivo As String
'Aqui va la direccion donde está la impresora matricial... puedes colocar
LPT1 si está conectada a este puerto.
Archivo = " \\SERVIDOR\IMPRESORAMATRIZDEPUNTO "

Open Archivo For OutPut As #intFile

Print #intFile, " TITULO DE LA IMPRESION"
Print #intFile, " "
Print #intFile, "Datos: " & "Esto es una Prueba"
Print #intFile, Chr(12) 'SALTO DE PAGINA

Print #intFile, " AHORA ESTAMOS EN LA OTRA PAGINA"
Print #intFile, " "
Print #intFile, "Datos: " & "Esto es una Prueba"
Print #intFile, Chr(12) 'SALTO DE PAGINA

Close #intFile

También tienes otras secuencias de escape que te permiten achicar y
agrandar la letra... si quieres hacer esto, solo basta colocar al comienzo
de cada palabra que envíes a la impresora lo siguiente:

'Para Agrandar:
Print #intFile, Chr(27) & Chr(14) & "LETRA GRANDE"
Print #intFile, Chr(27) & Chr(15) & "LETRA CHICA"
Print #intFile, Chr(27) & Chr(18) & "LETRA NORMAL"

Espero se entienda.


Saludos,
Jhonny Vargas P.
Santiago de Chile
http://msmvps.com/jvargas



"Ariel Cacho Mendoza" <acachom@[SPAM]hotmail.com> escribió en el mensaje
news:e3M8h$

Hola foro,

Tengo que imprimir unos reportes, pero lo problemático es que lo tengo
que
imprimir en una impresora que tiene papel continuo.

Alguien tiene alguna idea de como lo puedo hacer?

Gracias de antemano

Saludos cordiales,
Ariel