Crear pdf en visual basic 6
pdf.AddPage (1)
pdf.SetFont "Arial", "", 10 pdf.SetXY 50, 50 pdf.MultiCell 100, 5, "Texto multilinea prueba de texto extensommmm mmmmmm mmmmmmmoooooooo oooooooooooooooooo oooo", 15, 0, True,2
'x = pdf.GetPageHeight 'y = pdf.GetPageWidth ''################ Imagen ###################### pdf.SetFillColor 255, 228, 181 pdf.Rect 5, 5, 40, 40, 30 '##################### Encabezado########################### Dim inix_enc, iniy_enc As Integer Dim alto_enc As Integer Dim ancho_enc As Integer alto_enc = 12 ancho_enc = 100 iniy_enc = 5 inix_enc = 50''---------------------titulo----------------------------nodo_path = "/Comprobante/Emisor" indice = 1 valor = buscarnodo(nodo_path, indice, direccion) Dim borde As Integer borde = 15 '#############Borde pdf.SetFont "Arial", "", 10 pdf.SetYiniy_enc pdf.SetX inix_enc pdf.Cell ancho_enc, alto_enc, valor, borde, 123, 1, 0, "" pdf.SetXY 50, 100 'pdf.ClippedCell 50, 6, "cccccccccccccccccCLIPpEDCELL", 15, 1, 2, 2, "" '##Clippedcell##celda...
Regístrate para leer el documento completo.