Cortar y Alinear con printer

[E N T E R]

Tengo un texto que supera los limites de la descripción de una factura y prepare un método para recortar pero no puedo alinear la cantidad, p.venta y sub-total como el ejemplo de la segunda factura. como ven en la segunda factura el nº 2 esta alineado por pago publicidad.



Quiero que quede así


Este es mi codigo.

Código: (VB) [Seleccionar]

Private Sub Command1_Click()
    Dim sLineas As Integer
    Printer.ScaleMode = 6
    For a = 1 To 2
        Inicio = 1
        Final = 25
        xTexto = "PAGO DE PUBLICIDAD MES DE NOVIEMBRE Y DICIEMBRE"
        TLineas = Int(Len(xTexto) / Final) + 1
        For i = 1 To TLineas
            xDescripcion = Trim(Mid(xTexto, Inicio, Final))
            Inicio = (i * Final) + 1
            nLineas = nLineas + 5
            Printer.CurrentX = 32:  Printer.CurrentY = 72 + nLineas
            Printer.Print xDescripcion
        Next i
        Printer.CurrentX = 15:       Printer.CurrentY = 72 + nLineas:  Printer.Print "2"
        Printer.CurrentX = 100:      Printer.CurrentY = 72 + nLineas:  Printer.Print "1.000"
        Printer.CurrentX = 141:      Printer.CurrentY = 72 + nLineas:  Printer.Print "2.000"
    Next a
    Printer.EndDoc
End Sub

[erbuson]

Creo que en realidad sólo tienes que crear una variable para memorizar el valor que asignas a CurrentY cuando i del bucle vale 1, o sea cuando imprimer la primera linea de texto.

Algo asi:

Private Sub Command1_Click()
  Dim sLineas As Integer
  Dim Y As Single
  Printer.ScaleMode = 6
    For a = 1 To 25
      Inicio = 1
      Final = 25
      xTexto = "PAGO DE PUBLICIDAD MES DE NOVIEMBRE Y DICIEMBRE"
      TLineas = Int(Len(xTexto) / Final) + 1
      For I = 1 To TLineas
        xDescripcion = Trim(Mid(xTexto, Inicio, Final))
        Inicio = (I * Final) + 1
        nLineas = nLineas + 5
        Printer.CurrentX = 32:  Printer.CurrentY = 72 + nLineas
        If I = 1 Then Y = Printer.CurrentY       
        Printer.Print xDescripcion
      Next I
      Printer.CurrentX = 1:    Printer.CurrentY = Y:  Printer.Print "2"
      Printer.CurrentX = 100:  Printer.CurrentY = Y:  Printer.Print "1.000"
      Printer.CurrentX = 140:  Printer.CurrentY = Y:  Printer.Print "2.000"
      Next a
      Printer.EndDoc
End Sub

[E N T E R]

Gracias amigo, funciona de maravillas.

Saludos...