[Ayuda] Proyecto en vb6 para pasar a pdf un textbox

[ke0p]

Hola a todos!

Estoy realizando un proyecto en vb6 para crear un archivo pdf a partir del texto de un textbox, y no consigo que me salga en varias lineas el pdf, me estoy volviendo loco ya, por eso os posteo aquí jaja Este es el codigo que a ver si me ayudais a modificar para que salga correctamente.

Código [Seleccionar] Expandir

Dim pdf As PdfComLib.PdfDoc

Private Sub cmdPDF_Click()
    Dim key() As String
    Dim Real(25) As String
    Dim X, CaratesPorLinia, num_Lineas, Lineas_Escritas As Integer
    Dim Escrito As String
    CaratesPorLinia = 112
    key = Split(Text2.Text, vbCrLf) 'rescato el texto con los saltos de línea
    Printer.FontName = "Courier New"
    Printer.FontBold = False
    Printer.FontSize = 10
    Printer.CurrentY = 9500
    num_Lineas = (Len(key(X)) / CaratesPorLinia)
    r = 0
    Lineas_Escritas = 0
    Set pdf = New PdfDoc
    pdf.AddPage (1)
    pdf.SetFont "Arial", "", 10
    MsgBox num_Lineas
    'For X = LBound(key) To UBound(key)
        'Do While num_Lineas > Lineas_Escritas
            If Len(key(X)) > CaratesPorLinia Then
                 'For I = 0 To 50
                    'Real(r) = Left(key(X), CaratesPorLinia)
                    pdf.Cell 20 + I, 10, Left(key(X), CaratesPorLinia), 0, 20, 10, 0, ""
                    'r = r + 1
                    pdf.Cell 20 + I, 10, Right(key(X), (Len(key(X)) - CaratesPorLinia)), 0, 20, 10, 0, ""
                    'Lineas_Escritas = Lineas_Escritas + 1
                'Next
           End If
        'Loop
        If num_Lineas < 1 Then
            pdf.Cell 20, 10, key(X), 0, 20, 10, 0, ""
        End If
    'Next
    NombreDocumento = "Doc1.pdf"
    pdf.SaveAsFile (NombreDocumento)
End Sub

P.D: El .dll que uso para generar el pdf es el pdfcom.dll, es gratuito, con buscar wxpdf en google sale la primera pagina con unos cuantos ejemplos a cerca de su uso.

Muchas Gracias de Antemano! Un Saludo!