Objeto printer y salto de linea en vb6.0

[franko1809]

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

[pkj]

No puedo probarlo, así que no se si funcionará a la primera, pero creo que algo como esto te podría servir:

Código vb:

Printer.Print
rs.MoveFirst
Do Until rs.EOF
    With rs
 
        Dim sImp0 As String, F As Long, VarTemp As String
 
        sImp0 = Format(!descripcion)
        sImp3 = Format(!subtotal, "###0.00")
 
        For F = 1 To Len(sImp0)
          VarTemp = VarTemp & Mid$(sImp0, F, 1)
          If Printer.TextWidth(VarTemp) > 44 Then Exit For
        Next F
        VarTemp = ""
        If F <= Len(sImp0) Then
          sImp3 = sImp3 & vbCrLf & Mid$(sImp0, F)
          sImp0 = Left$(sImp0, F-1)
        End If
 
        Printer.CurrentX = 5
        Printer.Print sImp0;
 
        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;
        
        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
 

Feliz 2010

[franko1809]

Bien pkj me despejaste la mente.

saludos