elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  [Ayuda] Proyecto en vb6 para pasar a pdf un textbox
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [Ayuda] Proyecto en vb6 para pasar a pdf un textbox  (Leído 5,590 veces)
ke0p

Desconectado Desconectado

Mensajes: 3


Ver Perfil
[Ayuda] Proyecto en vb6 para pasar a pdf un textbox
« en: 23 Julio 2010, 14:28 pm »

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:
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! :)


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Pasar datos de sql a un textbox?
.NET (C#, VB.NET, ASP)
_CrisiS_ 5 15,459 Último mensaje 5 Noviembre 2012, 17:40 pm
por Criss_Daniel
Proyecto pasar movimiento de un disco a digital
Electrónica
santi_eli26 0 2,288 Último mensaje 15 Marzo 2012, 13:07 pm
por santi_eli26
Pasar escrito de un TextBox a una pagina web
.NET (C#, VB.NET, ASP)
cael1011 3 3,143 Último mensaje 30 Enero 2017, 20:17 pm
por z3nth10n
Pasar proyecto a mi localhost
Desarrollo Web
Antoniio 1 2,122 Último mensaje 30 Enero 2017, 16:12 pm
por PalitroqueZ
Pasar un textbox a una función o mètodo en vb 6.0
Programación Visual Basic
marc85 5 2,919 Último mensaje 3 Septiembre 2017, 00:33 am
por Serapis
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines