Autor Tema: Re: Como hago para el LPT1? (Leído 1395 veces)

misterwilliam · « **en:** Viernes 25 de Abril de 2003, 02:22 »

Amigos, cómo hago para manejar el envío de los datos al puerto de la impresora, incrementando una variable???

Es decir, necesito mandar a imprimir los número del 1 al 20 con un click, obviamente en distintas hojas. Necesito que?

Muchas gracias y Chao!!

J.M.Movilla

No sé si he entendido bien tu problema, pero supongo que te lo solucione con

Dim I
For I = 1 To 20
Printer.Print I
Printer.NewPage
Next I
Printer.EndDoc

¿Era eso?

Saludos y suerte

misterwilliam

Al peluche!!! mi amigo. Muchas gracias, sí es esto lo que necesito. Ahora, creo que ya puedo utilizar el contenido I para aplicarle formato de fuente y la posición para ubicarlo. Sólo si no es mucha molestia

Cómo cuadro el formato para el papel? márgenes?

Muchas gracias y Chao!

J.M.Movilla

A ver si te sirve este código:

' Ponemos, por ejemplo, 1 pulgada de márgenes
Const TOP_MARGIN = 1440 ' Margen superior
Const LEFT_MARGIN = 1440 ' Define aquí el margen izquierdo que desees

Dim bottom_margin As Single
' Define el margen inferior, con una pulgada también
bottom_margin = Printer.ScaleTop + Printer.ScaleHeight - 1440

' Empieza la impresión
Printer.CurrentY = TOP_MARGIN
For I = 0 to 20
Printer.CurrentX = LEFT_MARGIN
Printer.Print Format$(I, "00") ' Puedes poner formato para valores con decimales "##0.00"

If Printer.CurrentY >= bottom_margin Then
' Harías un salto de página si el bucle no fuera de sólo 20 líneas
Printer.NewPage
Printer.CurrentY = TOP_MARGIN
End If

Next

' Termina la impresión
Printer.EndDoc

Espero que también te vaya al peluche...

Un abrazo

misterwilliam

Muchas gracias por su dedicación compañero, haré lo que me ha indicado. Esto es de mucha ayuda y créame que me va a servir mucho. Si tengo alguna duda volvferé a molestarlo O.K.?

Por ahora, Gracias y Chao!