SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: 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!! :clown:
-
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
-
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 :question: Cómo cuadro el formato para el papel? márgenes?
Muchas gracias y Chao! :clown:
-
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
-
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! :clown: :gracias: