Mensaje enviado por "dezalot" <dezalot@tucbbs.com.ar>

Santiago:

Te complemento con una rutina que facilita mas aún las impresiones de líneas por intermedio del objeto Printer.
Esta rutina debe estar en un modulo bas para invocarla en todas tus impresiones.

Public Function Rayado(nIzq1 As Integer, nSup1 As Integer, nDer1 As Integer, nInf1 As Integer, cColor1 As Variant, Optional nEspesor1 As Integer = 1, Optional nEstilo1 As Byte = 0)
Dim nEstilo2 As Byte
Dim nEspesor2 As Integer

Printer.DrawWidth = nEspesor1
Printer.DrawStyle = nEstilo1
Printer.Line (nIzq1, nSup1)-(nDer1, nInf1), cColor1

Printer.DrawStyle = nEstilo2
Printer.DrawWidth = nEspesor2
End Function

Para dibujar cajas, tenes esta otra que complementará tambien tu programación.

Public Function Caja(nIzq1 As Integer, nSup1 As Integer, nDer1 As Integer, nInf1 As Integer, cColor1 As Variant, Optional nEspesor1 As Integer = 1, Optional nEstilo1 As Byte = 0)
Dim nEstilo2 As Byte
Dim nEspesor2 As Integer
nEstilo2 = Printer.DrawStyle
nEspesor2 = Printer.DrawWidth
Printer.DrawStyle = nEstilo1
Printer.DrawWidth = nEspesor1
Printer.Line (nIzq1, nSup1)-(nDer1, nInf1), cColor1, B
Printer.DrawStyle = nEstilo2
Printer.DrawWidth = nEspesor2
End Function

Si bien ambas son casi identicas, sus nombre te ayudan a diferenciar tu necesidad.

Cuando las necesitas desde una salida, solo pon

Rayado ExtremoIzquierdo, ExtremoSuperior, ExtremoDerecho, Extremo Inferior, Color, [ Espesor] , [Estilo]

Caja ExtremoIzquierdo, ExtremoSuperior, ExtremoDerecho, Extremo Inferior, Color, [ Espesor] , [Estilo]

A la hora de armar tus impresiones, es menos complicado manejarla asi y reducirás líneas de programación.

Saludos
Dante Dezalot
Tucumán - Argentina


>>> Grupo Juncal.Notes."\"Santiago Lombardi\" <slombardi@way.com.ar>@BNL"
06/11/01 13:33 >>>
hola queria saber cual es la mejor manera de imprimir una linea horizontal que atraviece una hoja con el objeto printer.

desde ya gracias

santiago