Trate primero cargando el segundo formulario, luego imprimiendo con print, y luego mostrando el form, pero no aparece nada, aca una parte del codigo a ver si me pueden dar una mano.
Código:
Dim Item As ListItem Dim i As Integer, AnchoCol As Single, Espacio As Integer, x As Integer Load Form8 AnchoCol = 0 'Recorremos desde la primer columna hasta la última para almacenar el ancho total For i = 1 To ListView2.ColumnHeaders.Count AnchoCol = AnchoCol + ListView2.ColumnHeaders(i).Width Next Espacio = 400 'Encabezado de ejemplo Form8.Print " Ejemplo para imprimir un control ListView " 'Imprime un espacio en blanco Form8.Print 'Imprime una línea Form8.Line (Form8.CurrentX, Form8.CurrentY)-(Form8.ScaleWidth, Form8.CurrentY) 'Acá se imprimen los encabezados del ListView For i = 1 To ListView2.ColumnHeaders.Count Espacio = Espacio + CInt(ListView2.ColumnHeaders(i).Width * Form8.ScaleWidth / AnchoCol) Form8.Print ListView2.ColumnHeaders(i).Text; Form8.CurrentX = Espacio Next
