Ver Mensaje Individual
  #1 (permalink)  
Antiguo 31/12/2009, 13:15
franko1809
 
Fecha de Ingreso: enero-2008
Ubicación: Lima - Perú
Mensajes: 1.127
Antigüedad: 16 años, 3 meses
Puntos: 10
Objeto printer y salto de linea en vb6.0

Estoy imprimiento un bucle pero cuando el campo !descripcion es demaciado largo necesito que haga un salto de linea al chocar con el campo !precio para evitar que esten uno sobre otro.

Producto1 50.00 1 100.00
Producto2 25.00 5 125.00
Otro prod 60.00 2 120.00
ucto 2

Producto5 25.00 4 100.00

Código:
Printer.Print
rs.MoveFirst
Do Until rs.EOF
    With rs
        Printer.CurrentX = 5
        Printer.Print !descripcion;

        sImp1 = Format(!precio, "###0.00")
        Printer.CurrentX = 49 - (Printer.TextWidth(sImp1)) 'Alinea los decimales a la derecha?
        Printer.Print sImp1;
       
        sImp2 = Format(!cantidad)
        Printer.CurrentX = 59 - (Printer.TextWidth(sImp2))
        Printer.Print sImp2;
        
        sImp3 = Format(!subtotal, "###0.00")
        Printer.CurrentX = 69 - (Printer.TextWidth(sImp3))
        Printer.Print sImp3;
        
        Printer.CurrentY = Printer.CurrentY + 0.9 'Espacio entre cada fila del rs
    End With
    rsl.MoveNext
Loop
Printer.Print